(** * Univalent Foundations, Part A

Vladimir Voevodsky.
Feb. 2010 - Sep. 2011.


This file is based on the first part of the original uu0 file.

The uu0 file contained the basic results of the univalent foundations
that required the use of only one universe.

Eventually the requirement concerning one universe was removed because of the
general uncertainty in what does it mean for a construction to require only one universe.
For example, [ boolsumfun ], when written in terms of the eliminatior [ bool_rect ]
instead of the  [ match ], requires application of [ bool_rect ] to an argument that is
not a member of the base universe [ UU ]. This would be different if the universe management
in Coq was constructed differently. Due to this uncertainty we do not consider any more the
single universe requirement as a defining one when selecting results for the inclusion in Foundations.

Part A was created as a separate file on Dec. 3, 2014.

Together with Part B it contains those results that do not require any axioms.

This file was edited and expanded by Benedikt Ahrens 2014-2016, Dan Grayson 2014-2016,
Vladimir Voevodsky 2014-2016, Alex Kavvos 2014, Peter LeFanu Lumsdaine 2016 and
Tomi Pannila 2016.
*)

(** ** Contents
- Preamble
 - Settings
 - Imports

- Some standard constructions not using identity types (paths)
 - Canonical functions from [ empty ] and to [unit ]
 - Identity functions and function composition, curry and uncurry
 - Iteration of an endomorphism
 - Basic constructions related to the adjoint evaluation function [ X -> ((X -> Y) -> Y) ]
 - Pairwise direct products
 - Negation and double negation
 - Logical equivalence

- Paths and operations on paths
 - Associativity of function composition and mutual invertibility of curry/uncurry
 - Composition of paths and inverse paths
 - Direct product of paths
 - The function [ maponpaths ] between paths types defined by a function between ambient types
 - [ maponpaths ] for the identity functions and compositions of functions
 - Homotopy between functions
 - Equality between functions defines a homotopy
 - [ maponpaths ] for a function homotopic to the identity
 - [ maponpaths ] in the case of a projection p with a section s
 - Fibrations and paths - the transport functions
 - A series of lemmas about paths and [ total2 ]
 - Lemmas about transport adapted from the HoTT library and the HoTT book
 - Homotopies between families and the total spaces

- First fundamental notions
 - Contractibility [ iscontr ]
 - Homotopy fibers [ hfiber ]
 - The functions between the hfibers of homotopic functions over the same point
 - Paths in homotopy fibers
 - Coconuses: spaces of paths that begin (coconusfromt) or end (coconustot) at a given point
 - The total paths space of a type - two definitions
 - Coconus of a function: the total space of the family of h-fibers

- Weak equivalences
 - Basics - [ isweq ] and [ weq ]
 - Weak equivalences and paths spaces (more results in further sections)
 - Adjointness property of a weak equivalence and its inverse
 - Transport functions are weak equivalences
 - Weak equivalences between contractible types (one implication)
 - Unit and contractibility
 - Homotopy equivalence is a weak equivalence
 - Some weak equivalences
 - 2-out-of-3 property  of weak equivalences
 - Any function between contractible types is a weak equivalence
 - Composition of weak equivalences
 - 2-out-of-6 property  of weak equivalences
 - Pairwise direct products of weak equivalences
 - Weak equivalence of a type and its direct product with the unit
 - Associativity of total2 as a weak equivalence
 - Associativity and commutativity of direct products as weak equivalences

- Binary coproducts and their basic properties
 - Distributivity of coproducts and direct products as a weak equivalence
 - Total space of a family over a coproduct
 - Pairwise sum of functions, coproduct associativity and commutativity
 - Coproduct with a "negative" type
 - Coproduct of two functions
 - The [ equality_cases ] construction and four applications to [ ii1 ] and [ ii2 ]
 - Bool as coproduct
 - Pairwise coproducts as dependent sums of families over [ bool ]
 - Splitting of [ X ] into a coproduct defined by a function [ X -> Y ⨿ Z ]
 - Some properties of bool
 - Fibrations with only one non-empty fiber

- Basics about fibration sequences
 - The structures of a complex and of a fibration sequence on a composable pair of functions
 - Construction of the derived fibration sequence
 - Explicit description of the first map in the second derived sequence
 - Fibration sequences based on [ tpair P z ] and [ pr1 : total2 P -> Z ] ( the "pr1-case" )
 - Fibration sequences based on [ hfiberpr1 : hfiber g z -> Y ] and [ g : Y -> Z ] (the "g-case")
 - Fibration sequence of h-fibers defined by a composable pair of functions (the "hf-case")

- Functions between total spaces of families
 - Function [ totalfun ] between total spaces from a family of functions between the fibers
 - Function [ fpmap ] between the total spaces from a function between the bases
 - Homotopy fibers of [ fpmap ]
 - The [ fpmap ] from a weak equivalence is a weak equivalence
 - Total spaces of families over a contractible base
 - Function on the total spaces from functions between the bases and between the fibers

- Homotopy fiber squares
 - Homotopy commutative squares
 - Short complexes and homotopy commutative squares
 - Homotopy fiber products
 - Homotopy fiber products and homotopy fibers
 - Homotopy fiber squares
 - Fiber sequences and homotopy fiber squares
 *)






(** ** Preamble *)

(** *** Imports *)

Require Export UniMath.Foundations.Preamble.

(* end of "Preamble" *)


(** ** Some standard constructions not using identity types (paths) *)

(** *** Canonical functions from [ empty ] and to [ unit ] *)

Definition fromempty  : ∏ X : UU , empty -> X.
∏ X : UU, ∅ → X (* type this in emacs in agda-input method
with \prod *)
Proof.
∏ X : UU, ∅ → X
  intro X.
X: UU
∅ → X
  intro H.
X: UU
H: ∅
X
  induction H.
Defined.

Arguments fromempty { X } _.

Definition tounit {X : UU} : X -> unit := λ _, tt.

(** *** Functions from [ unit ] corresponding to terms *)

Definition termfun {X : UU} (x : X) : unit -> X := λ _, x.

(** *** Identity functions and function composition, curry and uncurry *)

Definition idfun (T : UU) := λ t:T, t.

(** makes [simpl], [cbn], etc. unfold [idfun X x] but not [ idfun X ]: *)
Arguments idfun _ _ /.

Definition funcomp {X Y : UU} {Z:Y->UU} (f : X -> Y) (g : ∏ y:Y, Z y) := λ x, g (f x).

(** make [simpl], [cbn], etc. unfold [ (f ∘ g) x ] but not [ f ∘ g ]: *)
Arguments funcomp {_ _ _} _ _ _/.

Declare Scope functions.
Delimit Scope functions with functions.

Open Scope functions.

Notation "g ∘ f" := (funcomp f g) : functions.

(** back and forth between functions of pairs and functions returning
  functions *)

Definition curry {X : UU} {Y : X -> UU} {Z : (∑ x, Y x) -> UU}
           (f : ∏ p, Z p) : (∏ x : X, ∏ y : Y x, Z (x,, y)) :=
  λ x y, f (x,, y).

Definition uncurry {X : UU} {Y : X -> UU} {Z : (∑ x, Y x) -> UU}
           (g : ∏ x : X, ∏ y : Y x, Z (x,, y)) : (∏ p, Z p) :=
  λ x, g (pr1 x) (pr2 x).

(** *** Definition of binary operation *)

Definition binop (X : UU) : UU := X -> X -> X.

(** *** Iteration of an endomorphism *)

Definition iteration {T : UU} (f : T -> T) (n : nat) : T -> T.
T: UU
f: T → T
n: nat
T → T
Proof.
T: UU
f: T → T
n: nat
T → T
  induction n as [ | n IHn ].
T: UU
f: T → T
T → T
T: UU
f: T → T
n: nat
IHn: T → T
T → T
  +
T: UU
f: T → T
T → T exact (idfun T).
  +
T: UU
f: T → T
n: nat
IHn: T → T
T → T exact (f ∘ IHn).
Defined.

(** *** Basic constructions related to the adjoint evaluation function [ X -> ((X -> Y) -> Y) ] *)

Definition adjev {X Y : UU} (x : X) (f : X -> Y) : Y := f x.

Definition adjev2 {X Y : UU} (phi : ((X -> Y) -> Y) -> Y) : X -> Y :=
  λ x, phi (λ f, f x).

(** *** Pairwise direct products *)

Definition dirprod (X Y : UU) := ∑ x:X, Y.

Notation "A × B" := (dirprod A B) : type_scope.

Definition dirprod_pr1 {X Y : UU} := pr1 : X × Y -> X.
Definition dirprod_pr2 {X Y : UU} := pr2 : X × Y -> Y.

Definition make_dirprod {X Y : UU} (x:X) (y:Y) : X × Y := x,,y.

Definition dirprodadj {X Y Z : UU} (f : X × Y -> Z) : X -> Y -> Z :=
  λ x y, f (x,,y).

Definition dirprodf {X Y X' Y' : UU}
           (f : X -> Y) (f' : X' -> Y') (xx' : X × X')  : Y × Y' :=
  make_dirprod (f (pr1 xx')) (f' (pr2 xx')).

Definition ddualand {X Y P : UU}
           (xp : (X -> P) -> P) (yp : (Y -> P) -> P) : (X × Y -> P) -> P.
X, Y, P: UU
xp: (X → P) → P
yp: (Y → P) → P
(X × Y → P) → P
Proof.
X, Y, P: UU
xp: (X → P) → P
yp: (Y → P) → P
(X × Y → P) → P
  intros X0.
X, Y, P: UU
xp: (X → P) → P
yp: (Y → P) → P
X0: X × Y → P
P
  apply xp.
X, Y, P: UU
xp: (X → P) → P
yp: (Y → P) → P
X0: X × Y → P
X → P intro x.
X, Y, P: UU
xp: (X → P) → P
yp: (Y → P) → P
X0: X × Y → P
x: X
P
  apply yp.
X, Y, P: UU
xp: (X → P) → P
yp: (Y → P) → P
X0: X × Y → P
x: X
Y → P intro y.
X, Y, P: UU
xp: (X → P) → P
yp: (Y → P) → P
X0: X × Y → P
x: X
y: Y
P
  apply (X0 (make_dirprod x y)).
Defined.

(** *** Negation and double negation *)

Definition neg (X : UU) : UU := X -> empty.

Notation "'¬' X" := (neg X).
(* type this in emacs in agda-input method with \neg *)

Notation "x != y" := (neg (x = y)) : type_scope.

Definition negf {X Y : UU} (f : X -> Y) : ¬ Y -> ¬ X := λ phi x, phi (f x).

Definition dneg (X : UU) : UU := ¬ ¬ X.

Notation "'¬¬' X" := (dneg X).
(* type this in emacs in agda-input method with \neg twice *)

Definition dnegf {X Y : UU} (f : X -> Y) : dneg X -> dneg Y :=
  negf (negf f).

Definition todneg (X : UU) : X -> dneg X := adjev.

Definition dnegnegtoneg {X : UU} : ¬¬ ¬ X -> ¬ X := adjev2.

Lemma dneganddnegl1 {X Y : UU} (dnx : ¬¬ X) (dny : ¬¬ Y) : ¬ (X -> ¬ Y).
X, Y: UU
dnx: ¬¬ X
dny: ¬¬ Y
¬ (X → ¬ Y)
Proof.
X, Y: UU
dnx: ¬¬ X
dny: ¬¬ Y
¬ (X → ¬ Y)
  intros.
X, Y: UU
dnx: ¬¬ X
dny: ¬¬ Y
¬ (X → ¬ Y)
  intros X2.
X, Y: UU
dnx: ¬¬ X
dny: ¬¬ Y
X2: X → ¬ Y
∅
  apply (dnegf X2).
X, Y: UU
dnx: ¬¬ X
dny: ¬¬ Y
X2: X → ¬ Y
¬¬ X
X, Y: UU
dnx: ¬¬ X
dny: ¬¬ Y
X2: X → ¬ Y
¬ ¬ Y
  +
X, Y: UU
dnx: ¬¬ X
dny: ¬¬ Y
X2: X → ¬ Y
¬¬ X apply dnx.
  +
X, Y: UU
dnx: ¬¬ X
dny: ¬¬ Y
X2: X → ¬ Y
¬ ¬ Y apply dny.
Defined.

Definition dneganddnegimpldneg {X Y : UU}
           (dnx : ¬¬ X) (dny : ¬¬ Y) : ¬¬ (X × Y) := ddualand dnx dny.

(** *** Logical equivalence *)

Definition logeq (X Y : UU) := (X -> Y) × (Y -> X).
Notation " X <-> Y " := (logeq X Y) : type_scope.

Lemma isrefl_logeq (X : UU) : X <-> X.
X: UU
X <-> X
Proof.
X: UU
X <-> X
  intros.
X: UU
X <-> X split; apply idfun.
Defined.

Lemma issymm_logeq (X Y : UU) : (X <-> Y) -> (Y <-> X).
X, Y: UU
X <-> Y → Y <-> X
Proof.
X, Y: UU
X <-> Y → Y <-> X
  intros e.
X, Y: UU
e: X <-> Y
Y <-> X
  exact (pr2 e,,pr1 e).
Defined.

Definition logeqnegs {X Y : UU} (l : X <-> Y) : (¬ X) <-> (¬ Y) :=
  make_dirprod (negf (pr2 l)) (negf (pr1 l)).

Definition logeq_both_true {X Y : UU} : X -> Y -> (X <-> Y).
X, Y: UU
X → Y → X <-> Y
Proof.
X, Y: UU
X → Y → X <-> Y
  intros x y.
X, Y: UU
x: X
y: Y
X <-> Y
  split.
X, Y: UU
x: X
y: Y
X → Y
X, Y: UU
x: X
y: Y
Y → X
  -
X, Y: UU
x: X
y: Y
X → Y intros x'.
X, Y: UU
x: X
y: Y
x': X
Y exact y.
  -
X, Y: UU
x: X
y: Y
Y → X intros y'.
X, Y: UU
x: X
y, y': Y
X exact x.
Defined.

Definition logeq_both_false {X Y : UU} : ¬X -> ¬Y -> (X <-> Y).
X, Y: UU
¬ X → ¬ Y → X <-> Y
Proof.
X, Y: UU
¬ X → ¬ Y → X <-> Y
  intros nx ny.
X, Y: UU
nx: ¬ X
ny: ¬ Y
X <-> Y
  split.
X, Y: UU
nx: ¬ X
ny: ¬ Y
X → Y
X, Y: UU
nx: ¬ X
ny: ¬ Y
Y → X
  -
X, Y: UU
nx: ¬ X
ny: ¬ Y
X → Y intros x.
X, Y: UU
nx: ¬ X
ny: ¬ Y
x: X
Y induction (nx x).
  -
X, Y: UU
nx: ¬ X
ny: ¬ Y
Y → X intros y.
X, Y: UU
nx: ¬ X
ny: ¬ Y
y: Y
X induction (ny y).
Defined.

Definition logeq_trans {X Y Z : UU} : (X <-> Y) -> (Y <-> Z) -> (X <-> Z).
X, Y, Z: UU
X <-> Y → Y <-> Z → X <-> Z
Proof.
X, Y, Z: UU
X <-> Y → Y <-> Z → X <-> Z
  intros i j.
X, Y, Z: UU
i: X <-> Y
j: Y <-> Z
X <-> Z exact (pr1 j ∘ pr1 i,, pr2 i ∘ pr2 j).
Defined.

(* end of "Some standard constructions not using identity types (paths)". *)


(** ** Paths and operations on [ paths ] *)

(** *** Associativity of function composition and mutual invertibility of curry/uncurry  *)

(** While the paths in two of the three following lemmas are trivial, having them as
lemmas turns out to be convenient in some future proofs. They are used to apply a particular
definitional equality to modify the syntactic form of the goal in order to make the
next tactic, which uses the syntactic form of the goal to guess how to proceed, to work.

The same applies to other lemmas below whose proof is by immediate "reflexivity" or
"idpath". *)

Lemma funcomp_assoc {X Y Z W : UU} (f : X -> Y) (g : Y -> Z) (h : Z -> W)
: h ∘ (g ∘ f) = (h ∘ g) ∘ f.
X, Y, Z, W: UU
f: X → Y
g: Y → Z
h: Z → W
h ∘ (g ∘ f) = h ∘ g ∘ f
Proof.
X, Y, Z, W: UU
f: X → Y
g: Y → Z
h: Z → W
h ∘ (g ∘ f) = h ∘ g ∘ f
  intros .
X, Y, Z, W: UU
f: X → Y
g: Y → Z
h: Z → W
h ∘ (g ∘ f) = h ∘ g ∘ f
  apply idpath.
Defined.

Lemma uncurry_curry {X Z : UU} {Y : X -> UU} (f : (∑ x : X, Y x) -> Z) :
  ∏ p, uncurry (curry f) p = f p.
X, Z: UU
Y: X → UU
f: (∑ x : X, Y x) → Z
∏ p : ∑ x : X, Y x, uncurry (curry f) p = f p
Proof.
X, Z: UU
Y: X → UU
f: (∑ x : X, Y x) → Z
∏ p : ∑ x : X, Y x, uncurry (curry f) p = f p
  intros.
X, Z: UU
Y: X → UU
f: (∑ x : X, Y x) → Z
p: ∑ x : X, Y x
uncurry (curry f) p = f p induction p as [x y].
X, Z: UU
Y: X → UU
f: (∑ x : X, Y x) → Z
x: X
y: Y x
uncurry (curry f) (x,, y) = f (x,, y) apply idpath.
Defined.

Lemma curry_uncurry {X Z : UU} {Y : X -> UU} (g : ∏ x : X, Y x -> Z) :
  ∏ x y, curry (uncurry g) x y = g x y.
X, Z: UU
Y: X → UU
g: ∏ x : X, Y x → Z
∏ (x : X) (y : Y x), curry (uncurry g) x y = g x y
Proof.
X, Z: UU
Y: X → UU
g: ∏ x : X, Y x → Z
∏ (x : X) (y : Y x), curry (uncurry g) x y = g x y
  intros.
X, Z: UU
Y: X → UU
g: ∏ x : X, Y x → Z
x: X
y: Y x
curry (uncurry g) x y = g x y apply idpath.
Defined.

(** *** Composition of paths and inverse paths *)

Definition pathscomp0 {X : UU} {a b c : X} (e1 : a = b) (e2 : b = c) : a = c.
X: UU
a, b, c: X
e1: a = b
e2: b = c
a = c
Proof.
X: UU
a, b, c: X
e1: a = b
e2: b = c
a = c
  intros.
X: UU
a, b, c: X
e1: a = b
e2: b = c
a = c induction e1.
X: UU
a, c: X
e2: a = c
a = c apply e2.
Defined.

#[global]
Hint Resolve @pathscomp0 : pathshints.

Ltac intermediate_path x := apply (pathscomp0 (b := x)).
Ltac etrans := eapply pathscomp0.

Notation "p @ q" := (pathscomp0 p q).

Definition pathscomp0rid {X : UU} {a b : X} (e1 : a = b) : e1 @ idpath b = e1.
X: UU
a, b: X
e1: a = b
e1 @ idpath b = e1
Proof.
X: UU
a, b: X
e1: a = b
e1 @ idpath b = e1
  intros.
X: UU
a, b: X
e1: a = b
e1 @ idpath b = e1 induction e1.
X: UU
a: X
idpath a @ idpath a = idpath a simpl.
X: UU
a: X
idpath a = idpath a apply idpath.
Defined.

(** Note that we do not introduce [ pathscomp0lid ] since the corresponding
    two terms are convertible to each other due to our definition of
    [ pathscomp0 ]. If we defined it by inductioning [ e2 ] and
    applying [ e1 ] then [ pathscomp0rid ] would be trivial but
    [ pathscomp0lid ] would require a proof. Similarly we do not introduce a
    lemma to connect [ pathsinv0 (idpath _) ] to [ idpath ].
 *)

Definition pathsinv0 {X : UU} {a b : X} (e : a = b) : b = a.
X: UU
a, b: X
e: a = b
b = a
Proof.
X: UU
a, b: X
e: a = b
b = a
  intros.
X: UU
a, b: X
e: a = b
b = a induction e.
X: UU
a: X
a = a apply idpath.
Defined.

#[global]
Hint Resolve @pathsinv0 : pathshints.

Definition path_assoc {X} {a b c d:X}
           (f : a = b) (g : b = c) (h : c = d)
  : f @ (g @ h) = (f @ g) @ h.
X: Type
a, b, c, d: X
f: a = b
g: b = c
h: c = d
f @ g @ h = (f @ g) @ h
Proof.
X: Type
a, b, c, d: X
f: a = b
g: b = c
h: c = d
f @ g @ h = (f @ g) @ h
  intros.
X: Type
a, b, c, d: X
f: a = b
g: b = c
h: c = d
f @ g @ h = (f @ g) @ h induction f.
X: Type
a, c, d: X
g: a = c
h: c = d
idpath a @ g @ h = (idpath a @ g) @ h apply idpath.
Defined.

Notation "! p " := (pathsinv0 p).

Definition pathsinv0l {X : UU} {a b : X} (e : a = b) : !e @ e = idpath _.
X: UU
a, b: X
e: a = b
! e @ e = idpath b
Proof.
X: UU
a, b: X
e: a = b
! e @ e = idpath b
  intros.
X: UU
a, b: X
e: a = b
! e @ e = idpath b induction e.
X: UU
a: X
! idpath a @ idpath a = idpath a apply idpath.
Defined.

Definition pathsinv0r {X : UU} {a b : X} (e : a = b) : e @ !e = idpath _.
X: UU
a, b: X
e: a = b
e @ ! e = idpath a
Proof.
X: UU
a, b: X
e: a = b
e @ ! e = idpath a
  intros.
X: UU
a, b: X
e: a = b
e @ ! e = idpath a induction e.
X: UU
a: X
idpath a @ ! idpath a = idpath a apply idpath.
Defined.

Definition pathsinv0inv0 {X : UU} {x x' : X} (e : x = x') : !(!e) = e.
X: UU
x, x': X
e: x = x'
! (! e) = e
Proof.
X: UU
x, x': X
e: x = x'
! (! e) = e
  intros.
X: UU
x, x': X
e: x = x'
! (! e) = e induction e.
X: UU
x: X
! (! idpath x) = idpath x apply idpath.
Defined.

Lemma pathscomp_cancel_left {X : UU} {x y z : X} (p : x = y) (r s : y = z) :
  p @ r= p @ s -> r = s.
X: UU
x, y, z: X
p: x = y
r, s: y = z
p @ r = p @ s → r = s
Proof.
X: UU
x, y, z: X
p: x = y
r, s: y = z
p @ r = p @ s → r = s
  intros e.
X: UU
x, y, z: X
p: x = y
r, s: y = z
e: p @ r = p @ s
r = s induction p.
X: UU
x, z: X
r, s: x = z
e: idpath x @ r = idpath x @ s
r = s exact e.
Defined.

Lemma pathscomp_cancel_right {X : UU} {x y z : X} (p q : x = y) (s : y = z) :
  p @ s = q @ s -> p = q.
X: UU
x, y, z: X
p, q: x = y
s: y = z
p @ s = q @ s → p = q
Proof.
X: UU
x, y, z: X
p, q: x = y
s: y = z
p @ s = q @ s → p = q
  intros e.
X: UU
x, y, z: X
p, q: x = y
s: y = z
e: p @ s = q @ s
p = q induction s.
X: UU
x, y: X
p, q: x = y
e: p @ idpath y = q @ idpath y
p = q refine (_ @ e @ _).
X: UU
x, y: X
p, q: x = y
e: p @ idpath y = q @ idpath y
p = p @ idpath y
X: UU
x, y: X
p, q: x = y
e: p @ idpath y = q @ idpath y
q @ idpath y = q
  -
X: UU
x, y: X
p, q: x = y
e: p @ idpath y = q @ idpath y
p = p @ idpath y apply pathsinv0, pathscomp0rid.
  -
X: UU
x, y: X
p, q: x = y
e: p @ idpath y = q @ idpath y
q @ idpath y = q apply pathscomp0rid.
Defined.

Lemma pathscomp_inv {X : UU} {x y z : X} (p : x = y) (q : y = z)
  : !(p @ q) = !q @ !p.
X: UU
x, y, z: X
p: x = y
q: y = z
! (p @ q) = ! q @ ! p
Proof.
X: UU
x, y, z: X
p: x = y
q: y = z
! (p @ q) = ! q @ ! p
  induction p.
X: UU
x, z: X
q: x = z
! (idpath x @ q) = ! q @ ! idpath x induction q.
X: UU
x: X
! (idpath x @ idpath x) = ! idpath x @ ! idpath x
  apply idpath.
Defined.

(** *** Direct product of paths  *)


Definition pathsdirprod {X Y : UU} {x1 x2 : X} {y1 y2 : Y}
           (ex : x1 = x2) (ey : y1 = y2) :
  make_dirprod x1 y1 = make_dirprod x2 y2.
X, Y: UU
x1, x2: X
y1, y2: Y
ex: x1 = x2
ey: y1 = y2
make_dirprod x1 y1 = make_dirprod x2 y2
Proof.
X, Y: UU
x1, x2: X
y1, y2: Y
ex: x1 = x2
ey: y1 = y2
make_dirprod x1 y1 = make_dirprod x2 y2
  intros.
X, Y: UU
x1, x2: X
y1, y2: Y
ex: x1 = x2
ey: y1 = y2
make_dirprod x1 y1 = make_dirprod x2 y2 induction ex.
X, Y: UU
x1: X
y1, y2: Y
ey: y1 = y2
make_dirprod x1 y1 = make_dirprod x1 y2 induction ey.
X, Y: UU
x1: X
y1: Y
make_dirprod x1 y1 = make_dirprod x1 y1 apply idpath.
Defined.

Lemma dirprodeq (A B : UU) (ab ab' : A × B) :
  pr1 ab = pr1 ab' -> pr2 ab = pr2 ab' -> ab = ab'.
A, B: UU
ab, ab': A × B
pr1 ab = pr1 ab' → pr2 ab = pr2 ab' → ab = ab'
Proof.
A, B: UU
ab, ab': A × B
pr1 ab = pr1 ab' → pr2 ab = pr2 ab' → ab = ab'
  intros H H'.
A, B: UU
ab, ab': A × B
H: pr1 ab = pr1 ab'
H': pr2 ab = pr2 ab'
ab = ab'
  induction ab as [a b].
A, B: UU
a: A
b: B
ab': A × B
H: pr1 (a,, b) = pr1 ab'
H': pr2 (a,, b) = pr2 ab'
a,, b = ab'
  induction ab' as [a' b']; simpl in *.
A, B: UU
a: A
b: B
a': A
b': B
H: a = a'
H': b = b'
a,, b = a',, b'
  induction H.
A, B: UU
a: A
b, b': B
H': b = b'
a,, b = a,, b'
  induction H'.
A, B: UU
a: A
b: B
a,, b = a,, b
  apply idpath.
Defined.


(** *** The function [ maponpaths ] between paths types defined by a function between ambient types

and its behavior relative to [ @ ] and [ ! ] *)

Definition maponpaths {T1 T2 : UU} (f : T1 -> T2) {t1 t2 : T1}
           (e: t1 = t2) : f t1 = f t2.
T1, T2: UU
f: T1 → T2
t1, t2: T1
e: t1 = t2
f t1 = f t2
Proof.
T1, T2: UU
f: T1 → T2
t1, t2: T1
e: t1 = t2
f t1 = f t2
  intros.
T1, T2: UU
f: T1 → T2
t1, t2: T1
e: t1 = t2
f t1 = f t2 induction e.
T1, T2: UU
f: T1 → T2
t1: T1
f t1 = f t1 apply idpath.
Defined.

(* useful with apply, to save typing *)
Definition map_on_two_paths {X Y Z : UU} (f : X -> Y -> Z) {x x' y y'} (ex : x = x') (ey: y = y') :
  f x y = f x' y'.
X, Y, Z: UU
f: X → Y → Z
x, x': X
y, y': Y
ex: x = x'
ey: y = y'
f x y = f x' y'
Proof.
X, Y, Z: UU
f: X → Y → Z
x, x': X
y, y': Y
ex: x = x'
ey: y = y'
f x y = f x' y'
  intros.
X, Y, Z: UU
f: X → Y → Z
x, x': X
y, y': Y
ex: x = x'
ey: y = y'
f x y = f x' y' induction ex.
X, Y, Z: UU
f: X → Y → Z
x: X
y, y': Y
ey: y = y'
f x y = f x y' induction ey.
X, Y, Z: UU
f: X → Y → Z
x: X
y: Y
f x y = f x y apply idpath.
Defined.


Definition maponpathscomp0 {X Y : UU} {x1 x2 x3 : X}
           (f : X -> Y) (e1 : x1 = x2) (e2 : x2 = x3) :
  maponpaths f (e1 @ e2) = maponpaths f e1 @ maponpaths f e2.
X, Y: UU
x1, x2, x3: X
f: X → Y
e1: x1 = x2
e2: x2 = x3
maponpaths f (e1 @ e2) =
maponpaths f e1 @ maponpaths f e2
Proof.
X, Y: UU
x1, x2, x3: X
f: X → Y
e1: x1 = x2
e2: x2 = x3
maponpaths f (e1 @ e2) =
maponpaths f e1 @ maponpaths f e2
  intros.
X, Y: UU
x1, x2, x3: X
f: X → Y
e1: x1 = x2
e2: x2 = x3
maponpaths f (e1 @ e2) =
maponpaths f e1 @ maponpaths f e2 induction e1.
X, Y: UU
x1, x3: X
f: X → Y
e2: x1 = x3
maponpaths f (idpath x1 @ e2) =
maponpaths f (idpath x1) @ maponpaths f e2 induction e2.
X, Y: UU
x1: X
f: X → Y
maponpaths f (idpath x1 @ idpath x1) =
maponpaths f (idpath x1) @ maponpaths f (idpath x1) apply idpath.
Defined.

Definition maponpathsinv0 {X Y : UU} (f : X -> Y)
           {x1 x2 : X} (e : x1 = x2) : maponpaths f (! e) = ! (maponpaths f e).
X, Y: UU
f: X → Y
x1, x2: X
e: x1 = x2
maponpaths f (! e) = ! maponpaths f e
Proof.
X, Y: UU
f: X → Y
x1, x2: X
e: x1 = x2
maponpaths f (! e) = ! maponpaths f e
  intros.
X, Y: UU
f: X → Y
x1, x2: X
e: x1 = x2
maponpaths f (! e) = ! maponpaths f e induction e.
X, Y: UU
f: X → Y
x1: X
maponpaths f (! idpath x1) =
! maponpaths f (idpath x1) apply idpath.
Defined.


(** *** [ maponpaths ] for the identity functions and compositions of functions *)

Lemma maponpathsidfun {X : UU} {x x' : X}
      (e : x = x') : maponpaths (idfun _) e = e.
X: UU
x, x': X
e: x = x'
maponpaths (idfun X) e = e
Proof.
X: UU
x, x': X
e: x = x'
maponpaths (idfun X) e = e
  intros.
X: UU
x, x': X
e: x = x'
maponpaths (idfun X) e = e induction e.
X: UU
x: X
maponpaths (idfun X) (idpath x) = idpath x apply idpath.
Defined.

Lemma maponpathscomp {X Y Z : UU} {x x' : X} (f : X -> Y) (g : Y -> Z)
      (e : x = x') : maponpaths g (maponpaths f e) = maponpaths (g ∘ f) e.
X, Y, Z: UU
x, x': X
f: X → Y
g: Y → Z
e: x = x'
maponpaths g (maponpaths f e) = maponpaths (g ∘ f) e
Proof.
X, Y, Z: UU
x, x': X
f: X → Y
g: Y → Z
e: x = x'
maponpaths g (maponpaths f e) = maponpaths (g ∘ f) e
  intros.
X, Y, Z: UU
x, x': X
f: X → Y
g: Y → Z
e: x = x'
maponpaths g (maponpaths f e) = maponpaths (g ∘ f) e induction e.
X, Y, Z: UU
x: X
f: X → Y
g: Y → Z
maponpaths g (maponpaths f (idpath x)) =
maponpaths (g ∘ f) (idpath x) apply idpath.
Defined.

(** *** Homotopy between sections *)

Definition homot {X : UU} {P : X -> UU} (f g : ∏ x : X, P x) := ∏ x : X , f x = g x.

Notation "f ~ g" := (homot f g).

Definition homotrefl {X : UU} {P : X -> UU} (f: ∏ x : X, P x) : f ~ f.
X: UU
P: X → UU
f: ∏ x : X, P x
f ~ f
Proof.
X: UU
P: X → UU
f: ∏ x : X, P x
f ~ f
  intros x.
X: UU
P: X → UU
f: ∏ x : X, P x
x: X
f x = f x apply idpath.
Defined.

Definition homotcomp {X:UU} {Y:X->UU} {f f' f'' : ∏ x : X, Y x}
           (h : f ~ f') (h' : f' ~ f'') : f ~ f'' := λ x, h x @ h' x.

Definition invhomot {X:UU} {Y:X->UU} {f f' : ∏ x : X, Y x}
           (h : f ~ f') : f' ~ f := λ x, !(h x).

Definition funhomot {X Y Z:UU} (f : X -> Y) {g g' : Y -> Z}
           (h : g ~ g') : g ∘ f ~ g' ∘ f := λ x, h (f x).

Definition funhomotsec {X Y:UU} {Z:Y->UU} (f : X -> Y) {g g' : ∏ y:Y, Z y}
           (h : g ~ g') : g ∘ f ~ g' ∘ f := λ x, h (f x).

Definition homotfun {X Y Z : UU} {f f' : X -> Y} (h : f ~ f')
           (g : Y -> Z) : g ∘ f ~ g ∘ f' := λ x, maponpaths g (h x).

(** *** Equality between functions defines a homotopy *)

Definition toforallpaths {T:UU} (P:T->UU) (f g:∏ t:T, P t) : f = g -> f ~ g.
T: UU
P: T → UU
f, g: ∏ t : T, P t
f = g → f ~ g
Proof.
T: UU
P: T → UU
f, g: ∏ t : T, P t
f = g → f ~ g
  intros h t.
T: UU
P: T → UU
f, g: ∏ t : T, P t
h: f = g
t: T
f t = g t induction h.
T: UU
P: T → UU
f: ∏ t : T, P t
t: T
f t = f t  apply (idpath _).
Defined.

Definition eqtohomot     {T:UU} {P:T->UU} {f g:∏ t:T, P t} : f = g -> f ~ g.
T: UU
P: T → UU
f, g: ∏ t : T, P t
f = g → f ~ g
(* the same as toforallpaths, but with different implicit arguments *)
Proof.
T: UU
P: T → UU
f, g: ∏ t : T, P t
f = g → f ~ g
  intros e t.
T: UU
P: T → UU
f, g: ∏ t : T, P t
e: f = g
t: T
f t = g t induction e.
T: UU
P: T → UU
f: ∏ t : T, P t
t: T
f t = f t apply idpath.
Defined.

(** *** [ maponpaths ] for a function homotopic to the identity

The following three statements show that [ maponpaths ] defined by
a function f which is homotopic to the identity is
"surjective". It is later used to show that the maponpaths defined
by a function which is a weak equivalence is itself a weak
equivalence. *)

(** Note that the type of the assumption h below can equivalently be written as
[ homot f ( idfun X ) ] *)

Definition maponpathshomidinv {X : UU} (f : X -> X)
           (h : ∏ x : X, f x = x) (x x' : X) (e : f x = f x') :
  x = x' := ! (h x) @ e @ (h x').

Lemma maponpathshomid1 {X : UU} (f : X -> X) (h: ∏ x : X, f x = x)
      {x x' : X} (e : x = x') : maponpaths f e = (h x) @ e @ (! h x').
X: UU
f: X → X
h: ∏ x : X, f x = x
x, x': X
e: x = x'
maponpaths f e = h x @ e @ ! h x'
Proof.
X: UU
f: X → X
h: ∏ x : X, f x = x
x, x': X
e: x = x'
maponpaths f e = h x @ e @ ! h x'
  intros.
X: UU
f: X → X
h: ∏ x : X, f x = x
x, x': X
e: x = x'
maponpaths f e = h x @ e @ ! h x' induction e.
X: UU
f: X → X
h: ∏ x : X, f x = x
x: X
maponpaths f (idpath x) = h x @ idpath x @ ! h x simpl.
X: UU
f: X → X
h: ∏ x : X, f x = x
x: X
idpath (f x) = h x @ ! h x
  apply pathsinv0.
X: UU
f: X → X
h: ∏ x : X, f x = x
x: X
h x @ ! h x = idpath (f x)
  apply pathsinv0r.
Defined.

Lemma maponpathshomid2 {X : UU} (f : X -> X) (h : ∏ x : X, f x = x)
      (x x' : X) (e: f x = f x') :
  maponpaths f (maponpathshomidinv f h _ _ e) = e.
X: UU
f: X → X
h: ∏ x : X, f x = x
x, x': X
e: f x = f x'
maponpaths f (maponpathshomidinv f h x x' e) = e
Proof.
X: UU
f: X → X
h: ∏ x : X, f x = x
x, x': X
e: f x = f x'
maponpaths f (maponpathshomidinv f h x x' e) = e
  intros.
X: UU
f: X → X
h: ∏ x : X, f x = x
x, x': X
e: f x = f x'
maponpaths f (maponpathshomidinv f h x x' e) = e
  unfold maponpathshomidinv.
X: UU
f: X → X
h: ∏ x : X, f x = x
x, x': X
e: f x = f x'
maponpaths f (! h x @ e @ h x') = e
  apply (pathscomp0 (maponpathshomid1 f h (! h x @ e @ h x'))).
X: UU
f: X → X
h: ∏ x : X, f x = x
x, x': X
e: f x = f x'
h x @ (! h x @ e @ h x') @ ! h x' = e

  assert (l : ∏ (X : UU) (a b c d : X) (p : a = b) (q : a = c) (r : c = d),
              p @ (!p @ q @ r) @ !r = q).
X: UU
f: X → X
h: ∏ x : X, f x = x
x, x': X
e: f x = f x'
∏ (X : UU) (a b c d : X) (p : a = b) (q : a = c)
(r : c = d), p @ (! p @ q @ r) @ ! r = q
X: UU
f: X → X
h: ∏ x : X, f x = x
x, x': X
e: f x = f x'
l: ∏ (X : UU) (a b c d : X) (p : a = b) (q : a = c)
(r : c = d), p @ (! p @ q @ r) @ ! r = q
h x @ (! h x @ e @ h x') @ ! h x' = e
  {
X: UU
f: X → X
h: ∏ x : X, f x = x
x, x': X
e: f x = f x'
∏ (X : UU) (a b c d : X) (p : a = b) (q : a = c)
(r : c = d), p @ (! p @ q @ r) @ ! r = q intros.
X: UU
f: X → X
h: ∏ x : X, f x = x
x, x': X
e: f x = f x'
X0: UU
a, b, c, d: X0
p: a = b
q: a = c
r: c = d
p @ (! p @ q @ r) @ ! r = q induction p.
X: UU
f: X → X
h: ∏ x : X, f x = x
x, x': X
e: f x = f x'
X0: UU
a, c, d: X0
q: a = c
r: c = d
idpath a @ (! idpath a @ q @ r) @ ! r = q induction q.
X: UU
f: X → X
h: ∏ x : X, f x = x
x, x': X
e: f x = f x'
X0: UU
a, d: X0
r: a = d
idpath a @ (! idpath a @ idpath a @ r) @ ! r =
idpath a induction r.
X: UU
f: X → X
h: ∏ x : X, f x = x
x, x': X
e: f x = f x'
X0: UU
a: X0
idpath a @
(! idpath a @ idpath a @ idpath a) @ ! idpath a =
idpath a apply idpath. }
X: UU
f: X → X
h: ∏ x : X, f x = x
x, x': X
e: f x = f x'
l: ∏ (X : UU) (a b c d : X) (p : a = b) (q : a = c)
(r : c = d), p @ (! p @ q @ r) @ ! r = q
h x @ (! h x @ e @ h x') @ ! h x' = e

  apply (l _ _ _ _ _ (h x) e (h x')).
Defined.


(** *** [ maponpaths ] in the case of a projection p with a section s *)

(** Note that the type of the assumption eps below can equivalently be written as
[ homot ( funcomp s p ) ( idfun X ) ] *)

Definition pathssec1 {X Y : UU} (s : X -> Y) (p : Y -> X)
           (eps : ∏ (x : X) , p (s x) = x)
           (x : X) (y : Y) (e : s x = y) : x = p y.
X, Y: UU
s: X → Y
p: Y → X
eps: ∏ x : X, p (s x) = x
x: X
y: Y
e: s x = y
x = p y
Proof.
X, Y: UU
s: X → Y
p: Y → X
eps: ∏ x : X, p (s x) = x
x: X
y: Y
e: s x = y
x = p y
  intros.
X, Y: UU
s: X → Y
p: Y → X
eps: ∏ x : X, p (s x) = x
x: X
y: Y
e: s x = y
x = p y
  apply (pathscomp0 (! eps x)).
X, Y: UU
s: X → Y
p: Y → X
eps: ∏ x : X, p (s x) = x
x: X
y: Y
e: s x = y
p (s x) = p y
  apply (maponpaths p e).
Defined.

Definition pathssec2 {X Y : UU} (s : X -> Y) (p : Y -> X)
           (eps : ∏ (x : X), p (s x) = x)
           (x x' : X) (e : s x = s x') : x = x'.
X, Y: UU
s: X → Y
p: Y → X
eps: ∏ x : X, p (s x) = x
x, x': X
e: s x = s x'
x = x'
Proof.
X, Y: UU
s: X → Y
p: Y → X
eps: ∏ x : X, p (s x) = x
x, x': X
e: s x = s x'
x = x'
  intros.
X, Y: UU
s: X → Y
p: Y → X
eps: ∏ x : X, p (s x) = x
x, x': X
e: s x = s x'
x = x'
  set (e' := pathssec1 s p eps _ _ e).
X, Y: UU
s: X → Y
p: Y → X
eps: ∏ x : X, p (s x) = x
x, x': X
e: s x = s x'
e':= pathssec1 s p eps x (s x') e: x = p (s x')
x = x'
  apply (e' @ (eps x')).
Defined.

Definition pathssec2id {X Y : UU} (s : X -> Y) (p : Y -> X)
           (eps : ∏ x : X, p (s x) = x)
           (x : X) : pathssec2 s p eps _ _ (idpath (s x)) = idpath x.
X, Y: UU
s: X → Y
p: Y → X
eps: ∏ x : X, p (s x) = x
x: X
pathssec2 s p eps x x (idpath (s x)) = idpath x
Proof.
X, Y: UU
s: X → Y
p: Y → X
eps: ∏ x : X, p (s x) = x
x: X
pathssec2 s p eps x x (idpath (s x)) = idpath x
  intros.
X, Y: UU
s: X → Y
p: Y → X
eps: ∏ x : X, p (s x) = x
x: X
pathssec2 s p eps x x (idpath (s x)) = idpath x
  unfold pathssec2.
X, Y: UU
s: X → Y
p: Y → X
eps: ∏ x : X, p (s x) = x
x: X
pathssec1 s p eps x (s x) (idpath (s x)) @ eps x =
idpath x unfold pathssec1.
X, Y: UU
s: X → Y
p: Y → X
eps: ∏ x : X, p (s x) = x
x: X
(! eps x @ maponpaths p (idpath (s x))) @ eps x =
idpath x simpl.
X, Y: UU
s: X → Y
p: Y → X
eps: ∏ x : X, p (s x) = x
x: X
(! eps x @ idpath (p (s x))) @ eps x = idpath x
  assert (e : ∏ X : UU, ∏ a b : X,
                                ∏ p : a = b, (! p @ idpath _) @ p = idpath _).
X, Y: UU
s: X → Y
p: Y → X
eps: ∏ x : X, p (s x) = x
x: X
∏ (X : UU) (a b : X) (p : a = b),
(! p @ idpath a) @ p = idpath b
X, Y: UU
s: X → Y
p: Y → X
eps: ∏ x : X, p (s x) = x
x: X
e: ∏ (X : UU) (a b : X) (p : a = b),
(! p @ idpath a) @ p = idpath b
(! eps x @ idpath (p (s x))) @ eps x = idpath x
  {
X, Y: UU
s: X → Y
p: Y → X
eps: ∏ x : X, p (s x) = x
x: X
∏ (X : UU) (a b : X) (p : a = b),
(! p @ idpath a) @ p = idpath b intros.
X, Y: UU
s: X → Y
p: Y → X
eps: ∏ x : X, p (s x) = x
x: X
X0: UU
a, b: X0
p0: a = b
(! p0 @ idpath a) @ p0 = idpath b induction p0.
X, Y: UU
s: X → Y
p: Y → X
eps: ∏ x : X, p (s x) = x
x: X
X0: UU
a: X0
(! idpath a @ idpath a) @ idpath a = idpath a simpl.
X, Y: UU
s: X → Y
p: Y → X
eps: ∏ x : X, p (s x) = x
x: X
X0: UU
a: X0
idpath a = idpath a apply idpath. }
X, Y: UU
s: X → Y
p: Y → X
eps: ∏ x : X, p (s x) = x
x: X
e: ∏ (X : UU) (a b : X) (p : a = b),
(! p @ idpath a) @ p = idpath b
(! eps x @ idpath (p (s x))) @ eps x = idpath x
  apply e.
Defined.

Definition pathssec3 {X Y : UU} (s : X -> Y) (p : Y -> X)
           (eps : ∏ x : X, p (s x) = x) {x x' : X} (e : x = x') :
  pathssec2 s p eps  _ _ (maponpaths s e) = e.
X, Y: UU
s: X → Y
p: Y → X
eps: ∏ x : X, p (s x) = x
x, x': X
e: x = x'
pathssec2 s p eps x x' (maponpaths s e) = e
Proof.
X, Y: UU
s: X → Y
p: Y → X
eps: ∏ x : X, p (s x) = x
x, x': X
e: x = x'
pathssec2 s p eps x x' (maponpaths s e) = e
  intros.
X, Y: UU
s: X → Y
p: Y → X
eps: ∏ x : X, p (s x) = x
x, x': X
e: x = x'
pathssec2 s p eps x x' (maponpaths s e) = e induction e.
X, Y: UU
s: X → Y
p: Y → X
eps: ∏ x : X, p (s x) = x
x: X
pathssec2 s p eps x x (maponpaths s (idpath x)) =
idpath x simpl.
X, Y: UU
s: X → Y
p: Y → X
eps: ∏ x : X, p (s x) = x
x: X
pathssec2 s p eps x x (idpath (s x)) = idpath x
  apply pathssec2id.
Defined.



(** *** Fibrations and paths - the transport functions *)

Definition constr1 {X : UU} (P : X -> UU) {x x' : X} (e : x = x') :
  ∑ (f : P x -> P x'),
  ∑ (ee : ∏ p : P x, tpair _ x p = tpair _ x' (f p)),
  ∏ (pp : P x), maponpaths pr1 (ee pp) = e.
X: UU
P: X → UU
x, x': X
e: x = x'
∑ (f : P x → P x') (ee : ∏ p : P x, x,, p = x',, f p),
∏ pp : P x, maponpaths pr1 (ee pp) = e
Proof.
X: UU
P: X → UU
x, x': X
e: x = x'
∑ (f : P x → P x') (ee : ∏ p : P x, x,, p = x',, f p),
∏ pp : P x, maponpaths pr1 (ee pp) = e
  intros.
X: UU
P: X → UU
x, x': X
e: x = x'
∑ (f : P x → P x') (ee : ∏ p : P x, x,, p = x',, f p),
∏ pp : P x, maponpaths pr1 (ee pp) = e induction e.
X: UU
P: X → UU
x: X
∑ (f : P x → P x) (ee : ∏ p : P x, x,, p = x,, f p),
∏ pp : P x, maponpaths pr1 (ee pp) = idpath x
  split with (idfun (P x)).
X: UU
P: X → UU
x: X
∑ ee : ∏ p : P x, x,, p = x,, idfun (P x) p,
∏ pp : P x, maponpaths pr1 (ee pp) = idpath x
  split with (λ p, idpath _).
X: UU
P: X → UU
x: X
∏ pp : P x,
maponpaths pr1 (idpath (x,, pp)) = idpath x
  unfold maponpaths.
X: UU
P: X → UU
x: X
∏ pp : P x,
paths_rect (∑ y, P y) (x,, pp)
  (λ (t2 : ∑ y, P y) (_ : x,, pp = t2),
   pr1 (x,, pp) = pr1 t2) (idpath (pr1 (x,, pp)))
  (x,, idfun (P x) pp) (idpath (x,, pp)) = idpath x simpl.
X: UU
P: X → UU
x: X
P x → idpath x = idpath x
  intro.
X: UU
P: X → UU
x: X
pp: P x
idpath x = idpath x apply idpath.
Defined.

Definition transportf {X : UU} (P : X -> UU) {x x' : X}
           (e : x = x') : P x -> P x' := pr1 (constr1 P e).

Definition transportf_eq {X : UU} (P : X -> UU) {x x' : X} (e : x = x') ( p : P x ) :
  tpair _ x p = tpair  _ x' ( transportf P e p ) := ( pr1 ( pr2 ( constr1 P e ))) p .

Definition transportb {X : UU} (P : X -> UU) {x x' : X}
           (e : x = x') : P x' -> P x := transportf P (!e).

Declare Scope transport.
Notation "p #  x" := (transportf _ p x) (only parsing) : transport.
Notation "p #' x" := (transportb _ p x) (only parsing) : transport.
Delimit Scope transport with transport.

Definition idpath_transportf {X : UU} (P : X -> UU) {x : X} (p : P x) :
  transportf P (idpath x) p = p.
X: UU
P: X → UU
x: X
p: P x
transportf P (idpath x) p = p
Proof.
X: UU
P: X → UU
x: X
p: P x
transportf P (idpath x) p = p
  intros.
X: UU
P: X → UU
x: X
p: P x
transportf P (idpath x) p = p apply idpath.
Defined.

Lemma functtransportf {X Y : UU} (f : X -> Y) (P : Y -> UU) {x x' : X}
      (e : x = x') (p : P (f x)) :
  transportf (λ x, P (f x)) e p = transportf P (maponpaths f e) p.
X, Y: UU
f: X → Y
P: Y → UU
x, x': X
e: x = x'
p: P (f x)
transportf (λ x : X, P (f x)) e p =
transportf P (maponpaths f e) p
Proof.
X, Y: UU
f: X → Y
P: Y → UU
x, x': X
e: x = x'
p: P (f x)
transportf (λ x : X, P (f x)) e p =
transportf P (maponpaths f e) p
  intros.
X, Y: UU
f: X → Y
P: Y → UU
x, x': X
e: x = x'
p: P (f x)
transportf (λ x : X, P (f x)) e p =
transportf P (maponpaths f e) p induction e.
X, Y: UU
f: X → Y
P: Y → UU
x: X
p: P (f x)
transportf (λ x : X, P (f x)) (idpath x) p =
transportf P (maponpaths f (idpath x)) p apply idpath.
Defined.

Lemma functtransportb {X Y : UU} (f : X -> Y) (P : Y -> UU) {x x' : X}
      (e : x' = x) (p : P (f x)) :
  transportb (λ x, P (f x)) e p = transportb P (maponpaths f e) p.
X, Y: UU
f: X → Y
P: Y → UU
x, x': X
e: x' = x
p: P (f x)
transportb (λ x : X, P (f x)) e p =
transportb P (maponpaths f e) p
Proof.
X, Y: UU
f: X → Y
P: Y → UU
x, x': X
e: x' = x
p: P (f x)
transportb (λ x : X, P (f x)) e p =
transportb P (maponpaths f e) p
  intros.
X, Y: UU
f: X → Y
P: Y → UU
x, x': X
e: x' = x
p: P (f x)
transportb (λ x : X, P (f x)) e p =
transportb P (maponpaths f e) p induction e.
X, Y: UU
f: X → Y
P: Y → UU
x': X
p: P (f x')
transportb (λ x : X, P (f x)) (idpath x') p =
transportb P (maponpaths f (idpath x')) p apply idpath.
Defined.

Definition transport_f_b {X : UU} (P : X ->UU) {x y z : X} (e : y = x)
           (e' : y = z) (p : P x) :
  transportf P e' (transportb P e p) = transportf P (!e @ e') p.
X: UU
P: X → UU
x, y, z: X
e: y = x
e': y = z
p: P x
transportf P e' (transportb P e p) =
transportf P (! e @ e') p
Proof.
X: UU
P: X → UU
x, y, z: X
e: y = x
e': y = z
p: P x
transportf P e' (transportb P e p) =
transportf P (! e @ e') p
  intros.
X: UU
P: X → UU
x, y, z: X
e: y = x
e': y = z
p: P x
transportf P e' (transportb P e p) =
transportf P (! e @ e') p induction e'.
X: UU
P: X → UU
x, y: X
e: y = x
p: P x
transportf P (idpath y) (transportb P e p) =
transportf P (! e @ idpath y) p induction e.
X: UU
P: X → UU
y: X
p: P y
transportf P (idpath y) (transportb P (idpath y) p) =
transportf P (! idpath y @ idpath y) p apply idpath.
Defined.

Definition transport_b_f {X : UU} (P : X ->UU) {x y z : X} (e : x = y)
           (e' : z = y) (p : P x) :
  transportb P e' (transportf P e p) = transportf P (e @ !e') p.
X: UU
P: X → UU
x, y, z: X
e: x = y
e': z = y
p: P x
transportb P e' (transportf P e p) =
transportf P (e @ ! e') p
Proof.
X: UU
P: X → UU
x, y, z: X
e: x = y
e': z = y
p: P x
transportb P e' (transportf P e p) =
transportf P (e @ ! e') p
  intros.
X: UU
P: X → UU
x, y, z: X
e: x = y
e': z = y
p: P x
transportb P e' (transportf P e p) =
transportf P (e @ ! e') p induction e'.
X: UU
P: X → UU
x, z: X
e: x = z
p: P x
transportb P (idpath z) (transportf P e p) =
transportf P (e @ ! idpath z) p induction e.
X: UU
P: X → UU
x: X
p: P x
transportb P (idpath x) (transportf P (idpath x) p) =
transportf P (idpath x @ ! idpath x) p apply idpath.
Defined.

Definition transport_f_f {X : UU} (P : X ->UU) {x y z : X} (e : x = y)
           (e' : y = z) (p : P x) :
  transportf P e' (transportf P e p) = transportf P (e @ e') p.
X: UU
P: X → UU
x, y, z: X
e: x = y
e': y = z
p: P x
transportf P e' (transportf P e p) =
transportf P (e @ e') p
Proof.
X: UU
P: X → UU
x, y, z: X
e: x = y
e': y = z
p: P x
transportf P e' (transportf P e p) =
transportf P (e @ e') p
  intros.
X: UU
P: X → UU
x, y, z: X
e: x = y
e': y = z
p: P x
transportf P e' (transportf P e p) =
transportf P (e @ e') p induction e'.
X: UU
P: X → UU
x, y: X
e: x = y
p: P x
transportf P (idpath y) (transportf P e p) =
transportf P (e @ idpath y) p induction e.
X: UU
P: X → UU
x: X
p: P x
transportf P (idpath x) (transportf P (idpath x) p) =
transportf P (idpath x @ idpath x) p apply idpath.
Defined.

Definition transport_b_b {X : UU} (P : X ->UU) {x y z : X} (e : x = y)
           (e' : y = z) (p : P z) :
  transportb P e (transportb P e' p) = transportb P (e @ e') p.
X: UU
P: X → UU
x, y, z: X
e: x = y
e': y = z
p: P z
transportb P e (transportb P e' p) =
transportb P (e @ e') p
Proof.
X: UU
P: X → UU
x, y, z: X
e: x = y
e': y = z
p: P z
transportb P e (transportb P e' p) =
transportb P (e @ e') p
  intros.
X: UU
P: X → UU
x, y, z: X
e: x = y
e': y = z
p: P z
transportb P e (transportb P e' p) =
transportb P (e @ e') p induction e'.
X: UU
P: X → UU
x, y: X
e: x = y
p: P y
transportb P e (transportb P (idpath y) p) =
transportb P (e @ idpath y) p induction e.
X: UU
P: X → UU
x: X
p: P x
transportb P (idpath x) (transportb P (idpath x) p) =
transportb P (idpath x @ idpath x) p apply idpath.
Defined.

Definition transport_map {X : UU} {P Q : X -> UU} (f : ∏ x, P x -> Q x)
           {x : X} {y : X} (e : x = y) (p : P x) :
  transportf Q e (f x p) = f y (transportf P e p).
X: UU
P, Q: X → UU
f: ∏ x : X, P x → Q x
x, y: X
e: x = y
p: P x
transportf Q e (f x p) = f y (transportf P e p)
Proof.
X: UU
P, Q: X → UU
f: ∏ x : X, P x → Q x
x, y: X
e: x = y
p: P x
transportf Q e (f x p) = f y (transportf P e p)
  intros.
X: UU
P, Q: X → UU
f: ∏ x : X, P x → Q x
x, y: X
e: x = y
p: P x
transportf Q e (f x p) = f y (transportf P e p) induction e.
X: UU
P, Q: X → UU
f: ∏ x : X, P x → Q x
x: X
p: P x
transportf Q (idpath x) (f x p) =
f x (transportf P (idpath x) p) apply idpath.
Defined.

Definition transport_section {X : UU} {P:X -> UU} (f : ∏ x, P x)
           {x : X} {y : X} (e : x = y) :
  transportf P e (f x) = f y.
X: UU
P: X → UU
f: ∏ x : X, P x
x, y: X
e: x = y
transportf P e (f x) = f y
Proof.
X: UU
P: X → UU
f: ∏ x : X, P x
x, y: X
e: x = y
transportf P e (f x) = f y
  intros.
X: UU
P: X → UU
f: ∏ x : X, P x
x, y: X
e: x = y
transportf P e (f x) = f y exact (transport_map (P:= λ _,unit) (λ x _,f x) e tt).
Defined.

Definition transportf_fun {X Y : UU}(P : X -> UU)
           {x1 x2 : X}(e : x1 = x2)(f : P x1 -> Y) :
  transportf (λ x, (P x -> Y)) e f = f ∘ transportb P e .
X, Y: UU
P: X → UU
x1, x2: X
e: x1 = x2
f: P x1 → Y
transportf (λ x : X, P x → Y) e f = f ∘ transportb P e
Proof.
X, Y: UU
P: X → UU
x1, x2: X
e: x1 = x2
f: P x1 → Y
transportf (λ x : X, P x → Y) e f = f ∘ transportb P e
  intros.
X, Y: UU
P: X → UU
x1, x2: X
e: x1 = x2
f: P x1 → Y
transportf (λ x : X, P x → Y) e f = f ∘ transportb P e induction e.
X, Y: UU
P: X → UU
x1: X
f: P x1 → Y
transportf (λ x : X, P x → Y) (idpath x1) f =
f ∘ transportb P (idpath x1) apply idpath .
Defined.

Lemma transportb_fun' {X:UU} {P:X->UU} {Z:UU}
      {x x':X} (f:P x'->Z) (p:x=x') (y:P x) :
  f (transportf P p y) = transportb (λ x, P x->Z) p f y.
X: UU
P: X → UU
Z: UU
x, x': X
f: P x' → Z
p: x = x'
y: P x
f (transportf P p y) =
transportb (λ x : X, P x → Z) p f y
Proof.
X: UU
P: X → UU
Z: UU
x, x': X
f: P x' → Z
p: x = x'
y: P x
f (transportf P p y) =
transportb (λ x : X, P x → Z) p f y
  intros.
X: UU
P: X → UU
Z: UU
x, x': X
f: P x' → Z
p: x = x'
y: P x
f (transportf P p y) =
transportb (λ x : X, P x → Z) p f y induction p.
X: UU
P: X → UU
Z: UU
x: X
f: P x → Z
y: P x
f (transportf P (idpath x) y) =
transportb (λ x : X, P x → Z) (idpath x) f y apply idpath.
Defined.

Definition transportf_const {X : UU}{x1 x2 : X}(e : x1 = x2)(Y : UU) :
  transportf (λ x, Y) e = idfun Y.
X: UU
x1, x2: X
e: x1 = x2
Y: UU
transportf (λ _ : X, Y) e = idfun Y
Proof.
X: UU
x1, x2: X
e: x1 = x2
Y: UU
transportf (λ _ : X, Y) e = idfun Y
  intros.
X: UU
x1, x2: X
e: x1 = x2
Y: UU
transportf (λ _ : X, Y) e = idfun Y induction e.
X: UU
x1: X
Y: UU
transportf (λ _ : X, Y) (idpath x1) = idfun Y apply idpath.
Defined.

Definition transportb_const {X : UU}{x1 x2 : X}(e : x1 = x2)(Y : UU) :
  transportb (λ x, Y) e = idfun Y.
X: UU
x1, x2: X
e: x1 = x2
Y: UU
transportb (λ _ : X, Y) e = idfun Y
Proof.
X: UU
x1, x2: X
e: x1 = x2
Y: UU
transportb (λ _ : X, Y) e = idfun Y
  intros.
X: UU
x1, x2: X
e: x1 = x2
Y: UU
transportb (λ _ : X, Y) e = idfun Y induction e.
X: UU
x1: X
Y: UU
transportb (λ _ : X, Y) (idpath x1) = idfun Y apply idpath.
Defined.

Lemma transportf_paths {X : UU} (P : X -> UU) {x1 x2 : X} {e1 e2 : x1 = x2} (e : e1 = e2)
      (p : P x1) : transportf P e1 p = transportf P e2 p.
X: UU
P: X → UU
x1, x2: X
e1, e2: x1 = x2
e: e1 = e2
p: P x1
transportf P e1 p = transportf P e2 p
Proof.
X: UU
P: X → UU
x1, x2: X
e1, e2: x1 = x2
e: e1 = e2
p: P x1
transportf P e1 p = transportf P e2 p
  induction e.
X: UU
P: X → UU
x1, x2: X
e1: x1 = x2
p: P x1
transportf P e1 p = transportf P e1 p apply idpath.
Defined.
Opaque transportf_paths.

Local Open Scope transport.

Definition transportbfinv {T} (P:T->Type) {t u:T} (e:t = u) (p:P t) : e#'e#p = p.
T: Type
P: T → Type
t, u: T
e: t = u
p: P t
transportb P e (transportf P e p) = p
Proof.
T: Type
P: T → Type
t, u: T
e: t = u
p: P t
transportb P e (transportf P e p) = p
  intros.
T: Type
P: T → Type
t, u: T
e: t = u
p: P t
transportb P e (transportf P e p) = p induction e.
T: Type
P: T → Type
t: T
p: P t
transportb P (idpath t) (transportf P (idpath t) p) =
p apply idpath.
Defined.

Definition transportfbinv {T} (P:T->Type) {t u:T} (e:t = u) (p:P u) : e#e#'p = p.
T: Type
P: T → Type
t, u: T
e: t = u
p: P u
transportf P e (transportb P e p) = p
Proof.
T: Type
P: T → Type
t, u: T
e: t = u
p: P u
transportf P e (transportb P e p) = p
  intros.
T: Type
P: T → Type
t, u: T
e: t = u
p: P u
transportf P e (transportb P e p) = p induction e.
T: Type
P: T → Type
t: T
p: P t
transportf P (idpath t) (transportb P (idpath t) p) =
p apply idpath.
Defined.

Close Scope transport.

(** *** A series of lemmas about paths and [ total2 ]

    Some lemmas are adapted from the HoTT library http://github.com/HoTT/HoTT *)

Lemma base_paths {A : UU} {B : A -> UU}
      (a b : total2 B) : a = b -> pr1 a = pr1 b.
A: UU
B: A → UU
a, b: ∑ y, B y
a = b → pr1 a = pr1 b
Proof.
A: UU
B: A → UU
a, b: ∑ y, B y
a = b → pr1 a = pr1 b
  intros.
A: UU
B: A → UU
a, b: ∑ y, B y
X: a = b
pr1 a = pr1 b
  apply maponpaths; assumption.
Defined.

Lemma two_arg_paths {A B C:UU} {f : A -> B -> C} {a1 b1 a2 b2} (p : a1 = a2)
      (q : b1 = b2) : f a1 b1 = f a2 b2.
A, B, C: UU
f: A → B → C
a1: A
b1: B
a2: A
b2: B
p: a1 = a2
q: b1 = b2
f a1 b1 = f a2 b2
(* This lemma is an analogue of [maponpaths] for functions of two arguments. *)
Proof.
A, B, C: UU
f: A → B → C
a1: A
b1: B
a2: A
b2: B
p: a1 = a2
q: b1 = b2
f a1 b1 = f a2 b2
  intros.
A, B, C: UU
f: A → B → C
a1: A
b1: B
a2: A
b2: B
p: a1 = a2
q: b1 = b2
f a1 b1 = f a2 b2 induction p.
A, B, C: UU
f: A → B → C
a1: A
b1, b2: B
q: b1 = b2
f a1 b1 = f a1 b2 induction q.
A, B, C: UU
f: A → B → C
a1: A
b1: B
f a1 b1 = f a1 b1 apply idpath.
Defined.

Lemma two_arg_paths_f {A : UU} {B : A -> UU} {C:UU} {f : ∏ a, B a -> C} {a1 b1 a2  b2}
      (p : a1 = a2) (q : transportf B p b1 = b2) : f a1 b1 = f a2 b2.
A: UU
B: A → UU
C: UU
f: ∏ a : A, B a → C
a1: A
b1: B a1
a2: A
b2: B a2
p: a1 = a2
q: transportf B p b1 = b2
f a1 b1 = f a2 b2
(* This lemma is a replacement for and a generalization of [total2_paths2_f], formerly called
   [total2_paths2], which does not refer to [total2].  The lemma [total2_paths2_f] can be obtained
   as the special case [f := tpair _], and Coq can often infer the value for [f], which is declared
   as an implicit argument. *)
Proof.
A: UU
B: A → UU
C: UU
f: ∏ a : A, B a → C
a1: A
b1: B a1
a2: A
b2: B a2
p: a1 = a2
q: transportf B p b1 = b2
f a1 b1 = f a2 b2
  intros.
A: UU
B: A → UU
C: UU
f: ∏ a : A, B a → C
a1: A
b1: B a1
a2: A
b2: B a2
p: a1 = a2
q: transportf B p b1 = b2
f a1 b1 = f a2 b2 induction p.
A: UU
B: A → UU
C: UU
f: ∏ a : A, B a → C
a1: A
b1, b2: B a1
q: transportf B (idpath a1) b1 = b2
f a1 b1 = f a1 b2 induction q.
A: UU
B: A → UU
C: UU
f: ∏ a : A, B a → C
a1: A
b1: B a1
f a1 b1 = f a1 (transportf B (idpath a1) b1) apply idpath.
Defined.

Lemma two_arg_paths_b {A : UU} {B : A -> UU} {C:UU} {f : ∏ a, B a -> C} {a1 b1 a2 b2}
      (p : a1 = a2) (q : b1 = transportb B p b2) : f a1 b1 = f a2 b2.
A: UU
B: A → UU
C: UU
f: ∏ a : A, B a → C
a1: A
b1: B a1
a2: A
b2: B a2
p: a1 = a2
q: b1 = transportb B p b2
f a1 b1 = f a2 b2
(* This lemma is a replacement for and a generalization of [total2_paths2_b], which does not refer
   to [total2].  The lemma [total2_paths2_b] can be obtained as the special case [f := tpair _],
   and Coq can often infer the value for [f], which is declared as an implicit argument. *)
Proof.
A: UU
B: A → UU
C: UU
f: ∏ a : A, B a → C
a1: A
b1: B a1
a2: A
b2: B a2
p: a1 = a2
q: b1 = transportb B p b2
f a1 b1 = f a2 b2
  intros.
A: UU
B: A → UU
C: UU
f: ∏ a : A, B a → C
a1: A
b1: B a1
a2: A
b2: B a2
p: a1 = a2
q: b1 = transportb B p b2
f a1 b1 = f a2 b2 induction p.
A: UU
B: A → UU
C: UU
f: ∏ a : A, B a → C
a1: A
b1, b2: B a1
q: b1 = transportb B (idpath a1) b2
f a1 b1 = f a1 b2 change _ with (b1 = b2) in q.
A: UU
B: A → UU
C: UU
f: ∏ a : A, B a → C
a1: A
b1, b2: B a1
q: b1 = b2
f a1 b1 = f a1 b2 induction q.
A: UU
B: A → UU
C: UU
f: ∏ a : A, B a → C
a1: A
b1: B a1
f a1 b1 = f a1 b1 apply idpath.
Defined.

Lemma dirprod_paths {A : UU} {B :  UU} {s s' : A × B}
      (p : pr1 s = pr1 s') (q : pr2 s = pr2 s') : s = s'.
A, B: UU
s, s': A × B
p: pr1 s = pr1 s'
q: pr2 s = pr2 s'
s = s'
Proof.
A, B: UU
s, s': A × B
p: pr1 s = pr1 s'
q: pr2 s = pr2 s'
s = s'
  intros.
A, B: UU
s, s': A × B
p: pr1 s = pr1 s'
q: pr2 s = pr2 s'
s = s'
  induction s as [a b]; induction s' as [a' b']; simpl in *.
A, B: UU
a: A
b: B
a': A
b': B
p: a = a'
q: b = b'
a,, b = a',, b'
  exact (two_arg_paths p q).
Defined.

Lemma total2_paths_f {A : UU} {B : A -> UU} {s s' : ∑ x, B x}
      (p : pr1 s = pr1 s')
      (q : transportf B p (pr2 s) = pr2 s') : s = s'.
A: UU
B: A → UU
s, s': ∑ x : A, B x
p: pr1 s = pr1 s'
q: transportf B p (pr2 s) = pr2 s'
s = s'
Proof.
A: UU
B: A → UU
s, s': ∑ x : A, B x
p: pr1 s = pr1 s'
q: transportf B p (pr2 s) = pr2 s'
s = s'
  intros.
A: UU
B: A → UU
s, s': ∑ x : A, B x
p: pr1 s = pr1 s'
q: transportf B p (pr2 s) = pr2 s'
s = s'
  induction s as [a b]; induction s' as [a' b']; simpl in *.
A: UU
B: A → UU
a: A
b: B a
a': A
b': B a'
p: a = a'
q: transportf B p b = b'
a,, b = a',, b'
  exact (two_arg_paths_f p q).
Defined.

Lemma total2_paths_b {A : UU} {B : A -> UU} {s s' : ∑ x, B x}
      (p : pr1 s = pr1 s')
      (q : pr2 s = transportb B p (pr2 s')) : s = s'.
A: UU
B: A → UU
s, s': ∑ x : A, B x
p: pr1 s = pr1 s'
q: pr2 s = transportb B p (pr2 s')
s = s'
Proof.
A: UU
B: A → UU
s, s': ∑ x : A, B x
p: pr1 s = pr1 s'
q: pr2 s = transportb B p (pr2 s')
s = s'
  intros.
A: UU
B: A → UU
s, s': ∑ x : A, B x
p: pr1 s = pr1 s'
q: pr2 s = transportb B p (pr2 s')
s = s'
  induction s as [a b]; induction s' as [a' b']; simpl in *.
A: UU
B: A → UU
a: A
b: B a
a': A
b': B a'
p: a = a'
q: b = transportb B p b'
a,, b = a',, b'
  exact (two_arg_paths_b p q).
Defined.

Lemma total2_paths2 {A : UU} {B : UU} {a1 a2:A} {b1 b2:B}
      (p : a1 = a2) (q : b1 = b2) : a1,,b1 = a2,,b2.
A, B: UU
a1, a2: A
b1, b2: B
p: a1 = a2
q: b1 = b2
a1,, b1 = a2,, b2
Proof.
A, B: UU
a1, a2: A
b1, b2: B
p: a1 = a2
q: b1 = b2
a1,, b1 = a2,, b2
  intros.
A, B: UU
a1, a2: A
b1, b2: B
p: a1 = a2
q: b1 = b2
a1,, b1 = a2,, b2 exact (two_arg_paths p q).
Defined.

Lemma total2_paths2_f {A : UU} {B : A -> UU} {a1 : A} {b1 : B a1}
      {a2 : A} {b2 : B a2} (p : a1 = a2)
      (q : transportf B p b1 = b2) : a1,,b1 = a2,,b2.
A: UU
B: A → UU
a1: A
b1: B a1
a2: A
b2: B a2
p: a1 = a2
q: transportf B p b1 = b2
a1,, b1 = a2,, b2
Proof.
A: UU
B: A → UU
a1: A
b1: B a1
a2: A
b2: B a2
p: a1 = a2
q: transportf B p b1 = b2
a1,, b1 = a2,, b2
  intros.
A: UU
B: A → UU
a1: A
b1: B a1
a2: A
b2: B a2
p: a1 = a2
q: transportf B p b1 = b2
a1,, b1 = a2,, b2 exact (two_arg_paths_f p q).
Defined.

Lemma total2_paths2_b {A : UU} {B : A -> UU} {a1 : A} {b1 : B a1}
  {a2 : A} {b2 : B a2} (p : a1 = a2)
  (q : b1 = transportb B p b2) : a1,,b1 = a2,,b2.
A: UU
B: A → UU
a1: A
b1: B a1
a2: A
b2: B a2
p: a1 = a2
q: b1 = transportb B p b2
a1,, b1 = a2,, b2
Proof.
A: UU
B: A → UU
a1: A
b1: B a1
a2: A
b2: B a2
p: a1 = a2
q: b1 = transportb B p b2
a1,, b1 = a2,, b2
  intros.
A: UU
B: A → UU
a1: A
b1: B a1
a2: A
b2: B a2
p: a1 = a2
q: b1 = transportb B p b2
a1,, b1 = a2,, b2 exact (two_arg_paths_b p q).
Defined.

Definition pair_path_in2 {X : UU} (P : X -> UU) {x : X} {p q : P x} (e : p = q) :
  x,,p = x,,q.
X: UU
P: X → UU
x: X
p, q: P x
e: p = q
x,, p = x,, q
(* this function can often replaced by [maponpaths _] or by [maponpaths (tpair _ _)],
   except when the pairs in the goal have not been simplified enough to make the
   equality of their first parts evident, in which case this can be useful *)
Proof.
X: UU
P: X → UU
x: X
p, q: P x
e: p = q
x,, p = x,, q
  intros.
X: UU
P: X → UU
x: X
p, q: P x
e: p = q
x,, p = x,, q apply maponpaths.
X: UU
P: X → UU
x: X
p, q: P x
e: p = q
p = q exact e.
Defined.

Definition fiber_paths {A : UU} {B : A -> UU} {u v : ∑ x, B x} (p : u = v) :
  transportf (λ x, B x) (base_paths _ _ p) (pr2 u) = pr2 v.
A: UU
B: A → UU
u, v: ∑ x : A, B x
p: u = v
transportf (λ x : A, B x) (base_paths u v p) (pr2 u) =
pr2 v
Proof.
A: UU
B: A → UU
u, v: ∑ x : A, B x
p: u = v
transportf (λ x : A, B x) (base_paths u v p) (pr2 u) =
pr2 v
  induction p.
A: UU
B: A → UU
u: ∑ x : A, B x
transportf (λ x : A, B x) (base_paths u u (idpath u))
  (pr2 u) = pr2 u
  apply idpath.
Defined.

Lemma total2_fiber_paths {A : UU} {B : A -> UU} {x y : ∑ x, B x} (p : x = y) :
  total2_paths_f  _ (fiber_paths p) = p.
A: UU
B: A → UU
x, y: ∑ x : A, B x
p: x = y
total2_paths_f (base_paths x y p) (fiber_paths p) = p
Proof.
A: UU
B: A → UU
x, y: ∑ x : A, B x
p: x = y
total2_paths_f (base_paths x y p) (fiber_paths p) = p
  induction p.
A: UU
B: A → UU
x: ∑ x : A, B x
total2_paths_f (base_paths x x (idpath x))
  (fiber_paths (idpath x)) = idpath x
  induction x.
A: UU
B: A → UU
pr1: A
pr2: B pr1
total2_paths_f
  (base_paths (pr1,, pr2) (pr1,, pr2)
     (idpath (pr1,, pr2)))
  (fiber_paths (idpath (pr1,, pr2))) =
idpath (pr1,, pr2)
  apply idpath.
Defined.

Lemma base_total2_paths {A : UU} {B : A -> UU} {x y : ∑ x, B x}
      {p : pr1 x = pr1 y} (q : transportf _ p (pr2 x) = pr2 y) :
  (base_paths _ _ (total2_paths_f _ q)) = p.
A: UU
B: A → UU
x, y: ∑ x : A, B x
p: pr1 x = pr1 y
q: transportf (λ x : A, B x) p (pr2 x) = pr2 y
base_paths x y (total2_paths_f p q) = p
Proof.
A: UU
B: A → UU
x, y: ∑ x : A, B x
p: pr1 x = pr1 y
q: transportf (λ x : A, B x) p (pr2 x) = pr2 y
base_paths x y (total2_paths_f p q) = p
  induction x as [x H].
A: UU
B: A → UU
x: A
H: B x
y: ∑ x : A, B x
p: pr1 (x,, H) = pr1 y
q: transportf (λ x : A, B x) p (pr2 (x,, H)) = pr2 y
base_paths (x,, H) y (total2_paths_f p q) = p
  induction y as [y K].
A: UU
B: A → UU
x: A
H: B x
y: A
K: B y
p: pr1 (x,, H) = pr1 (y,, K)
q: transportf (λ x : A, B x) p (pr2 (x,, H)) =
pr2 (y,, K)
base_paths (x,, H) (y,, K) (total2_paths_f p q) = p
  simpl in *.
A: UU
B: A → UU
x: A
H: B x
y: A
K: B y
p: x = y
q: transportf (λ x : A, B x) p H = K
base_paths (x,, H) (y,, K) (total2_paths_f p q) = p
  induction p.
A: UU
B: A → UU
x: A
H, K: B x
q: transportf (λ x : A, B x) (idpath x) H = K
base_paths (x,, H) (x,, K)
  (total2_paths_f (idpath x) q) = idpath x
  induction q.
A: UU
B: A → UU
x: A
H: B x
base_paths (x,, H)
  (x,, transportf (λ x : A, B x) (idpath x) H)
  (total2_paths_f (idpath x)
     (idpath (transportf (λ x : A, B x) (idpath x) H))) =
idpath x
  apply idpath.
Defined.


Lemma transportf_fiber_total2_paths {A : UU} (B : A -> UU)
      (x y : ∑ x, B x)
      (p : pr1 x = pr1 y) (q : transportf _ p (pr2 x) = pr2 y) :
  transportf (λ p' : pr1 x = pr1 y, transportf _ p' (pr2 x) = pr2 y)
             (base_total2_paths q)  (fiber_paths (total2_paths_f _ q)) = q.
A: UU
B: A → UU
x, y: ∑ x : A, B x
p: pr1 x = pr1 y
q: transportf (λ x : A, B x) p (pr2 x) = pr2 y
transportf
  (λ p' : pr1 x = pr1 y,
   transportf (λ x : A, B x) p' (pr2 x) = pr2 y)
  (base_total2_paths q)
  (fiber_paths (total2_paths_f p q)) = q
Proof.
A: UU
B: A → UU
x, y: ∑ x : A, B x
p: pr1 x = pr1 y
q: transportf (λ x : A, B x) p (pr2 x) = pr2 y
transportf
  (λ p' : pr1 x = pr1 y,
   transportf (λ x : A, B x) p' (pr2 x) = pr2 y)
  (base_total2_paths q)
  (fiber_paths (total2_paths_f p q)) = q
  induction x as [x H].
A: UU
B: A → UU
x: A
H: B x
y: ∑ x : A, B x
p: pr1 (x,, H) = pr1 y
q: transportf (λ x : A, B x) p (pr2 (x,, H)) = pr2 y
transportf
  (λ p' : pr1 (x,, H) = pr1 y,
   transportf (λ x : A, B x) p' (pr2 (x,, H)) = pr2 y)
  (base_total2_paths q)
  (fiber_paths (total2_paths_f p q)) = q
  induction y as [y K].
A: UU
B: A → UU
x: A
H: B x
y: A
K: B y
p: pr1 (x,, H) = pr1 (y,, K)
q: transportf (λ x : A, B x) p (pr2 (x,, H)) =
pr2 (y,, K)
transportf
  (λ p' : pr1 (x,, H) = pr1 (y,, K),
   transportf (λ x : A, B x) p' (pr2 (x,, H)) =
   pr2 (y,, K)) (base_total2_paths q)
  (fiber_paths (total2_paths_f p q)) = q
  simpl in *.
A: UU
B: A → UU
x: A
H: B x
y: A
K: B y
p: x = y
q: transportf (λ x : A, B x) p H = K
transportf
  (λ p' : x = y, transportf (λ x : A, B x) p' H = K)
  (base_total2_paths q)
  (fiber_paths (total2_paths_f p q)) = q
  induction p.
A: UU
B: A → UU
x: A
H, K: B x
q: transportf (λ x : A, B x) (idpath x) H = K
transportf
  (λ p' : x = x, transportf (λ x : A, B x) p' H = K)
  (base_total2_paths q)
  (fiber_paths (total2_paths_f (idpath x) q)) = q
  induction q.
A: UU
B: A → UU
x: A
H: B x
transportf
  (λ p' : x = x,
   transportf (λ x : A, B x) p' H =
   transportf (λ x : A, B x) (idpath x) H)
  (base_total2_paths
     (idpath (transportf (λ x : A, B x) (idpath x) H)))
  (fiber_paths
     (total2_paths_f (idpath x)
        (idpath
           (transportf (λ x : A, B x) (idpath x) H)))) =
idpath (transportf (λ x : A, B x) (idpath x) H)
  apply idpath.
Defined.

Definition total2_base_map {S T:UU} {P: T -> UU} (f : S->T) : (∑ i, P(f i)) -> (∑ j, P j).
S, T: UU
P: T → UU
f: S → T
(∑ i : S, P (f i)) → ∑ j : T, P j
Proof.
S, T: UU
P: T → UU
f: S → T
(∑ i : S, P (f i)) → ∑ j : T, P j
  intros x.
S, T: UU
P: T → UU
f: S → T
x: ∑ i : S, P (f i)
∑ j : T, P j
  exact (f(pr1 x),,pr2 x).
Defined.

Lemma total2_section_path {X:UU} {Y:X->UU} (a:X) (b:Y a) (e:∏ x, Y x) : (a,,e a) = (a,,b) -> e a = b.
X: UU
Y: X → UU
a: X
b: Y a
e: ∏ x : X, Y x
a,, e a = a,, b → e a = b
(* this is called "Voldemort's theorem" by David McAllester, https://arxiv.org/pdf/1407.7274.pdf *)
Proof.
X: UU
Y: X → UU
a: X
b: Y a
e: ∏ x : X, Y x
a,, e a = a,, b → e a = b
  intros p.
X: UU
Y: X → UU
a: X
b: Y a
e: ∏ x : X, Y x
p: a,, e a = a,, b
e a = b simple refine (_ @ fiber_paths p).
X: UU
Y: X → UU
a: X
b: Y a
e: ∏ x : X, Y x
p: a,, e a = a,, b
e a =
transportf (λ x : X, Y x)
  (base_paths (a,, e a) (a,, b) p) (pr2 (a,, e a)) unfold base_paths.
X: UU
Y: X → UU
a: X
b: Y a
e: ∏ x : X, Y x
p: a,, e a = a,, b
e a =
transportf (λ x : X, Y x) (maponpaths pr1 p)
  (pr2 (a,, e a)) simpl.
X: UU
Y: X → UU
a: X
b: Y a
e: ∏ x : X, Y x
p: a,, e a = a,, b
e a =
transportf (λ x : X, Y x) (maponpaths pr1 p) (e a)
  apply pathsinv0, transport_section.
Defined.

(** *** Lemmas about transport adapted from the HoTT library and the HoTT book *)

Definition transportD {A : UU} (B : A -> UU) (C : ∏ a : A, B a -> UU)
           {x1 x2 : A} (p : x1 = x2) (y : B x1) (z : C x1 y) :
  C x2 (transportf _ p y).
A: UU
B: A → UU
C: ∏ a : A, B a → UU
x1, x2: A
p: x1 = x2
y: B x1
z: C x1 y
C x2 (transportf B p y)
Proof.
A: UU
B: A → UU
C: ∏ a : A, B a → UU
x1, x2: A
p: x1 = x2
y: B x1
z: C x1 y
C x2 (transportf B p y)
  intros.
A: UU
B: A → UU
C: ∏ a : A, B a → UU
x1, x2: A
p: x1 = x2
y: B x1
z: C x1 y
C x2 (transportf B p y)
  induction p.
A: UU
B: A → UU
C: ∏ a : A, B a → UU
x1: A
y: B x1
z: C x1 y
C x1 (transportf B (idpath x1) y)
  exact z.
Defined.


Definition transportf_total2 {A : UU} {B : A -> UU} {C : ∏ a:A, B a -> UU}
           {x1 x2 : A} (p : x1 = x2) (yz : ∑ y : B x1, C x1 y) :
  transportf (λ x, ∑ y : B x, C x y) p yz =
  tpair (λ y, C x2 y) (transportf _ p  (pr1 yz))
        (transportD _ _ p (pr1 yz) (pr2 yz)).
A: UU
B: A → UU
C: ∏ a : A, B a → UU
x1, x2: A
p: x1 = x2
yz: ∑ y : B x1, C x1 y
transportf (λ x : A, ∑ y : B x, C x y) p yz =
transportf B p (pr1 yz),,
transportD B C p (pr1 yz) (pr2 yz)
Proof.
A: UU
B: A → UU
C: ∏ a : A, B a → UU
x1, x2: A
p: x1 = x2
yz: ∑ y : B x1, C x1 y
transportf (λ x : A, ∑ y : B x, C x y) p yz =
transportf B p (pr1 yz),,
transportD B C p (pr1 yz) (pr2 yz)
  intros.
A: UU
B: A → UU
C: ∏ a : A, B a → UU
x1, x2: A
p: x1 = x2
yz: ∑ y : B x1, C x1 y
transportf (λ x : A, ∑ y : B x, C x y) p yz =
transportf B p (pr1 yz),,
transportD B C p (pr1 yz) (pr2 yz)
  induction p.
A: UU
B: A → UU
C: ∏ a : A, B a → UU
x1: A
yz: ∑ y : B x1, C x1 y
transportf (λ x : A, ∑ y : B x, C x y) (idpath x1) yz =
transportf B (idpath x1) (pr1 yz),,
transportD B C (idpath x1) (pr1 yz) (pr2 yz)
  induction yz.
A: UU
B: A → UU
C: ∏ a : A, B a → UU
x1: A
pr1: B x1
pr2: C x1 pr1
transportf (λ x : A, ∑ y : B x, C x y) (idpath x1)
  (pr1,, pr2) =
transportf B (idpath x1) (Preamble.pr1 (pr1,, pr2)),,
transportD B C (idpath x1) (Preamble.pr1 (pr1,, pr2))
  (Preamble.pr2 (pr1,, pr2))
  apply idpath.
Defined.

Definition transportf_dirprod (A : UU) (B B' : A -> UU)
           (x x' : ∑ a, B a × B' a) (p : pr1 x = pr1 x') :
  transportf (λ a, B a × B' a) p (pr2 x) =
  make_dirprod (transportf (λ a, B a) p (pr1 (pr2 x)))
              (transportf (λ a, B' a) p (pr2 (pr2 x))).
A: UU
B, B': A → UU
x, x': ∑ a : A, B a × B' a
p: pr1 x = pr1 x'
transportf (λ a : A, B a × B' a) p (pr2 x) =
make_dirprod
  (transportf (λ a : A, B a) p (pr1 (pr2 x)))
  (transportf (λ a : A, B' a) p (pr2 (pr2 x)))
Proof.
A: UU
B, B': A → UU
x, x': ∑ a : A, B a × B' a
p: pr1 x = pr1 x'
transportf (λ a : A, B a × B' a) p (pr2 x) =
make_dirprod
  (transportf (λ a : A, B a) p (pr1 (pr2 x)))
  (transportf (λ a : A, B' a) p (pr2 (pr2 x)))
  induction p.
A: UU
B, B': A → UU
x, x': ∑ a : A, B a × B' a
transportf (λ a : A, B a × B' a) (idpath (pr1 x))
  (pr2 x) =
make_dirprod
  (transportf (λ a : A, B a) (idpath (pr1 x))
     (pr1 (pr2 x)))
  (transportf (λ a : A, B' a) (idpath (pr1 x))
     (pr2 (pr2 x)))
  apply idpath.
Defined.

Definition transportb_dirprod (A : UU) (B B' : A -> UU)
  (x x' : ∑ a,  B a × B' a)  (p : pr1 x = pr1 x') :
  transportb (λ a, B a × B' a) p (pr2 x') =
    make_dirprod (transportb (λ a, B a) p (pr1 (pr2 x')))
                (transportb (λ a, B' a) p (pr2 (pr2 x'))).
A: UU
B, B': A → UU
x, x': ∑ a : A, B a × B' a
p: pr1 x = pr1 x'
transportb (λ a : A, B a × B' a) p (pr2 x') =
make_dirprod
  (transportb (λ a : A, B a) p (pr1 (pr2 x')))
  (transportb (λ a : A, B' a) p (pr2 (pr2 x')))
Proof.
A: UU
B, B': A → UU
x, x': ∑ a : A, B a × B' a
p: pr1 x = pr1 x'
transportb (λ a : A, B a × B' a) p (pr2 x') =
make_dirprod
  (transportb (λ a : A, B a) p (pr1 (pr2 x')))
  (transportb (λ a : A, B' a) p (pr2 (pr2 x')))
  intros.
A: UU
B, B': A → UU
x, x': ∑ a : A, B a × B' a
p: pr1 x = pr1 x'
transportb (λ a : A, B a × B' a) p (pr2 x') =
make_dirprod
  (transportb (λ a : A, B a) p (pr1 (pr2 x')))
  (transportb (λ a : A, B' a) p (pr2 (pr2 x')))
  apply transportf_dirprod.
Defined.

Definition transportf_id1 {A : UU} {a x1 x2 : A}
           (p : x1 = x2) (q : a = x1) :
  transportf (λ (x : A), a = x) p q = q @ p.
A: UU
a, x1, x2: A
p: x1 = x2
q: a = x1
transportf (λ x : A, a = x) p q = q @ p
Proof.
A: UU
a, x1, x2: A
p: x1 = x2
q: a = x1
transportf (λ x : A, a = x) p q = q @ p
  intros.
A: UU
a, x1, x2: A
p: x1 = x2
q: a = x1
transportf (λ x : A, a = x) p q = q @ p induction p.
A: UU
a, x1: A
q: a = x1
transportf (λ x : A, a = x) (idpath x1) q =
q @ idpath x1 induction q.
A: UU
a: A
transportf (λ x : A, a = x) (idpath a) (idpath a) =
idpath a @ idpath a apply idpath.
Defined.

Definition transportf_id2 {A : UU} {a x1 x2 : A}
           (p : x1 = x2) (q : x1 = a) :
  transportf (λ (x : A), x = a) p q = !p @ q.
A: UU
a, x1, x2: A
p: x1 = x2
q: x1 = a
transportf (λ x : A, x = a) p q = ! p @ q
Proof.
A: UU
a, x1, x2: A
p: x1 = x2
q: x1 = a
transportf (λ x : A, x = a) p q = ! p @ q
  intros.
A: UU
a, x1, x2: A
p: x1 = x2
q: x1 = a
transportf (λ x : A, x = a) p q = ! p @ q induction p.
A: UU
a, x1: A
q: x1 = a
transportf (λ x : A, x = a) (idpath x1) q =
! idpath x1 @ q induction q.
A: UU
x1: A
transportf (λ x : A, x = x1) (idpath x1) (idpath x1) =
! idpath x1 @ idpath x1 apply idpath.
Defined.

Definition transportf_id3 {A : UU} {x1 x2 : A}
           (p : x1 = x2) (q : x1 = x1) :
  transportf (λ (x : A), x = x) p q = !p @ q @ p.
A: UU
x1, x2: A
p: x1 = x2
q: x1 = x1
transportf (λ x : A, x = x) p q = ! p @ q @ p
Proof.
A: UU
x1, x2: A
p: x1 = x2
q: x1 = x1
transportf (λ x : A, x = x) p q = ! p @ q @ p
  intros.
A: UU
x1, x2: A
p: x1 = x2
q: x1 = x1
transportf (λ x : A, x = x) p q = ! p @ q @ p induction p.
A: UU
x1: A
q: x1 = x1
transportf (λ x : A, x = x) (idpath x1) q =
! idpath x1 @ q @ idpath x1 simpl.
A: UU
x1: A
q: x1 = x1
transportf (λ x : A, x = x) (idpath x1) q =
q @ idpath x1 apply pathsinv0.
A: UU
x1: A
q: x1 = x1
q @ idpath x1 =
transportf (λ x : A, x = x) (idpath x1) q apply pathscomp0rid.
Defined.


(** *** Homotopies between families and the total spaces *)

Definition famhomotfun {X : UU} {P Q : X -> UU}
           (h : P ~ Q) (xp : total2 P) : total2 Q.
X: UU
P, Q: X → UU
h: P ~ Q
xp: ∑ y, P y
∑ y, Q y
Proof.
X: UU
P, Q: X → UU
h: P ~ Q
xp: ∑ y, P y
∑ y, Q y
  intros.
X: UU
P, Q: X → UU
h: P ~ Q
xp: ∑ y, P y
∑ y, Q y
  exists (pr1 xp).
X: UU
P, Q: X → UU
h: P ~ Q
xp: ∑ y, P y
Q (pr1 xp)
  induction (h (pr1 xp)).
X: UU
P, Q: X → UU
h: P ~ Q
xp: ∑ y, P y
P (pr1 xp)
  apply (pr2 xp).
Defined.

Definition famhomothomothomot {X : UU} {P Q : X -> UU} (h1 h2 : P ~ Q)
           (H : h1 ~ h2) : famhomotfun h1 ~ famhomotfun h2.
X: UU
P, Q: X → UU
h1, h2: P ~ Q
H: h1 ~ h2
famhomotfun h1 ~ famhomotfun h2
Proof.
X: UU
P, Q: X → UU
h1, h2: P ~ Q
H: h1 ~ h2
famhomotfun h1 ~ famhomotfun h2
  intros.
X: UU
P, Q: X → UU
h1, h2: P ~ Q
H: h1 ~ h2
famhomotfun h1 ~ famhomotfun h2
  intro xp.
X: UU
P, Q: X → UU
h1, h2: P ~ Q
H: h1 ~ h2
xp: ∑ y, P y
famhomotfun h1 xp = famhomotfun h2 xp
  apply (maponpaths (λ q, tpair Q (pr1 xp) q)).
X: UU
P, Q: X → UU
h1, h2: P ~ Q
H: h1 ~ h2
xp: ∑ y, P y
(let p := h1 (pr1 xp) in
 let u := Q (pr1 xp) in
 paths_rect UU (P (pr1 xp))
   (λ (u0 : UU) (_ : P (pr1 xp) = u0), u0) (pr2 xp) u
   p) =
(let p := h2 (pr1 xp) in
 let u := Q (pr1 xp) in
 paths_rect UU (P (pr1 xp))
   (λ (u0 : UU) (_ : P (pr1 xp) = u0), u0) (pr2 xp) u
   p)
  induction (H (pr1 xp)).
X: UU
P, Q: X → UU
h1, h2: P ~ Q
H: h1 ~ h2
xp: ∑ y, P y
(let p := h1 (pr1 xp) in
 let u := Q (pr1 xp) in
 paths_rect UU (P (pr1 xp))
   (λ (u0 : UU) (_ : P (pr1 xp) = u0), u0) (pr2 xp) u
   p) =
(let p := h1 (pr1 xp) in
 let u := Q (pr1 xp) in
 paths_rect UU (P (pr1 xp))
   (λ (u0 : UU) (_ : P (pr1 xp) = u0), u0) (pr2 xp) u
   p)
  apply idpath.
Defined.


(** ** First fundamental notions *)

(** *** Contractibility [ iscontr ] *)

Definition iscontr (T:UU) : UU := ∑ cntr:T, ∏ t:T, t=cntr.

Notation "'∃!' x .. y , P"
  := (iscontr (∑ x, .. (∑ y, P) ..))
       (at level 200, x binder, y binder, right associativity) : type_scope.
(* type this in emacs in agda-input method with \ex ! *)

Definition make_iscontr {T : UU} : ∏ x : T, (∏ t : T, t = x) -> iscontr T
  := tpair _.

Definition iscontrpr1 {T : UU} : iscontr T -> T := pr1.

Definition iscontr_uniqueness {T} (i:iscontr T) (t:T) : t = iscontrpr1 i
  := pr2 i t.

Lemma iscontrretract {X Y : UU} (p : X -> Y) (s : Y -> X)
      (eps : ∏ y : Y, p (s y) = y) (is : iscontr X) : iscontr Y.
X, Y: UU
p: X → Y
s: Y → X
eps: ∏ y : Y, p (s y) = y
is: iscontr X
iscontr Y
Proof.
X, Y: UU
p: X → Y
s: Y → X
eps: ∏ y : Y, p (s y) = y
is: iscontr X
iscontr Y
  intros.
X, Y: UU
p: X → Y
s: Y → X
eps: ∏ y : Y, p (s y) = y
is: iscontr X
iscontr Y set (x := iscontrpr1 is).
X, Y: UU
p: X → Y
s: Y → X
eps: ∏ y : Y, p (s y) = y
is: iscontr X
x:= iscontrpr1 is: X
iscontr Y set (fe := pr2 is).
X, Y: UU
p: X → Y
s: Y → X
eps: ∏ y : Y, p (s y) = y
is: iscontr X
x:= iscontrpr1 is: X
fe:= pr2 is: (λ cntr : X, ∏ t : X, t = cntr) (pr1 is)
iscontr Y split with (p x).
X, Y: UU
p: X → Y
s: Y → X
eps: ∏ y : Y, p (s y) = y
is: iscontr X
x:= iscontrpr1 is: X
fe:= pr2 is: (λ cntr : X, ∏ t : X, t = cntr) (pr1 is)
∏ t : Y, t = p x
  intro t.
X, Y: UU
p: X → Y
s: Y → X
eps: ∏ y : Y, p (s y) = y
is: iscontr X
x:= iscontrpr1 is: X
fe:= pr2 is: (λ cntr : X, ∏ t : X, t = cntr) (pr1 is)
t: Y
t = p x apply (! (eps t) @ maponpaths p (fe (s t))).
Defined.

Lemma proofirrelevancecontr {X : UU} (is : iscontr X) (x x' : X) : x = x'.
X: UU
is: iscontr X
x, x': X
x = x'
Proof.
X: UU
is: iscontr X
x, x': X
x = x'
  intros.
X: UU
is: iscontr X
x, x': X
x = x'
  apply ((pr2 is) x @ !(pr2 is x')).
Defined.

Lemma path_to_ctr (A : UU) (B : A -> UU) (isc : ∃! a, B a)
      (a : A) (p : B a) : a = pr1 (pr1 isc).
A: UU
B: A → UU
isc: ∃! a : A, B a
a: A
p: B a
a = pr1 (pr1 isc)
Proof.
A: UU
B: A → UU
isc: ∃! a : A, B a
a: A
p: B a
a = pr1 (pr1 isc)
  set (Hi := tpair _ a p).
A: UU
B: A → UU
isc: ∃! a : A, B a
a: A
p: B a
Hi:= a,, p: ∑ y, B y
a = pr1 (pr1 isc)
  apply (maponpaths pr1 (pr2 isc Hi)).
Defined.


(** *** Homotopy fibers [ hfiber ] *)

Definition hfiber {X Y : UU} (f : X -> Y) (y : Y) : UU := ∑ x : X, f x = y.

Definition make_hfiber {X Y : UU} (f : X -> Y) {y : Y}
           (x : X) (e : f x = y) : hfiber f y :=
  tpair _ x e.

Definition hfiberpr1 {X Y : UU} (f : X -> Y) (y : Y) : hfiber f y -> X := pr1.

Definition hfiberpr2 {X Y : UU} (f : X -> Y) (y : Y) (y' : hfiber f y) : f (hfiberpr1 f y y') = y :=
  pr2 y'.

(** *** The functions between the hfibers of homotopic functions over the same point *)

Lemma hfibershomotftog {X Y : UU} (f g : X -> Y)
      (h : f ~ g) (y : Y) : hfiber f y -> hfiber g y.
X, Y: UU
f, g: X → Y
h: f ~ g
y: Y
hfiber f y → hfiber g y
Proof.
X, Y: UU
f, g: X → Y
h: f ~ g
y: Y
hfiber f y → hfiber g y
  intros xe.
X, Y: UU
f, g: X → Y
h: f ~ g
y: Y
xe: hfiber f y
hfiber g y
  induction xe as [x e].
X, Y: UU
f, g: X → Y
h: f ~ g
y: Y
x: X
e: f x = y
hfiber g y
  split with x.
X, Y: UU
f, g: X → Y
h: f ~ g
y: Y
x: X
e: f x = y
g x = y
  apply (!(h x) @ e).
Defined.

Lemma hfibershomotgtof {X Y : UU} (f g : X -> Y)
      (h : f ~ g) (y : Y) : hfiber g y -> hfiber f y.
X, Y: UU
f, g: X → Y
h: f ~ g
y: Y
hfiber g y → hfiber f y
Proof.
X, Y: UU
f, g: X → Y
h: f ~ g
y: Y
hfiber g y → hfiber f y
  intros xe.
X, Y: UU
f, g: X → Y
h: f ~ g
y: Y
xe: hfiber g y
hfiber f y
  induction xe as [x e].
X, Y: UU
f, g: X → Y
h: f ~ g
y: Y
x: X
e: g x = y
hfiber f y
  split with x.
X, Y: UU
f, g: X → Y
h: f ~ g
y: Y
x: X
e: g x = y
f x = y
  apply (h x @ e).
Defined.

(** *** Paths in homotopy fibers *)

Lemma hfibertriangle1 {X Y : UU} (f : X -> Y) {y : Y} {xe1 xe2 : hfiber f y}
      (e : xe1 = xe2) :
  pr2 xe1 = maponpaths f (maponpaths pr1 e) @ pr2 xe2.
X, Y: UU
f: X → Y
y: Y
xe1, xe2: hfiber f y
e: xe1 = xe2
pr2 xe1 = maponpaths f (maponpaths pr1 e) @ pr2 xe2
Proof.
X, Y: UU
f: X → Y
y: Y
xe1, xe2: hfiber f y
e: xe1 = xe2
pr2 xe1 = maponpaths f (maponpaths pr1 e) @ pr2 xe2
  intros.
X, Y: UU
f: X → Y
y: Y
xe1, xe2: hfiber f y
e: xe1 = xe2
pr2 xe1 = maponpaths f (maponpaths pr1 e) @ pr2 xe2 induction e.
X, Y: UU
f: X → Y
y: Y
xe1: hfiber f y
pr2 xe1 =
maponpaths f (maponpaths pr1 (idpath xe1)) @ pr2 xe1 simpl.
X, Y: UU
f: X → Y
y: Y
xe1: hfiber f y
pr2 xe1 = pr2 xe1 apply idpath.
Defined.

Corollary hfibertriangle1' {X Y : UU} (f : X -> Y) {x : X} {xe1: hfiber f (f x)}
          (e : xe1 = (x,,idpath (f x))) :
  pr2 xe1 = maponpaths f (maponpaths pr1 e).
X, Y: UU
f: X → Y
x: X
xe1: hfiber f (f x)
e: xe1 = x,, idpath (f x)
pr2 xe1 = maponpaths f (maponpaths pr1 e)
Proof.
X, Y: UU
f: X → Y
x: X
xe1: hfiber f (f x)
e: xe1 = x,, idpath (f x)
pr2 xe1 = maponpaths f (maponpaths pr1 e)
  intros.
X, Y: UU
f: X → Y
x: X
xe1: hfiber f (f x)
e: xe1 = x,, idpath (f x)
pr2 xe1 = maponpaths f (maponpaths pr1 e)
  intermediate_path (maponpaths f (maponpaths pr1 e) @ idpath (f x)).
X, Y: UU
f: X → Y
x: X
xe1: hfiber f (f x)
e: xe1 = x,, idpath (f x)
pr2 xe1 =
maponpaths f (maponpaths pr1 e) @ idpath (f x)
X, Y: UU
f: X → Y
x: X
xe1: hfiber f (f x)
e: xe1 = x,, idpath (f x)
maponpaths f (maponpaths pr1 e) @ idpath (f x) =
maponpaths f (maponpaths pr1 e)
  -
X, Y: UU
f: X → Y
x: X
xe1: hfiber f (f x)
e: xe1 = x,, idpath (f x)
pr2 xe1 =
maponpaths f (maponpaths pr1 e) @ idpath (f x) apply hfibertriangle1.
  -
X, Y: UU
f: X → Y
x: X
xe1: hfiber f (f x)
e: xe1 = x,, idpath (f x)
maponpaths f (maponpaths pr1 e) @ idpath (f x) =
maponpaths f (maponpaths pr1 e) apply pathscomp0rid.
Defined.

Lemma hfibertriangle1inv0 {X Y : UU} (f : X -> Y) {y : Y} {xe1 xe2: hfiber f y}
      (e : xe1 = xe2) :
  maponpaths f (! (maponpaths pr1 e)) @ (pr2 xe1) = pr2 xe2.
X, Y: UU
f: X → Y
y: Y
xe1, xe2: hfiber f y
e: xe1 = xe2
maponpaths f (! maponpaths pr1 e) @ pr2 xe1 = pr2 xe2
Proof.
X, Y: UU
f: X → Y
y: Y
xe1, xe2: hfiber f y
e: xe1 = xe2
maponpaths f (! maponpaths pr1 e) @ pr2 xe1 = pr2 xe2
  intros.
X, Y: UU
f: X → Y
y: Y
xe1, xe2: hfiber f y
e: xe1 = xe2
maponpaths f (! maponpaths pr1 e) @ pr2 xe1 = pr2 xe2 induction e.
X, Y: UU
f: X → Y
y: Y
xe1: hfiber f y
maponpaths f (! maponpaths pr1 (idpath xe1)) @ pr2 xe1 =
pr2 xe1 apply idpath.
Defined.

Corollary hfibertriangle1inv0' {X Y : UU} (f : X -> Y) {x : X}
          {xe2: hfiber f (f x)} (e : (x,,idpath (f x)) = xe2) :
  maponpaths f (! (maponpaths pr1 e)) = pr2 xe2.
X, Y: UU
f: X → Y
x: X
xe2: hfiber f (f x)
e: x,, idpath (f x) = xe2
maponpaths f (! maponpaths pr1 e) = pr2 xe2
Proof.
X, Y: UU
f: X → Y
x: X
xe2: hfiber f (f x)
e: x,, idpath (f x) = xe2
maponpaths f (! maponpaths pr1 e) = pr2 xe2
  intros.
X, Y: UU
f: X → Y
x: X
xe2: hfiber f (f x)
e: x,, idpath (f x) = xe2
maponpaths f (! maponpaths pr1 e) = pr2 xe2
  intermediate_path (maponpaths f (! (maponpaths pr1 e)) @ idpath (f x)).
X, Y: UU
f: X → Y
x: X
xe2: hfiber f (f x)
e: x,, idpath (f x) = xe2
maponpaths f (! maponpaths pr1 e) =
maponpaths f (! maponpaths pr1 e) @ idpath (f x)
X, Y: UU
f: X → Y
x: X
xe2: hfiber f (f x)
e: x,, idpath (f x) = xe2
maponpaths f (! maponpaths pr1 e) @ idpath (f x) =
pr2 xe2
  -
X, Y: UU
f: X → Y
x: X
xe2: hfiber f (f x)
e: x,, idpath (f x) = xe2
maponpaths f (! maponpaths pr1 e) =
maponpaths f (! maponpaths pr1 e) @ idpath (f x) apply pathsinv0, pathscomp0rid.
  -
X, Y: UU
f: X → Y
x: X
xe2: hfiber f (f x)
e: x,, idpath (f x) = xe2
maponpaths f (! maponpaths pr1 e) @ idpath (f x) =
pr2 xe2 apply hfibertriangle1inv0.
Defined.

Lemma hfibertriangle2 {X Y : UU} (f : X -> Y) {y : Y} (xe1 xe2: hfiber f y)
      (ee: pr1 xe1 = pr1 xe2) (eee: pr2 xe1 = maponpaths f ee @ (pr2 xe2)) :
  xe1 = xe2.
X, Y: UU
f: X → Y
y: Y
xe1, xe2: hfiber f y
ee: pr1 xe1 = pr1 xe2
eee: pr2 xe1 = maponpaths f ee @ pr2 xe2
xe1 = xe2
Proof.
X, Y: UU
f: X → Y
y: Y
xe1, xe2: hfiber f y
ee: pr1 xe1 = pr1 xe2
eee: pr2 xe1 = maponpaths f ee @ pr2 xe2
xe1 = xe2
  intros.
X, Y: UU
f: X → Y
y: Y
xe1, xe2: hfiber f y
ee: pr1 xe1 = pr1 xe2
eee: pr2 xe1 = maponpaths f ee @ pr2 xe2
xe1 = xe2
  induction xe1 as [t e1].
X, Y: UU
f: X → Y
y: Y
t: X
e1: f t = y
xe2: hfiber f y
ee: pr1 (t,, e1) = pr1 xe2
eee: pr2 (t,, e1) = maponpaths f ee @ pr2 xe2
t,, e1 = xe2
  induction xe2 as [t' e2].
X, Y: UU
f: X → Y
y: Y
t: X
e1: f t = y
t': X
e2: f t' = y
ee: pr1 (t,, e1) = pr1 (t',, e2)
eee: pr2 (t,, e1) = maponpaths f ee @ pr2 (t',, e2)
t,, e1 = t',, e2
  simpl in *.
X, Y: UU
f: X → Y
y: Y
t: X
e1: f t = y
t': X
e2: f t' = y
ee: t = t'
eee: e1 = maponpaths f ee @ e2
t,, e1 = t',, e2
  fold (make_hfiber f t e1).
X, Y: UU
f: X → Y
y: Y
t: X
e1: f t = y
t': X
e2: f t' = y
ee: t = t'
eee: e1 = maponpaths f ee @ e2
make_hfiber f t e1 = t',, e2
  fold (make_hfiber f t' e2).
X, Y: UU
f: X → Y
y: Y
t: X
e1: f t = y
t': X
e2: f t' = y
ee: t = t'
eee: e1 = maponpaths f ee @ e2
make_hfiber f t e1 = make_hfiber f t' e2
  induction ee.
X, Y: UU
f: X → Y
y: Y
t: X
e1, e2: f t = y
eee: e1 = maponpaths f (idpath t) @ e2
make_hfiber f t e1 = make_hfiber f t e2
  simpl in eee.
X, Y: UU
f: X → Y
y: Y
t: X
e1, e2: f t = y
eee: e1 = e2
make_hfiber f t e1 = make_hfiber f t e2
  apply (maponpaths (λ e, make_hfiber f t e) eee).
Defined.


(** *** Coconuses: spaces of paths that begin [ coconusfromt ] or end [ coconustot ] at a given point *)

Definition coconusfromt (T : UU) (t : T) := ∑ t' : T, t = t'.

Definition coconusfromtpair (T : UU) {t t' : T} (e: t = t') : coconusfromt T t
  := tpair _ t' e.

Definition coconusfromtpr1 (T : UU) (t : T) : coconusfromt T t -> T := pr1.

Definition coconustot (T : UU) (t : T) := ∑ t' : T, t' = t.

Definition coconustotpair (T : UU) {t t' : T} (e: t' = t) : coconustot T t
  := tpair _ t' e.

Definition coconustotpr1 (T : UU) (t : T) : coconustot T t -> T := pr1.

(* There is a path between any two points in a coconus. As we always have a point
in a coconus, namely the one that is given by the pair of t and the path that
starts at t and ends at t, the coconuses are contractible. *)

Lemma coconustot_isProofIrrelevant {T : UU} {t : T} (c1 c2 : coconustot T t) : c1 = c2.
T: UU
t: T
c1, c2: coconustot T t
c1 = c2
Proof.
T: UU
t: T
c1, c2: coconustot T t
c1 = c2
  intros.
T: UU
t: T
c1, c2: coconustot T t
c1 = c2
  induction c1 as [x0 x].
T: UU
t, x0: T
x: x0 = t
c2: coconustot T t
x0,, x = c2
  induction x.
T: UU
x0: T
c2: coconustot T x0
x0,, idpath x0 = c2
  induction c2 as [x1 y].
T: UU
x0, x1: T
y: x1 = x0
x0,, idpath x0 = x1,, y
  induction y.
T: UU
x1: T
x1,, idpath x1 = x1,, idpath x1
  apply idpath.
Defined.

Lemma iscontrcoconustot (T : UU) (t : T) : iscontr (coconustot T t).
T: UU
t: T
iscontr (coconustot T t)
Proof.
T: UU
t: T
iscontr (coconustot T t)
  use (tpair _ (t,, idpath t)).
T: UU
t: T
(λ cntr : coconustot T t,
 ∏ t0 : coconustot T t, t0 = cntr) (t,, idpath t)
  intros [u []].
T: UU
t, u: T
u,, idpath u = u,, idpath u
  reflexivity.
Defined.

Lemma coconusfromt_isProofIrrelevant {T : UU} {t : T} (c1 c2 : coconusfromt T t) : c1 = c2.
T: UU
t: T
c1, c2: coconusfromt T t
c1 = c2
Proof.
T: UU
t: T
c1, c2: coconusfromt T t
c1 = c2
  intros.
T: UU
t: T
c1, c2: coconusfromt T t
c1 = c2
  induction c1 as [x0 x].
T: UU
t, x0: T
x: t = x0
c2: coconusfromt T t
x0,, x = c2
  induction x.
T: UU
t: T
c2: coconusfromt T t
t,, idpath t = c2
  induction c2 as [x1 y].
T: UU
t, x1: T
y: t = x1
t,, idpath t = x1,, y
  induction y.
T: UU
t: T
t,, idpath t = t,, idpath t
  apply idpath.
Defined.

Lemma iscontrcoconusfromt (T : UU) (t : T) : iscontr (coconusfromt T t).
T: UU
t: T
iscontr (coconusfromt T t)
Proof.
T: UU
t: T
iscontr (coconusfromt T t)
  use (tpair _ (t,, idpath t)).
T: UU
t: T
(λ cntr : coconusfromt T t,
 ∏ t0 : coconusfromt T t, t0 = cntr) (t,, idpath t)
  intros [u []].
T: UU
t, u: T
t,, idpath t = t,, idpath t
  reflexivity.
Defined.

(** *** The total paths space of a type - two definitions

The definitions differ by the (non) associativity of the [ total2 ].  *)

Definition pathsspace (T : UU) := ∑ t:T, coconusfromt T t.

Definition pathsspacetriple (T : UU) {t1 t2 : T}
           (e : t1 = t2) : pathsspace T := tpair _ t1 (coconusfromtpair T e).

Definition deltap (T : UU) : T -> pathsspace T :=
  λ (t : T), pathsspacetriple T (idpath t).

Definition pathsspace' (T : UU) := ∑ xy : T × T, pr1 xy = pr2 xy.


(** *** Coconus of a function: the total space of the family of h-fibers *)

Definition coconusf {X Y : UU} (f : X -> Y) := ∑ y:Y, hfiber f y.

Definition fromcoconusf {X Y : UU} (f : X -> Y) : coconusf f -> X :=
  λ yxe, pr1 (pr2 yxe).

Definition tococonusf {X Y : UU} (f : X -> Y) : X -> coconusf f :=
  λ x, tpair _ (f x) (make_hfiber f x (idpath _)).

Lemma homottofromcoconusf {X Y : UU} (f : X -> Y) :
  ∏ yxe : coconusf f, tococonusf f (fromcoconusf f yxe) = yxe.
X, Y: UU
f: X → Y
∏ yxe : coconusf f,
tococonusf f (fromcoconusf f yxe) = yxe
Proof.
X, Y: UU
f: X → Y
∏ yxe : coconusf f,
tococonusf f (fromcoconusf f yxe) = yxe
  intros.
X, Y: UU
f: X → Y
yxe: coconusf f
tococonusf f (fromcoconusf f yxe) = yxe
  induction yxe as [y xe].
X, Y: UU
f: X → Y
y: Y
xe: hfiber f y
tococonusf f (fromcoconusf f (y,, xe)) = y,, xe
  induction xe as [x e].
X, Y: UU
f: X → Y
y: Y
x: X
e: f x = y
tococonusf f (fromcoconusf f (y,, x,, e)) = y,, x,, e
  unfold fromcoconusf.
X, Y: UU
f: X → Y
y: Y
x: X
e: f x = y
tococonusf f (pr1 (pr2 (y,, x,, e))) = y,, x,, e
  unfold tococonusf.
X, Y: UU
f: X → Y
y: Y
x: X
e: f x = y
f (pr1 (pr2 (y,, x,, e))),,
make_hfiber f (pr1 (pr2 (y,, x,, e)))
  (idpath (f (pr1 (pr2 (y,, x,, e))))) = y,, x,, e
  simpl.
X, Y: UU
f: X → Y
y: Y
x: X
e: f x = y
f x,, make_hfiber f x (idpath (f x)) = y,, x,, e
  induction e.
X, Y: UU
f: X → Y
x: X
f x,, make_hfiber f x (idpath (f x)) =
f x,, x,, idpath (f x)
  apply idpath.
Defined.

Lemma homotfromtococonusf {X Y : UU} (f : X -> Y) :
  ∏ x : X, fromcoconusf f (tococonusf f x) = x.
X, Y: UU
f: X → Y
∏ x : X, fromcoconusf f (tococonusf f x) = x
Proof.
X, Y: UU
f: X → Y
∏ x : X, fromcoconusf f (tococonusf f x) = x
  intros.
X, Y: UU
f: X → Y
x: X
fromcoconusf f (tococonusf f x) = x
  unfold fromcoconusf.
X, Y: UU
f: X → Y
x: X
pr1 (pr2 (tococonusf f x)) = x
  unfold tococonusf.
X, Y: UU
f: X → Y
x: X
pr1 (pr2 (f x,, make_hfiber f x (idpath (f x)))) = x
  simpl.
X, Y: UU
f: X → Y
x: X
x = x
  apply idpath.
Defined.


(** ** Weak equivalences *)

(** *** Basics - [ isweq ] and [ weq ] *)

Definition isweq {X Y : UU} (f : X -> Y) : UU :=
  ∏ y : Y, iscontr (hfiber f y).

Lemma idisweq (T : UU) : isweq (idfun T).
T: UU
isweq (idfun T)
Proof.
T: UU
isweq (idfun T)
  intros.
T: UU
isweq (idfun T) unfold isweq.
T: UU
∏ y : T, iscontr (hfiber (idfun T) y) intro y.
T: UU
y: T
iscontr (hfiber (idfun T) y)
  unfold iscontr.
T: UU
y: T
∑ cntr : hfiber (idfun T) y,
∏ t : hfiber (idfun T) y, t = cntr
  split with (make_hfiber (idfun T) y (idpath y)).
T: UU
y: T
∏ t : hfiber (idfun T) y,
t = make_hfiber (idfun T) y (idpath y)
  intro t.
T: UU
y: T
t: hfiber (idfun T) y
t = make_hfiber (idfun T) y (idpath y)
  induction t as [x e].
T: UU
y, x: T
e: idfun T x = y
x,, e = make_hfiber (idfun T) y (idpath y)
  induction e.
T: UU
x: T
x,, idpath (idfun T x) =
make_hfiber (idfun T) (idfun T x) (idpath (idfun T x))
  apply idpath.
Defined.

Definition weq (X Y : UU) : UU := ∑ f:X->Y, isweq f.

Notation "X ≃ Y" := (weq X%type Y%type) : type_scope.
(* written \~- or \simeq in Agda input method *)

Definition pr1weq {X Y : UU} := pr1 : X ≃ Y -> (X -> Y).
Coercion pr1weq : weq >-> Funclass.

Definition weqproperty {X Y} (f:X≃Y) : isweq f := pr2 f.

Definition weqccontrhfiber {X Y : UU} (w : X ≃ Y) (y : Y) : hfiber w y.
X, Y: UU
w: X ≃ Y
y: Y
hfiber w y
Proof.
X, Y: UU
w: X ≃ Y
y: Y
hfiber w y
  intros.
X, Y: UU
w: X ≃ Y
y: Y
hfiber w y apply (iscontrpr1 (weqproperty w y)).
Defined.

Definition weqccontrhfiber2 {X Y : UU} (w : X ≃ Y) (y : Y) :
  ∏ x : hfiber w y, x = weqccontrhfiber w y.
X, Y: UU
w: X ≃ Y
y: Y
∏ x : hfiber w y, x = weqccontrhfiber w y
Proof.
X, Y: UU
w: X ≃ Y
y: Y
∏ x : hfiber w y, x = weqccontrhfiber w y
  intros.
X, Y: UU
w: X ≃ Y
y: Y
x: hfiber w y
x = weqccontrhfiber w y unfold weqccontrhfiber.
X, Y: UU
w: X ≃ Y
y: Y
x: hfiber w y
x = iscontrpr1 (weqproperty w y) apply (pr2 (pr2 w y)).
Defined.

Definition make_weq {X Y : UU} (f : X -> Y) (is: isweq f) : X ≃ Y :=
  tpair (λ f : X -> Y, isweq f) f is.

Definition idweq (X : UU) : X ≃ X :=
  tpair (λ f : X -> X, isweq f) (λ (x : X), x) (idisweq X).

Definition isweqtoempty {X : UU} (f : X -> ∅) : isweq f.
X: UU
f: X → ∅
isweq f
Proof.
X: UU
f: X → ∅
isweq f
  intros.
X: UU
f: X → ∅
isweq f intro y.
X: UU
f: X → ∅
y: ∅
iscontr (hfiber f y) apply (fromempty y).
Defined.

Definition weqtoempty {X : UU} (f : X -> ∅) : X ≃ ∅ :=
  make_weq _ (isweqtoempty f).

Lemma isweqtoempty2 {X Y : UU} (f : X -> Y) (is : ¬ Y) : isweq f.
X, Y: UU
f: X → Y
is: ¬ Y
isweq f
Proof.
X, Y: UU
f: X → Y
is: ¬ Y
isweq f
  intros.
X, Y: UU
f: X → Y
is: ¬ Y
isweq f intro y.
X, Y: UU
f: X → Y
is: ¬ Y
y: Y
iscontr (hfiber f y) induction (is y).
Defined.

Definition weqtoempty2 {X Y : UU} (f : X -> Y) (is : ¬ Y) : X ≃ Y
  := make_weq _ (isweqtoempty2 f is).

Definition weqempty {X Y : UU} : ¬X → ¬Y → X≃Y.
X, Y: UU
¬ X → ¬ Y → X ≃ Y
Proof.
X, Y: UU
¬ X → ¬ Y → X ≃ Y
  intros nx ny.
X, Y: UU
nx: ¬ X
ny: ¬ Y
X ≃ Y
  use make_weq.
X, Y: UU
nx: ¬ X
ny: ¬ Y
X → Y
X, Y: UU
nx: ¬ X
ny: ¬ Y
isweq ?f
  -
X, Y: UU
nx: ¬ X
ny: ¬ Y
X → Y intro x.
X, Y: UU
nx: ¬ X
ny: ¬ Y
x: X
Y apply fromempty, nx.
X, Y: UU
nx: ¬ X
ny: ¬ Y
x: X
X exact x.
  -
X, Y: UU
nx: ¬ X
ny: ¬ Y
isweq (λ x : X, fromempty (nx x)) intro y.
X, Y: UU
nx: ¬ X
ny: ¬ Y
y: Y
iscontr (hfiber (λ x : X, fromempty (nx x)) y) apply fromempty, ny.
X, Y: UU
nx: ¬ X
ny: ¬ Y
y: Y
Y exact y.
Defined.

Definition invmap {X Y : UU} (w : X ≃ Y) : Y -> X :=
  λ (y : Y), hfiberpr1 _ _ (weqccontrhfiber w y).

(** *** Weak equivalences and paths spaces (more results in further sections) *)

(** We now define different homotopies and maps between the paths
    spaces corresponding to a weak equivalence. What may look like
    unnecessary complexity in the definition of [ homotinvweqweq ] is due to the
    fact that the "naive" definition needs to be
    corrected in order for lemma [ homotweqinvweqweq ] to hold. *)

Definition homotweqinvweq {X Y : UU} (w : X ≃ Y) :
  ∏ y : Y, w (invmap w y) = y.
X, Y: UU
w: X ≃ Y
∏ y : Y, w (invmap w y) = y
Proof.
X, Y: UU
w: X ≃ Y
∏ y : Y, w (invmap w y) = y
  intros.
X, Y: UU
w: X ≃ Y
y: Y
w (invmap w y) = y
  unfold invmap.
X, Y: UU
w: X ≃ Y
y: Y
w (hfiberpr1 w y (weqccontrhfiber w y)) = y
  apply (pr2 (weqccontrhfiber w y)).
Defined.

Definition homotinvweqweq0 {X Y : UU} (w : X ≃ Y) :
  ∏ x : X, x = invmap w (w x).
X, Y: UU
w: X ≃ Y
∏ x : X, x = invmap w (w x)
Proof.
X, Y: UU
w: X ≃ Y
∏ x : X, x = invmap w (w x)
  intros.
X, Y: UU
w: X ≃ Y
x: X
x = invmap w (w x)
  unfold invmap.
X, Y: UU
w: X ≃ Y
x: X
x = hfiberpr1 w (w x) (weqccontrhfiber w (w x))
  set (xe1 := weqccontrhfiber w (w x)).
X, Y: UU
w: X ≃ Y
x: X
xe1:= weqccontrhfiber w (w x): hfiber w (w x)
x = hfiberpr1 w (w x) xe1
  set (xe2 := make_hfiber w x (idpath (w x))).
X, Y: UU
w: X ≃ Y
x: X
xe1:= weqccontrhfiber w (w x): hfiber w (w x)
xe2:= make_hfiber w x (idpath (w x)): hfiber w (w x)
x = hfiberpr1 w (w x) xe1
  set (p := weqccontrhfiber2 w (w x) xe2).
X, Y: UU
w: X ≃ Y
x: X
xe1:= weqccontrhfiber w (w x): hfiber w (w x)
xe2:= make_hfiber w x (idpath (w x)): hfiber w (w x)
p:= weqccontrhfiber2 w (w x) xe2: xe2 = weqccontrhfiber w (w x)
x = hfiberpr1 w (w x) xe1
  apply (maponpaths pr1 p).
Defined.

Definition homotinvweqweq {X Y : UU} (w : X ≃ Y) :
  ∏ x : X, invmap w (w x) = x
  := λ (x : X), ! (homotinvweqweq0 w x).

Definition invmaponpathsweq {X Y : UU} (w : X ≃ Y) (x x' : X) :
  w x = w x' -> x = x'
  := pathssec2 w (invmap w) (homotinvweqweq w) x x'.

Definition invmaponpathsweqid {X Y : UU} (w : X ≃ Y) (x : X) :
  invmaponpathsweq w _ _ (idpath (w x)) = idpath x
  := pathssec2id w (invmap w) (homotinvweqweq w) x.

Definition pathsweq1 {X Y : UU} (w : X ≃ Y) (x : X) (y : Y) :
  w x = y -> x = invmap w y
  := λ e, maponpaths pr1 (pr2 (weqproperty w y) (x,,e)).

Definition pathsweq1' {X Y : UU} (w : X ≃ Y) (x : X) (y : Y) :
  x = invmap w y -> w x = y
  := λ e, maponpaths w e @ homotweqinvweq w y.

Definition pathsweq3 {X Y : UU} (w : X ≃ Y) {x x' : X}
           (e : x = x') : invmaponpathsweq w x x' (maponpaths w e) = e
  := pathssec3 w (invmap w) (homotinvweqweq w) _.

Definition pathsweq4 {X Y : UU} (w : X ≃ Y) (x x' : X)
           (e : w x = w x') : maponpaths w (invmaponpathsweq w x x' e) = e.
X, Y: UU
w: X ≃ Y
x, x': X
e: w x = w x'
maponpaths w (invmaponpathsweq w x x' e) = e
Proof.
X, Y: UU
w: X ≃ Y
x, x': X
e: w x = w x'
maponpaths w (invmaponpathsweq w x x' e) = e
  intros.
X, Y: UU
w: X ≃ Y
x, x': X
e: w x = w x'
maponpaths w (invmaponpathsweq w x x' e) = e
  induction w as [f is1].
X, Y: UU
f: X → Y
is1: isweq f
x, x': X
e: (f,, is1) x = (f,, is1) x'
maponpaths (f,, is1)
  (invmaponpathsweq (f,, is1) x x' e) = e
  set (w := make_weq f is1).
X, Y: UU
f: X → Y
is1: isweq f
x, x': X
e: (f,, is1) x = (f,, is1) x'
w:= make_weq f is1: X ≃ Y
maponpaths (f,, is1)
  (invmaponpathsweq (f,, is1) x x' e) = e
  set (g := invmap w).
X, Y: UU
f: X → Y
is1: isweq f
x, x': X
e: (f,, is1) x = (f,, is1) x'
w:= make_weq f is1: X ≃ Y
g:= invmap w: Y → X
maponpaths (f,, is1)
  (invmaponpathsweq (f,, is1) x x' e) = e
  set (ee := maponpaths g e).
X, Y: UU
f: X → Y
is1: isweq f
x, x': X
e: (f,, is1) x = (f,, is1) x'
w:= make_weq f is1: X ≃ Y
g:= invmap w: Y → X
ee:= maponpaths g e: g ((f,, is1) x) = g ((f,, is1) x')
maponpaths (f,, is1)
  (invmaponpathsweq (f,, is1) x x' e) = e
  simpl in *.
X, Y: UU
f: X → Y
is1: isweq f
x, x': X
e: f x = f x'
w:= make_weq f is1: X ≃ Y
g:= invmap w: Y → X
ee:= maponpaths g e: g (f x) = g (f x')
maponpaths f (invmaponpathsweq (f,, is1) x x' e) = e
  set (eee := maponpathshomidinv (g ∘ f) (homotinvweqweq w) x x' ee).
X, Y: UU
f: X → Y
is1: isweq f
x, x': X
e: f x = f x'
w:= make_weq f is1: X ≃ Y
g:= invmap w: Y → X
ee:= maponpaths g e: g (f x) = g (f x')
eee:= maponpathshomidinv (g ∘ f) (homotinvweqweq w) x
  x' ee: x = x'
maponpaths f (invmaponpathsweq (f,, is1) x x' e) = e

  assert (e1 : maponpaths f eee = e).
X, Y: UU
f: X → Y
is1: isweq f
x, x': X
e: f x = f x'
w:= make_weq f is1: X ≃ Y
g:= invmap w: Y → X
ee:= maponpaths g e: g (f x) = g (f x')
eee:= maponpathshomidinv (g ∘ f) (homotinvweqweq w) x
  x' ee: x = x'
maponpaths f eee = e
X, Y: UU
f: X → Y
is1: isweq f
x, x': X
e: f x = f x'
w:= make_weq f is1: X ≃ Y
g:= invmap w: Y → X
ee:= maponpaths g e: g (f x) = g (f x')
eee:= maponpathshomidinv (g ∘ f) (homotinvweqweq w) x
  x' ee: x = x'
e1: maponpaths f eee = e
maponpaths f (invmaponpathsweq (f,, is1) x x' e) = e
  {
X, Y: UU
f: X → Y
is1: isweq f
x, x': X
e: f x = f x'
w:= make_weq f is1: X ≃ Y
g:= invmap w: Y → X
ee:= maponpaths g e: g (f x) = g (f x')
eee:= maponpathshomidinv (g ∘ f) (homotinvweqweq w) x
  x' ee: x = x'
maponpaths f eee = e
    assert (e2 : maponpaths (g ∘ f) eee = ee).
X, Y: UU
f: X → Y
is1: isweq f
x, x': X
e: f x = f x'
w:= make_weq f is1: X ≃ Y
g:= invmap w: Y → X
ee:= maponpaths g e: g (f x) = g (f x')
eee:= maponpathshomidinv (g ∘ f) (homotinvweqweq w) x
  x' ee: x = x'
maponpaths (g ∘ f) eee = ee
X, Y: UU
f: X → Y
is1: isweq f
x, x': X
e: f x = f x'
w:= make_weq f is1: X ≃ Y
g:= invmap w: Y → X
ee:= maponpaths g e: g (f x) = g (f x')
eee:= maponpathshomidinv (g ∘ f) (homotinvweqweq w) x
  x' ee: x = x'
e2: maponpaths (g ∘ f) eee = ee
maponpaths f eee = e
    {
X, Y: UU
f: X → Y
is1: isweq f
x, x': X
e: f x = f x'
w:= make_weq f is1: X ≃ Y
g:= invmap w: Y → X
ee:= maponpaths g e: g (f x) = g (f x')
eee:= maponpathshomidinv (g ∘ f) (homotinvweqweq w) x
  x' ee: x = x'
maponpaths (g ∘ f) eee = ee apply maponpathshomid2. }
X, Y: UU
f: X → Y
is1: isweq f
x, x': X
e: f x = f x'
w:= make_weq f is1: X ≃ Y
g:= invmap w: Y → X
ee:= maponpaths g e: g (f x) = g (f x')
eee:= maponpathshomidinv (g ∘ f) (homotinvweqweq w) x
  x' ee: x = x'
e2: maponpaths (g ∘ f) eee = ee
maponpaths f eee = e
    assert (e3 : maponpaths g (maponpaths f eee) = maponpaths g e).
X, Y: UU
f: X → Y
is1: isweq f
x, x': X
e: f x = f x'
w:= make_weq f is1: X ≃ Y
g:= invmap w: Y → X
ee:= maponpaths g e: g (f x) = g (f x')
eee:= maponpathshomidinv (g ∘ f) (homotinvweqweq w) x
  x' ee: x = x'
e2: maponpaths (g ∘ f) eee = ee
maponpaths g (maponpaths f eee) = maponpaths g e
X, Y: UU
f: X → Y
is1: isweq f
x, x': X
e: f x = f x'
w:= make_weq f is1: X ≃ Y
g:= invmap w: Y → X
ee:= maponpaths g e: g (f x) = g (f x')
eee:= maponpathshomidinv (g ∘ f) (homotinvweqweq w) x
  x' ee: x = x'
e2: maponpaths (g ∘ f) eee = ee
e3: maponpaths g (maponpaths f eee) = maponpaths g e
maponpaths f eee = e
    {
X, Y: UU
f: X → Y
is1: isweq f
x, x': X
e: f x = f x'
w:= make_weq f is1: X ≃ Y
g:= invmap w: Y → X
ee:= maponpaths g e: g (f x) = g (f x')
eee:= maponpathshomidinv (g ∘ f) (homotinvweqweq w) x
  x' ee: x = x'
e2: maponpaths (g ∘ f) eee = ee
maponpaths g (maponpaths f eee) = maponpaths g e apply (maponpathscomp f g eee @ e2). }
X, Y: UU
f: X → Y
is1: isweq f
x, x': X
e: f x = f x'
w:= make_weq f is1: X ≃ Y
g:= invmap w: Y → X
ee:= maponpaths g e: g (f x) = g (f x')
eee:= maponpathshomidinv (g ∘ f) (homotinvweqweq w) x
  x' ee: x = x'
e2: maponpaths (g ∘ f) eee = ee
e3: maponpaths g (maponpaths f eee) = maponpaths g e
maponpaths f eee = e
    set (s := @maponpaths _ _ g (f x) (f x')).
X, Y: UU
f: X → Y
is1: isweq f
x, x': X
e: f x = f x'
w:= make_weq f is1: X ≃ Y
g:= invmap w: Y → X
ee:= maponpaths g e: g (f x) = g (f x')
eee:= maponpathshomidinv (g ∘ f) (homotinvweqweq w) x
  x' ee: x = x'
e2: maponpaths (g ∘ f) eee = ee
e3: maponpaths g (maponpaths f eee) = maponpaths g e
s:= maponpaths g: f x = f x' → g (f x) = g (f x')
maponpaths f eee = e
    set (p := @pathssec2 _ _ g f (homotweqinvweq w) (f x) (f x')).
X, Y: UU
f: X → Y
is1: isweq f
x, x': X
e: f x = f x'
w:= make_weq f is1: X ≃ Y
g:= invmap w: Y → X
ee:= maponpaths g e: g (f x) = g (f x')
eee:= maponpathshomidinv (g ∘ f) (homotinvweqweq w) x
  x' ee: x = x'
e2: maponpaths (g ∘ f) eee = ee
e3: maponpaths g (maponpaths f eee) = maponpaths g e
s:= maponpaths g: f x = f x' → g (f x) = g (f x')
p:= pathssec2 g f (homotweqinvweq w) (f x) (f x'): g (f x) = g (f x') → f x = f x'
maponpaths f eee = e
    set (eps := @pathssec3 _ _ g f (homotweqinvweq w) (f x) (f x')).
X, Y: UU
f: X → Y
is1: isweq f
x, x': X
e: f x = f x'
w:= make_weq f is1: X ≃ Y
g:= invmap w: Y → X
ee:= maponpaths g e: g (f x) = g (f x')
eee:= maponpathshomidinv (g ∘ f) (homotinvweqweq w) x
  x' ee: x = x'
e2: maponpaths (g ∘ f) eee = ee
e3: maponpaths g (maponpaths f eee) = maponpaths g e
s:= maponpaths g: f x = f x' → g (f x) = g (f x')
p:= pathssec2 g f (homotweqinvweq w) (f x) (f x'): g (f x) = g (f x') → f x = f x'
eps:= pathssec3 g f (homotweqinvweq w): ∏ e : f x = f x',
pathssec2 g f (homotweqinvweq w) (f x) (f x') (maponpaths g e) = e
maponpaths f eee = e
    apply (pathssec2 s p eps _ _ e3).
  }
X, Y: UU
f: X → Y
is1: isweq f
x, x': X
e: f x = f x'
w:= make_weq f is1: X ≃ Y
g:= invmap w: Y → X
ee:= maponpaths g e: g (f x) = g (f x')
eee:= maponpathshomidinv (g ∘ f) (homotinvweqweq w) x
  x' ee: x = x'
e1: maponpaths f eee = e
maponpaths f (invmaponpathsweq (f,, is1) x x' e) = e

  assert (e4:
            maponpaths f  (invmaponpathsweq w x x' (maponpaths f eee)) =
            maponpaths f (invmaponpathsweq w x x' e)).
X, Y: UU
f: X → Y
is1: isweq f
x, x': X
e: f x = f x'
w:= make_weq f is1: X ≃ Y
g:= invmap w: Y → X
ee:= maponpaths g e: g (f x) = g (f x')
eee:= maponpathshomidinv (g ∘ f) (homotinvweqweq w) x
  x' ee: x = x'
e1: maponpaths f eee = e
maponpaths f
  (invmaponpathsweq w x x' (maponpaths f eee)) =
maponpaths f (invmaponpathsweq w x x' e)
X, Y: UU
f: X → Y
is1: isweq f
x, x': X
e: f x = f x'
w:= make_weq f is1: X ≃ Y
g:= invmap w: Y → X
ee:= maponpaths g e: g (f x) = g (f x')
eee:= maponpathshomidinv (g ∘ f) (homotinvweqweq w) x
  x' ee: x = x'
e1: maponpaths f eee = e
e4: maponpaths f
  (invmaponpathsweq w x x' (maponpaths f eee)) =
maponpaths f (invmaponpathsweq w x x' e)
maponpaths f (invmaponpathsweq (f,, is1) x x' e) = e
  {
X, Y: UU
f: X → Y
is1: isweq f
x, x': X
e: f x = f x'
w:= make_weq f is1: X ≃ Y
g:= invmap w: Y → X
ee:= maponpaths g e: g (f x) = g (f x')
eee:= maponpathshomidinv (g ∘ f) (homotinvweqweq w) x
  x' ee: x = x'
e1: maponpaths f eee = e
maponpaths f
  (invmaponpathsweq w x x' (maponpaths f eee)) =
maponpaths f (invmaponpathsweq w x x' e)
    apply (maponpaths (λ e0: f x = f x',
                         maponpaths f (invmaponpathsweq w x x' e0))
                      e1).
  }
X, Y: UU
f: X → Y
is1: isweq f
x, x': X
e: f x = f x'
w:= make_weq f is1: X ≃ Y
g:= invmap w: Y → X
ee:= maponpaths g e: g (f x) = g (f x')
eee:= maponpathshomidinv (g ∘ f) (homotinvweqweq w) x
  x' ee: x = x'
e1: maponpaths f eee = e
e4: maponpaths f
  (invmaponpathsweq w x x' (maponpaths f eee)) =
maponpaths f (invmaponpathsweq w x x' e)
maponpaths f (invmaponpathsweq (f,, is1) x x' e) = e

  assert (X0 : invmaponpathsweq w x x' (maponpaths f eee) = eee).
X, Y: UU
f: X → Y
is1: isweq f
x, x': X
e: f x = f x'
w:= make_weq f is1: X ≃ Y
g:= invmap w: Y → X
ee:= maponpaths g e: g (f x) = g (f x')
eee:= maponpathshomidinv (g ∘ f) (homotinvweqweq w) x
  x' ee: x = x'
e1: maponpaths f eee = e
e4: maponpaths f
  (invmaponpathsweq w x x' (maponpaths f eee)) =
maponpaths f (invmaponpathsweq w x x' e)
invmaponpathsweq w x x' (maponpaths f eee) = eee
X, Y: UU
f: X → Y
is1: isweq f
x, x': X
e: f x = f x'
w:= make_weq f is1: X ≃ Y
g:= invmap w: Y → X
ee:= maponpaths g e: g (f x) = g (f x')
eee:= maponpathshomidinv (g ∘ f) (homotinvweqweq w) x
  x' ee: x = x'
e1: maponpaths f eee = e
e4: maponpaths f
  (invmaponpathsweq w x x' (maponpaths f eee)) =
maponpaths f (invmaponpathsweq w x x' e)
X0: invmaponpathsweq w x x' (maponpaths f eee) = eee
maponpaths f (invmaponpathsweq (f,, is1) x x' e) = e
  {
X, Y: UU
f: X → Y
is1: isweq f
x, x': X
e: f x = f x'
w:= make_weq f is1: X ≃ Y
g:= invmap w: Y → X
ee:= maponpaths g e: g (f x) = g (f x')
eee:= maponpathshomidinv (g ∘ f) (homotinvweqweq w) x
  x' ee: x = x'
e1: maponpaths f eee = e
e4: maponpaths f
  (invmaponpathsweq w x x' (maponpaths f eee)) =
maponpaths f (invmaponpathsweq w x x' e)
invmaponpathsweq w x x' (maponpaths f eee) = eee apply (pathsweq3 w). }
X, Y: UU
f: X → Y
is1: isweq f
x, x': X
e: f x = f x'
w:= make_weq f is1: X ≃ Y
g:= invmap w: Y → X
ee:= maponpaths g e: g (f x) = g (f x')
eee:= maponpathshomidinv (g ∘ f) (homotinvweqweq w) x
  x' ee: x = x'
e1: maponpaths f eee = e
e4: maponpaths f
  (invmaponpathsweq w x x' (maponpaths f eee)) =
maponpaths f (invmaponpathsweq w x x' e)
X0: invmaponpathsweq w x x' (maponpaths f eee) = eee
maponpaths f (invmaponpathsweq (f,, is1) x x' e) = e

  assert (e5: maponpaths f (invmaponpathsweq w x x' (maponpaths f eee))
              = maponpaths f eee).
X, Y: UU
f: X → Y
is1: isweq f
x, x': X
e: f x = f x'
w:= make_weq f is1: X ≃ Y
g:= invmap w: Y → X
ee:= maponpaths g e: g (f x) = g (f x')
eee:= maponpathshomidinv (g ∘ f) (homotinvweqweq w) x
  x' ee: x = x'
e1: maponpaths f eee = e
e4: maponpaths f
  (invmaponpathsweq w x x' (maponpaths f eee)) =
maponpaths f (invmaponpathsweq w x x' e)
X0: invmaponpathsweq w x x' (maponpaths f eee) = eee
maponpaths f
  (invmaponpathsweq w x x' (maponpaths f eee)) =
maponpaths f eee
X, Y: UU
f: X → Y
is1: isweq f
x, x': X
e: f x = f x'
w:= make_weq f is1: X ≃ Y
g:= invmap w: Y → X
ee:= maponpaths g e: g (f x) = g (f x')
eee:= maponpathshomidinv (g ∘ f) (homotinvweqweq w) x
  x' ee: x = x'
e1: maponpaths f eee = e
e4: maponpaths f
  (invmaponpathsweq w x x' (maponpaths f eee)) =
maponpaths f (invmaponpathsweq w x x' e)
X0: invmaponpathsweq w x x' (maponpaths f eee) = eee
e5: maponpaths f
  (invmaponpathsweq w x x' (maponpaths f eee)) =
maponpaths f eee
maponpaths f (invmaponpathsweq (f,, is1) x x' e) = e
  {
X, Y: UU
f: X → Y
is1: isweq f
x, x': X
e: f x = f x'
w:= make_weq f is1: X ≃ Y
g:= invmap w: Y → X
ee:= maponpaths g e: g (f x) = g (f x')
eee:= maponpathshomidinv (g ∘ f) (homotinvweqweq w) x
  x' ee: x = x'
e1: maponpaths f eee = e
e4: maponpaths f
  (invmaponpathsweq w x x' (maponpaths f eee)) =
maponpaths f (invmaponpathsweq w x x' e)
X0: invmaponpathsweq w x x' (maponpaths f eee) = eee
maponpaths f
  (invmaponpathsweq w x x' (maponpaths f eee)) =
maponpaths f eee apply (maponpaths (λ eee0: x = x', maponpaths f eee0) X0). }
X, Y: UU
f: X → Y
is1: isweq f
x, x': X
e: f x = f x'
w:= make_weq f is1: X ≃ Y
g:= invmap w: Y → X
ee:= maponpaths g e: g (f x) = g (f x')
eee:= maponpathshomidinv (g ∘ f) (homotinvweqweq w) x
  x' ee: x = x'
e1: maponpaths f eee = e
e4: maponpaths f
  (invmaponpathsweq w x x' (maponpaths f eee)) =
maponpaths f (invmaponpathsweq w x x' e)
X0: invmaponpathsweq w x x' (maponpaths f eee) = eee
e5: maponpaths f
  (invmaponpathsweq w x x' (maponpaths f eee)) =
maponpaths f eee
maponpaths f (invmaponpathsweq (f,, is1) x x' e) = e

  apply (! e4 @ e5 @ e1).
Defined.

Lemma homotweqinv  {X Y Z} (f:X->Z) (w:X≃Y) (g:Y->Z) : f ~ g ∘ w -> f ∘ invmap w ~ g.
X: Type
Y: UU
Z: Type
f: X → Z
w: X ≃ Y
g: Y → Z
f ~ g ∘ w → f ∘ invmap w ~ g
Proof.
X: Type
Y: UU
Z: Type
f: X → Z
w: X ≃ Y
g: Y → Z
f ~ g ∘ w → f ∘ invmap w ~ g
  intros p y.
X: Type
Y: UU
Z: Type
f: X → Z
w: X ≃ Y
g: Y → Z
p: f ~ g ∘ w
y: Y
(f ∘ invmap w) y = g y
  simple refine (p (invmap w y) @ _); clear p.
X: Type
Y: UU
Z: Type
f: X → Z
w: X ≃ Y
g: Y → Z
y: Y
(g ∘ w) (invmap w y) = g y
  simpl.
X: Type
Y: UU
Z: Type
f: X → Z
w: X ≃ Y
g: Y → Z
y: Y
g (w (invmap w y)) = g y apply maponpaths.
X: Type
Y: UU
Z: Type
f: X → Z
w: X ≃ Y
g: Y → Z
y: Y
w (invmap w y) = y apply homotweqinvweq.
Defined.

Lemma homotweqinv' {X Y Z} (f:X->Z) (w:X≃Y) (g:Y->Z) : f ~ g ∘ w <- f ∘ invmap w ~ g.
X: Type
Y: UU
Z: Type
f: X → Z
w: X ≃ Y
g: Y → Z
f ∘ invmap w ~ g → f ~ g ∘ w
Proof.
X: Type
Y: UU
Z: Type
f: X → Z
w: X ≃ Y
g: Y → Z
f ∘ invmap w ~ g → f ~ g ∘ w
  intros q x.
X: Type
Y: UU
Z: Type
f: X → Z
w: X ≃ Y
g: Y → Z
q: f ∘ invmap w ~ g
x: X
f x = (g ∘ w) x
  simple refine (_ @ q (w x)).
X: Type
Y: UU
Z: Type
f: X → Z
w: X ≃ Y
g: Y → Z
q: f ∘ invmap w ~ g
x: X
f x = (f ∘ invmap w) (w x)
  simpl.
X: Type
Y: UU
Z: Type
f: X → Z
w: X ≃ Y
g: Y → Z
q: f ∘ invmap w ~ g
x: X
f x = f (invmap w (w x)) apply maponpaths, pathsinv0.
X: Type
Y: UU
Z: Type
f: X → Z
w: X ≃ Y
g: Y → Z
q: f ∘ invmap w ~ g
x: X
invmap w (w x) = x apply homotinvweqweq.
Defined.

Definition isinjinvmap {X Y} (v w:X≃Y) : invmap v ~ invmap w -> v ~ w.
X, Y: UU
v, w: X ≃ Y
invmap v ~ invmap w → v ~ w
Proof.
X, Y: UU
v, w: X ≃ Y
invmap v ~ invmap w → v ~ w
  intros h x.
X, Y: UU
v, w: X ≃ Y
h: invmap v ~ invmap w
x: X
v x = w x
  intermediate_path (w ((invmap w) (v x))).
X, Y: UU
v, w: X ≃ Y
h: invmap v ~ invmap w
x: X
v x = w (invmap w (v x))
X, Y: UU
v, w: X ≃ Y
h: invmap v ~ invmap w
x: X
w (invmap w (v x)) = w x
  {
X, Y: UU
v, w: X ≃ Y
h: invmap v ~ invmap w
x: X
v x = w (invmap w (v x)) apply pathsinv0.
X, Y: UU
v, w: X ≃ Y
h: invmap v ~ invmap w
x: X
w (invmap w (v x)) = v x apply homotweqinvweq. }
X, Y: UU
v, w: X ≃ Y
h: invmap v ~ invmap w
x: X
w (invmap w (v x)) = w x
  rewrite <- h.
X, Y: UU
v, w: X ≃ Y
h: invmap v ~ invmap w
x: X
w (invmap v (v x)) = w x rewrite homotinvweqweq.
X, Y: UU
v, w: X ≃ Y
h: invmap v ~ invmap w
x: X
w x = w x apply idpath.
Defined.

Definition isinjinvmap' {X Y} (v w:X->Y) (v' w':Y->X) : w ∘ w' ~ idfun Y -> v' ∘ v ~ idfun X -> v' ~ w' -> v ~ w.
X, Y: Type
v, w: X → Y
v', w': Y → X
w ∘ w' ~ idfun Y → v' ∘ v ~ idfun X → v' ~ w' → v ~ w
Proof.
X, Y: Type
v, w: X → Y
v', w': Y → X
w ∘ w' ~ idfun Y → v' ∘ v ~ idfun X → v' ~ w' → v ~ w
  intros p q h x .
X, Y: Type
v, w: X → Y
v', w': Y → X
p: w ∘ w' ~ idfun Y
q: v' ∘ v ~ idfun X
h: v' ~ w'
x: X
v x = w x
  intermediate_path (w (w' (v x))).
X, Y: Type
v, w: X → Y
v', w': Y → X
p: w ∘ w' ~ idfun Y
q: v' ∘ v ~ idfun X
h: v' ~ w'
x: X
v x = w (w' (v x))
X, Y: Type
v, w: X → Y
v', w': Y → X
p: w ∘ w' ~ idfun Y
q: v' ∘ v ~ idfun X
h: v' ~ w'
x: X
w (w' (v x)) = w x
  {
X, Y: Type
v, w: X → Y
v', w': Y → X
p: w ∘ w' ~ idfun Y
q: v' ∘ v ~ idfun X
h: v' ~ w'
x: X
v x = w (w' (v x)) apply pathsinv0.
X, Y: Type
v, w: X → Y
v', w': Y → X
p: w ∘ w' ~ idfun Y
q: v' ∘ v ~ idfun X
h: v' ~ w'
x: X
w (w' (v x)) = v x apply p. }
X, Y: Type
v, w: X → Y
v', w': Y → X
p: w ∘ w' ~ idfun Y
q: v' ∘ v ~ idfun X
h: v' ~ w'
x: X
w (w' (v x)) = w x
  apply maponpaths.
X, Y: Type
v, w: X → Y
v', w': Y → X
p: w ∘ w' ~ idfun Y
q: v' ∘ v ~ idfun X
h: v' ~ w'
x: X
w' (v x) = x rewrite <- h.
X, Y: Type
v, w: X → Y
v', w': Y → X
p: w ∘ w' ~ idfun Y
q: v' ∘ v ~ idfun X
h: v' ~ w'
x: X
v' (v x) = x apply q.
Defined.

(** *** Adjointness property of a weak equivalence and its inverse *)

Lemma diaglemma2 {X Y : UU} (f : X -> Y) {x x' : X}
      (e1 : x = x') (e2 : f x' = f x)
      (ee : idpath (f x) = maponpaths f e1 @ e2) : maponpaths f (! e1) = e2.
X, Y: UU
f: X → Y
x, x': X
e1: x = x'
e2: f x' = f x
ee: idpath (f x) = maponpaths f e1 @ e2
maponpaths f (! e1) = e2
Proof.
X, Y: UU
f: X → Y
x, x': X
e1: x = x'
e2: f x' = f x
ee: idpath (f x) = maponpaths f e1 @ e2
maponpaths f (! e1) = e2
  intros.
X, Y: UU
f: X → Y
x, x': X
e1: x = x'
e2: f x' = f x
ee: idpath (f x) = maponpaths f e1 @ e2
maponpaths f (! e1) = e2 induction e1.
X, Y: UU
f: X → Y
x: X
e2: f x = f x
ee: idpath (f x) = maponpaths f (idpath x) @ e2
maponpaths f (! idpath x) = e2 simpl in *.
X, Y: UU
f: X → Y
x: X
e2: f x = f x
ee: idpath (f x) = e2
idpath (f x) = e2 exact ee.
Defined.

(* this is the adjointness relation for w and its homotopy inverse: *)
Definition homotweqinvweqweq {X Y : UU} (w : X ≃ Y) (x : X) :
  maponpaths w (homotinvweqweq w x) = homotweqinvweq w (w x).
X, Y: UU
w: X ≃ Y
x: X
maponpaths w (homotinvweqweq w x) =
homotweqinvweq w (w x)
Proof.
X, Y: UU
w: X ≃ Y
x: X
maponpaths w (homotinvweqweq w x) =
homotweqinvweq w (w x)
  intros.
X, Y: UU
w: X ≃ Y
x: X
maponpaths w (homotinvweqweq w x) =
homotweqinvweq w (w x)
  unfold homotinvweqweq.
X, Y: UU
w: X ≃ Y
x: X
maponpaths w (! homotinvweqweq0 w x) =
homotweqinvweq w (w x)
  unfold homotinvweqweq0.
X, Y: UU
w: X ≃ Y
x: X
maponpaths w
  (! maponpaths pr1
       (weqccontrhfiber2 w (w x)
          (make_hfiber w x (idpath (w x))))) =
homotweqinvweq w (w x)
  set (hfid := make_hfiber w x (idpath (w x))).
X, Y: UU
w: X ≃ Y
x: X
hfid:= make_hfiber w x (idpath (w x)): hfiber w (w x)
maponpaths w
  (! maponpaths pr1 (weqccontrhfiber2 w (w x) hfid)) =
homotweqinvweq w (w x)
  set (hfcc := weqccontrhfiber w (w x)).
X, Y: UU
w: X ≃ Y
x: X
hfid:= make_hfiber w x (idpath (w x)): hfiber w (w x)
hfcc:= weqccontrhfiber w (w x): hfiber w (w x)
maponpaths w
  (! maponpaths pr1 (weqccontrhfiber2 w (w x) hfid)) =
homotweqinvweq w (w x)
  unfold homotweqinvweq.
X, Y: UU
w: X ≃ Y
x: X
hfid:= make_hfiber w x (idpath (w x)): hfiber w (w x)
hfcc:= weqccontrhfiber w (w x): hfiber w (w x)
maponpaths w
  (! maponpaths pr1 (weqccontrhfiber2 w (w x) hfid)) =
pr2 (weqccontrhfiber w (w x))
  apply diaglemma2.
X, Y: UU
w: X ≃ Y
x: X
hfid:= make_hfiber w x (idpath (w x)): hfiber w (w x)
hfcc:= weqccontrhfiber w (w x): hfiber w (w x)
idpath (w x) =
maponpaths w
  (maponpaths pr1 (weqccontrhfiber2 w (w x) hfid)) @
pr2 (weqccontrhfiber w (w x))
  apply (@hfibertriangle1 _ _ w _ hfid hfcc (weqccontrhfiber2 w (w x) hfid)).
Defined.

(* another way the adjointness relation may occur (added by D. Grayson, Oct. 2015): *)
Definition weq_transportf_adjointness {X Y : UU} (w : X ≃ Y) (P : Y -> UU)
           (x : X) (p : P (w x)) :
  transportf (P ∘ w) (! homotinvweqweq w x) p
  = transportf P (! homotweqinvweq w (w x)) p.
X, Y: UU
w: X ≃ Y
P: Y → UU
x: X
p: P (w x)
transportf (P ∘ w) (! homotinvweqweq w x) p =
transportf P (! homotweqinvweq w (w x)) p
Proof.
X, Y: UU
w: X ≃ Y
P: Y → UU
x: X
p: P (w x)
transportf (P ∘ w) (! homotinvweqweq w x) p =
transportf P (! homotweqinvweq w (w x)) p
  intros.
X, Y: UU
w: X ≃ Y
P: Y → UU
x: X
p: P (w x)
transportf (P ∘ w) (! homotinvweqweq w x) p =
transportf P (! homotweqinvweq w (w x)) p refine (functtransportf w P (!homotinvweqweq w x) p @ _).
X, Y: UU
w: X ≃ Y
P: Y → UU
x: X
p: P (w x)
transportf P (maponpaths w (! homotinvweqweq w x)) p =
transportf P (! homotweqinvweq w (w x)) p
  apply (maponpaths (λ e, transportf P e p)).
X, Y: UU
w: X ≃ Y
P: Y → UU
x: X
p: P (w x)
maponpaths w (! homotinvweqweq w x) =
! homotweqinvweq w (w x)
  rewrite maponpathsinv0.
X, Y: UU
w: X ≃ Y
P: Y → UU
x: X
p: P (w x)
! maponpaths w (homotinvweqweq w x) =
! homotweqinvweq w (w x) apply maponpaths.
X, Y: UU
w: X ≃ Y
P: Y → UU
x: X
p: P (w x)
maponpaths w (homotinvweqweq w x) =
homotweqinvweq w (w x) apply homotweqinvweqweq.
Defined.

Definition weq_transportb_adjointness {X Y : UU} (w : X ≃ Y) (P : Y -> UU)
           (x : X) (p : P (w x)) :
  transportb (P ∘ w) (homotinvweqweq w x) p
  = transportb P (homotweqinvweq w (w x)) p.
X, Y: UU
w: X ≃ Y
P: Y → UU
x: X
p: P (w x)
transportb (P ∘ w) (homotinvweqweq w x) p =
transportb P (homotweqinvweq w (w x)) p
Proof.
X, Y: UU
w: X ≃ Y
P: Y → UU
x: X
p: P (w x)
transportb (P ∘ w) (homotinvweqweq w x) p =
transportb P (homotweqinvweq w (w x)) p
  intros.
X, Y: UU
w: X ≃ Y
P: Y → UU
x: X
p: P (w x)
transportb (P ∘ w) (homotinvweqweq w x) p =
transportb P (homotweqinvweq w (w x)) p
  refine (functtransportb w P (homotinvweqweq w x) p @ _).
X, Y: UU
w: X ≃ Y
P: Y → UU
x: X
p: P (w x)
transportb P (maponpaths w (homotinvweqweq w x)) p =
transportb P (homotweqinvweq w (w x)) p
  apply (maponpaths (λ e, transportb P e p)).
X, Y: UU
w: X ≃ Y
P: Y → UU
x: X
p: P (w x)
maponpaths w (homotinvweqweq w x) =
homotweqinvweq w (w x)
  apply homotweqinvweqweq.
Defined.

(** *** Transport functions are weak equivalences *)

Lemma isweqtransportf {X : UU} (P : X -> UU) {x x' : X}
      (e : x = x') : isweq (transportf P e).
X: UU
P: X → UU
x, x': X
e: x = x'
isweq (transportf P e)
Proof.
X: UU
P: X → UU
x, x': X
e: x = x'
isweq (transportf P e)
  intros.
X: UU
P: X → UU
x, x': X
e: x = x'
isweq (transportf P e) induction e.
X: UU
P: X → UU
x: X
isweq (transportf P (idpath x)) unfold transportf.
X: UU
P: X → UU
x: X
isweq (pr1 (constr1 P (idpath x))) simpl.
X: UU
P: X → UU
x: X
isweq (idfun (P x)) apply idisweq.
Defined.

Lemma isweqtransportb {X : UU} (P : X -> UU) {x x' : X}
      (e : x = x') : isweq (transportb P e).
X: UU
P: X → UU
x, x': X
e: x = x'
isweq (transportb P e)
Proof.
X: UU
P: X → UU
x, x': X
e: x = x'
isweq (transportb P e)
  intros.
X: UU
P: X → UU
x, x': X
e: x = x'
isweq (transportb P e) apply (isweqtransportf _ (pathsinv0 e)).
Defined.

(** *** Weak equivalences between contractible types (one implication) *)

Lemma iscontrweqb {X Y : UU} (w : X ≃ Y) (is : iscontr Y) : iscontr X.
X, Y: UU
w: X ≃ Y
is: iscontr Y
iscontr X
Proof.
X, Y: UU
w: X ≃ Y
is: iscontr Y
iscontr X
  intros.
X, Y: UU
w: X ≃ Y
is: iscontr Y
iscontr X apply (iscontrretract (invmap w) w (homotinvweqweq w) is).
Defined.

(** *** [ unit ] and contractibility *)

(** [ unit ] is contractible (recall that [ tt ] is the name of the
    canonical term of the type [ unit ]). *)

Lemma isProofIrrelevantUnit : ∏ x x' : unit, x = x'.
∏ x x' : unit, x = x'
Proof.
∏ x x' : unit, x = x'
  intros.
x, x': unit
x = x' induction x.
x': unit
tt = x' induction x'.
tt = tt apply idpath.
Defined.

Lemma unitl0 : tt = tt -> coconustot _ tt.
tt = tt → coconustot unit tt
Proof.
tt = tt → coconustot unit tt
  intros e.
e: tt = tt
coconustot unit tt apply (coconustotpair unit e).
Defined.

Lemma unitl1: coconustot _ tt -> tt = tt.
coconustot unit tt → tt = tt
Proof.
coconustot unit tt → tt = tt
  intro cp.
cp: coconustot unit tt
tt = tt induction cp as [x t].
x: unit
t: x = tt
tt = tt induction x.
t: tt = tt
tt = tt exact t.
Defined.

Lemma unitl2: ∏ e : tt = tt, unitl1 (unitl0 e) = e.
∏ e : tt = tt, unitl1 (unitl0 e) = e
Proof.
∏ e : tt = tt, unitl1 (unitl0 e) = e
  intros.
e: tt = tt
unitl1 (unitl0 e) = e unfold unitl0.
e: tt = tt
unitl1 (coconustotpair unit e) = e simpl.
e: tt = tt
e = e apply idpath.
Defined.

Lemma unitl3: ∏ e : tt = tt, e = idpath tt.
∏ e : tt = tt, e = idpath tt
Proof.
∏ e : tt = tt, e = idpath tt
  intros.
e: tt = tt
e = idpath tt

  assert (e0 : unitl0 (idpath tt) = unitl0 e).
e: tt = tt
unitl0 (idpath tt) = unitl0 e
e: tt = tt
e0: unitl0 (idpath tt) = unitl0 e
e = idpath tt
  {
e: tt = tt
unitl0 (idpath tt) = unitl0 e apply coconustot_isProofIrrelevant. }
e: tt = tt
e0: unitl0 (idpath tt) = unitl0 e
e = idpath tt

  set (e1 := maponpaths unitl1 e0).
e: tt = tt
e0: unitl0 (idpath tt) = unitl0 e
e1:= maponpaths unitl1 e0: unitl1 (unitl0 (idpath tt)) = unitl1 (unitl0 e)
e = idpath tt

  apply (! (unitl2 e) @ (! e1) @ (unitl2 (idpath _))).
Defined.

Theorem iscontrunit: iscontr (unit).
iscontr unit
Proof.
iscontr unit
  split with tt.
∏ t : unit, t = tt intros t.
t: unit
t = tt apply (isProofIrrelevantUnit t tt).
Defined.

(** [ paths ] in [ unit ] are contractible. *)

Theorem iscontrpathsinunit (x x' : unit) : iscontr (x = x').
x, x': unit
iscontr (x = x')
Proof.
x, x': unit
iscontr (x = x')
  intros.
x, x': unit
iscontr (x = x')
  split with (isProofIrrelevantUnit x x').
x, x': unit
∏ t : x = x', t = isProofIrrelevantUnit x x'
  intros e'.
x, x': unit
e': x = x'
e' = isProofIrrelevantUnit x x'
  induction x.
x': unit
e': tt = x'
e' = isProofIrrelevantUnit tt x'
  induction x'.
e': tt = tt
e' = isProofIrrelevantUnit tt tt
  simpl.
e': tt = tt
e' = idpath tt
  apply unitl3.
Defined.

(** A type [ T : UU ] is contractible if and only if [ T -> unit ] is
    a weak equivalence. *)

Lemma ifcontrthenunitl0 (e1 e2 : tt = tt) : e1 = e2.
e1, e2: tt = tt
e1 = e2
Proof.
e1, e2: tt = tt
e1 = e2
  intros.
e1, e2: tt = tt
e1 = e2
  apply proofirrelevancecontr.
e1, e2: tt = tt
iscontr (tt = tt)
  apply (iscontrpathsinunit tt tt).
Defined.

Lemma isweqcontrtounit {T : UU} (is : iscontr T) : isweq (λ (_ : T), tt).
T: UU
is: iscontr T
isweq (λ _ : T, tt)
Proof.
T: UU
is: iscontr T
isweq (λ _ : T, tt)
  intros.
T: UU
is: iscontr T
isweq (λ _ : T, tt) unfold isweq.
T: UU
is: iscontr T
∏ y : unit, iscontr (hfiber (λ _ : T, tt) y) intro y.
T: UU
is: iscontr T
y: unit
iscontr (hfiber (λ _ : T, tt) y) induction y.
T: UU
is: iscontr T
iscontr (hfiber (λ _ : T, tt) tt)
  induction is as [c h].
T: UU
c: T
h: ∏ t : T, t = c
iscontr (hfiber (λ _ : T, tt) tt)
  set (hc := make_hfiber _ c (idpath tt)).
T: UU
c: T
h: ∏ t : T, t = c
hc:= make_hfiber (λ _ : T, tt) c (idpath tt): hfiber (λ _ : T, tt) tt
iscontr (hfiber (λ _ : T, tt) tt)
  split with hc.
T: UU
c: T
h: ∏ t : T, t = c
hc:= make_hfiber (λ _ : T, tt) c (idpath tt): hfiber (λ _ : T, tt) tt
∏ t : hfiber (λ _ : T, tt) tt, t = hc
  intros ha.
T: UU
c: T
h: ∏ t : T, t = c
hc:= make_hfiber (λ _ : T, tt) c (idpath tt): hfiber (λ _ : T, tt) tt
ha: hfiber (λ _ : T, tt) tt
ha = hc
  induction ha as [x e].
T: UU
c: T
h: ∏ t : T, t = c
hc:= make_hfiber (λ _ : T, tt) c (idpath tt): hfiber (λ _ : T, tt) tt
x: T
e: tt = tt
x,, e = hc
  unfold hc.
T: UU
c: T
h: ∏ t : T, t = c
hc:= make_hfiber (λ _ : T, tt) c (idpath tt): hfiber (λ _ : T, tt) tt
x: T
e: tt = tt
x,, e = make_hfiber (λ _ : T, tt) c (idpath tt) unfold make_hfiber.
T: UU
c: T
h: ∏ t : T, t = c
hc:= make_hfiber (λ _ : T, tt) c (idpath tt): hfiber (λ _ : T, tt) tt
x: T
e: tt = tt
x,, e = c,, idpath tt unfold isProofIrrelevantUnit.
T: UU
c: T
h: ∏ t : T, t = c
hc:= make_hfiber (λ _ : T, tt) c (idpath tt): hfiber (λ _ : T, tt) tt
x: T
e: tt = tt
x,, e = c,, idpath tt
  simpl.
T: UU
c: T
h: ∏ t : T, t = c
hc:= make_hfiber (λ _ : T, tt) c (idpath tt): hfiber (λ _ : T, tt) tt
x: T
e: tt = tt
x,, e = c,, idpath tt
  apply (λ q, two_arg_paths_f (h x) q).
T: UU
c: T
h: ∏ t : T, t = c
hc:= make_hfiber (λ _ : T, tt) c (idpath tt): hfiber (λ _ : T, tt) tt
x: T
e: tt = tt
transportf (λ _ : T, tt = tt) (h x) e = idpath tt
  apply ifcontrthenunitl0.
Defined.

Definition weqcontrtounit {T : UU} (is : iscontr T) : T ≃ unit :=
  make_weq _ (isweqcontrtounit is).

Theorem iscontrifweqtounit {X : UU} (w : X ≃ unit) : iscontr X.
X: UU
w: X ≃ unit
iscontr X
Proof.
X: UU
w: X ≃ unit
iscontr X
  intros.
X: UU
w: X ≃ unit
iscontr X
  apply (iscontrweqb w).
X: UU
w: X ≃ unit
iscontr unit
  apply iscontrunit.
Defined.

(** *** Homotopy equivalence is a weak equivalence *)

Definition hfibersgftog {X Y Z : UU} (f : X -> Y) (g : Y -> Z) (z : Z)
           (xe : hfiber (g ∘ f) z) : hfiber g z :=
  make_hfiber g (f (pr1 xe)) (pr2 xe).

Lemma constr2 {X Y : UU} (f : X -> Y) (g : Y -> X)
      (efg: ∏ y : Y, f (g y) = y) (x0 : X) (xe : hfiber g x0) :
  ∑ xe' : hfiber (g ∘ f) x0, xe = hfibersgftog f g x0 xe'.
X, Y: UU
f: X → Y
g: Y → X
efg: ∏ y : Y, f (g y) = y
x0: X
xe: hfiber g x0
∑ xe' : hfiber (g ∘ f) x0,
xe = hfibersgftog f g x0 xe'
Proof.
X, Y: UU
f: X → Y
g: Y → X
efg: ∏ y : Y, f (g y) = y
x0: X
xe: hfiber g x0
∑ xe' : hfiber (g ∘ f) x0,
xe = hfibersgftog f g x0 xe'
  intros.
X, Y: UU
f: X → Y
g: Y → X
efg: ∏ y : Y, f (g y) = y
x0: X
xe: hfiber g x0
∑ xe' : hfiber (g ∘ f) x0,
xe = hfibersgftog f g x0 xe'
  induction xe as [y0 e].
X, Y: UU
f: X → Y
g: Y → X
efg: ∏ y : Y, f (g y) = y
x0: X
y0: Y
e: g y0 = x0
∑ xe' : hfiber (g ∘ f) x0,
y0,, e = hfibersgftog f g x0 xe'
  set (eint := pathssec1 _ _ efg _ _ e).
X, Y: UU
f: X → Y
g: Y → X
efg: ∏ y : Y, f (g y) = y
x0: X
y0: Y
e: g y0 = x0
eint:= pathssec1 g f efg y0 x0 e: y0 = f x0
∑ xe' : hfiber (g ∘ f) x0,
y0,, e = hfibersgftog f g x0 xe'
  set (ee := ! (maponpaths g eint) @ e).
X, Y: UU
f: X → Y
g: Y → X
efg: ∏ y : Y, f (g y) = y
x0: X
y0: Y
e: g y0 = x0
eint:= pathssec1 g f efg y0 x0 e: y0 = f x0
ee:= ! maponpaths g eint @ e: g (f x0) = x0
∑ xe' : hfiber (g ∘ f) x0,
y0,, e = hfibersgftog f g x0 xe'
  split with (make_hfiber (g ∘ f) x0 ee).
X, Y: UU
f: X → Y
g: Y → X
efg: ∏ y : Y, f (g y) = y
x0: X
y0: Y
e: g y0 = x0
eint:= pathssec1 g f efg y0 x0 e: y0 = f x0
ee:= ! maponpaths g eint @ e: g (f x0) = x0
y0,, e =
hfibersgftog f g x0 (make_hfiber (g ∘ f) x0 ee)
  unfold hfibersgftog.
X, Y: UU
f: X → Y
g: Y → X
efg: ∏ y : Y, f (g y) = y
x0: X
y0: Y
e: g y0 = x0
eint:= pathssec1 g f efg y0 x0 e: y0 = f x0
ee:= ! maponpaths g eint @ e: g (f x0) = x0
y0,, e =
make_hfiber g (f (pr1 (make_hfiber (g ∘ f) x0 ee)))
  (pr2 (make_hfiber (g ∘ f) x0 ee))
  unfold make_hfiber.
X, Y: UU
f: X → Y
g: Y → X
efg: ∏ y : Y, f (g y) = y
x0: X
y0: Y
e: g y0 = x0
eint:= pathssec1 g f efg y0 x0 e: y0 = f x0
ee:= ! maponpaths g eint @ e: g (f x0) = x0
y0,, e = f (pr1 (x0,, ee)),, pr2 (x0,, ee)
  simpl.
X, Y: UU
f: X → Y
g: Y → X
efg: ∏ y : Y, f (g y) = y
x0: X
y0: Y
e: g y0 = x0
eint:= pathssec1 g f efg y0 x0 e: y0 = f x0
ee:= ! maponpaths g eint @ e: g (f x0) = x0
y0,, e = f x0,, ee
  apply (two_arg_paths_f eint).
X, Y: UU
f: X → Y
g: Y → X
efg: ∏ y : Y, f (g y) = y
x0: X
y0: Y
e: g y0 = x0
eint:= pathssec1 g f efg y0 x0 e: y0 = f x0
ee:= ! maponpaths g eint @ e: g (f x0) = x0
transportf (λ x : Y, g x = x0) eint e = ee
  induction eint.
X, Y: UU
f: X → Y
g: Y → X
efg: ∏ y : Y, f (g y) = y
x0: X
y0: Y
e: g y0 = x0
ee:= ! maponpaths g (idpath y0) @ e: g y0 = x0
transportf (λ x : Y, g x = x0) (idpath y0) e = ee
  apply idpath.
Defined.

Lemma iscontrhfiberl1 {X Y : UU} (f : X -> Y) (g : Y -> X)
      (efg: ∏ y : Y, f (g y) = y) (x0 : X)
      (is : iscontr (hfiber (g ∘ f) x0)) : iscontr (hfiber g x0).
X, Y: UU
f: X → Y
g: Y → X
efg: ∏ y : Y, f (g y) = y
x0: X
is: iscontr (hfiber (g ∘ f) x0)
iscontr (hfiber g x0)
Proof.
X, Y: UU
f: X → Y
g: Y → X
efg: ∏ y : Y, f (g y) = y
x0: X
is: iscontr (hfiber (g ∘ f) x0)
iscontr (hfiber g x0)
  intros.
X, Y: UU
f: X → Y
g: Y → X
efg: ∏ y : Y, f (g y) = y
x0: X
is: iscontr (hfiber (g ∘ f) x0)
iscontr (hfiber g x0)
  set (f1 := hfibersgftog f g x0).
X, Y: UU
f: X → Y
g: Y → X
efg: ∏ y : Y, f (g y) = y
x0: X
is: iscontr (hfiber (g ∘ f) x0)
f1:= hfibersgftog f g x0: hfiber (g ∘ f) x0 → hfiber g x0
iscontr (hfiber g x0)
  set (g1 := λ (xe : hfiber g x0), pr1 (constr2 f g efg x0 xe)).
X, Y: UU
f: X → Y
g: Y → X
efg: ∏ y : Y, f (g y) = y
x0: X
is: iscontr (hfiber (g ∘ f) x0)
f1:= hfibersgftog f g x0: hfiber (g ∘ f) x0 → hfiber g x0
g1:= λ xe : hfiber g x0, pr1 (constr2 f g efg x0 xe): hfiber g x0 → hfiber (g ∘ f) x0
iscontr (hfiber g x0)
  set (efg1 := λ (xe : hfiber g x0), ! (pr2 (constr2 f g efg x0 xe))).
X, Y: UU
f: X → Y
g: Y → X
efg: ∏ y : Y, f (g y) = y
x0: X
is: iscontr (hfiber (g ∘ f) x0)
f1:= hfibersgftog f g x0: hfiber (g ∘ f) x0 → hfiber g x0
g1:= λ xe : hfiber g x0, pr1 (constr2 f g efg x0 xe): hfiber g x0 → hfiber (g ∘ f) x0
efg1:= λ xe : hfiber g x0, ! pr2 (constr2 f g efg x0 xe): ∏ xe : hfiber g x0,
hfibersgftog f g x0
  (pr1 (constr2 f g efg x0 xe)) = xe
iscontr (hfiber g x0)
  apply (iscontrretract f1 g1 efg1).
X, Y: UU
f: X → Y
g: Y → X
efg: ∏ y : Y, f (g y) = y
x0: X
is: iscontr (hfiber (g ∘ f) x0)
f1:= hfibersgftog f g x0: hfiber (g ∘ f) x0 → hfiber g x0
g1:= λ xe : hfiber g x0, pr1 (constr2 f g efg x0 xe): hfiber g x0 → hfiber (g ∘ f) x0
efg1:= λ xe : hfiber g x0, ! pr2 (constr2 f g efg x0 xe): ∏ xe : hfiber g x0,
hfibersgftog f g x0
  (pr1 (constr2 f g efg x0 xe)) = xe
iscontr (hfiber (g ∘ f) x0)
  apply is.
Defined.

Definition homothfiber1 {X Y : UU} (f g : X -> Y)
           (h : f ~ g) (y : Y) (xe : hfiber f y) : hfiber g y.
X, Y: UU
f, g: X → Y
h: f ~ g
y: Y
xe: hfiber f y
hfiber g y
Proof.
X, Y: UU
f, g: X → Y
h: f ~ g
y: Y
xe: hfiber f y
hfiber g y
  intros.
X, Y: UU
f, g: X → Y
h: f ~ g
y: Y
xe: hfiber f y
hfiber g y
  set (x := pr1 xe).
X, Y: UU
f, g: X → Y
h: f ~ g
y: Y
xe: hfiber f y
x:= pr1 xe: X
hfiber g y
  set (e := pr2 xe).
X, Y: UU
f, g: X → Y
h: f ~ g
y: Y
xe: hfiber f y
x:= pr1 xe: X
e:= pr2 xe: (λ x : X, f x = y) (pr1 xe)
hfiber g y
  apply (make_hfiber g x (!(h x) @ e)).
Defined.

Definition homothfiber2 {X Y : UU} (f g : X -> Y)
           (h : f ~ g) (y : Y) (xe : hfiber g y) : hfiber f y.
X, Y: UU
f, g: X → Y
h: f ~ g
y: Y
xe: hfiber g y
hfiber f y
Proof.
X, Y: UU
f, g: X → Y
h: f ~ g
y: Y
xe: hfiber g y
hfiber f y
  intros.
X, Y: UU
f, g: X → Y
h: f ~ g
y: Y
xe: hfiber g y
hfiber f y
  set (x := pr1 xe).
X, Y: UU
f, g: X → Y
h: f ~ g
y: Y
xe: hfiber g y
x:= pr1 xe: X
hfiber f y
  set (e := pr2 xe).
X, Y: UU
f, g: X → Y
h: f ~ g
y: Y
xe: hfiber g y
x:= pr1 xe: X
e:= pr2 xe: (λ x : X, g x = y) (pr1 xe)
hfiber f y
  apply (make_hfiber f x (h x @ e)).
Defined.

Definition homothfiberretr {X Y : UU} (f g : X -> Y)
           (h : f ~ g) (y : Y) (xe : hfiber g y) :
  homothfiber1 f g h y (homothfiber2 f g h y xe) = xe.
X, Y: UU
f, g: X → Y
h: f ~ g
y: Y
xe: hfiber g y
homothfiber1 f g h y (homothfiber2 f g h y xe) = xe
Proof.
X, Y: UU
f, g: X → Y
h: f ~ g
y: Y
xe: hfiber g y
homothfiber1 f g h y (homothfiber2 f g h y xe) = xe
  intros.
X, Y: UU
f, g: X → Y
h: f ~ g
y: Y
xe: hfiber g y
homothfiber1 f g h y (homothfiber2 f g h y xe) = xe
  induction xe as [x e].
X, Y: UU
f, g: X → Y
h: f ~ g
y: Y
x: X
e: g x = y
homothfiber1 f g h y (homothfiber2 f g h y (x,, e)) =
x,, e
  simpl.
X, Y: UU
f, g: X → Y
h: f ~ g
y: Y
x: X
e: g x = y
homothfiber1 f g h y (homothfiber2 f g h y (x,, e)) =
x,, e
  fold (make_hfiber g x e).
X, Y: UU
f, g: X → Y
h: f ~ g
y: Y
x: X
e: g x = y
homothfiber1 f g h y
  (homothfiber2 f g h y (make_hfiber g x e)) =
make_hfiber g x e
  set (xe1 := make_hfiber g x (! h x @ h x @ e)).
X, Y: UU
f, g: X → Y
h: f ~ g
y: Y
x: X
e: g x = y
xe1:= make_hfiber g x (! h x @ h x @ e): hfiber g y
homothfiber1 f g h y
  (homothfiber2 f g h y (make_hfiber g x e)) =
make_hfiber g x e
  set (xe2 := make_hfiber g x e).
X, Y: UU
f, g: X → Y
h: f ~ g
y: Y
x: X
e: g x = y
xe1:= make_hfiber g x (! h x @ h x @ e): hfiber g y
xe2:= make_hfiber g x e: hfiber g y
homothfiber1 f g h y (homothfiber2 f g h y xe2) = xe2
  apply (hfibertriangle2 g xe1 xe2 (idpath _)).
X, Y: UU
f, g: X → Y
h: f ~ g
y: Y
x: X
e: g x = y
xe1:= make_hfiber g x (! h x @ h x @ e): hfiber g y
xe2:= make_hfiber g x e: hfiber g y
pr2 xe1 = maponpaths g (idpath (pr1 xe1)) @ pr2 xe2
  simpl.
X, Y: UU
f, g: X → Y
h: f ~ g
y: Y
x: X
e: g x = y
xe1:= make_hfiber g x (! h x @ h x @ e): hfiber g y
xe2:= make_hfiber g x e: hfiber g y
! h x @ h x @ e = e

  (* A little lemma: *)
  assert (ee : ∏ a b c : Y, ∏ p : a = b, ∏ q : b = c,
                                               !p @ (p @ q) = q).
X, Y: UU
f, g: X → Y
h: f ~ g
y: Y
x: X
e: g x = y
xe1:= make_hfiber g x (! h x @ h x @ e): hfiber g y
xe2:= make_hfiber g x e: hfiber g y
∏ (a b c : Y) (p : a = b) (q : b = c), ! p @ p @ q = q
X, Y: UU
f, g: X → Y
h: f ~ g
y: Y
x: X
e: g x = y
xe1:= make_hfiber g x (! h x @ h x @ e): hfiber g y
xe2:= make_hfiber g x e: hfiber g y
ee: ∏ (a b c : Y) (p : a = b) (q : b = c),
! p @ p @ q = q
! h x @ h x @ e = e
  {
X, Y: UU
f, g: X → Y
h: f ~ g
y: Y
x: X
e: g x = y
xe1:= make_hfiber g x (! h x @ h x @ e): hfiber g y
xe2:= make_hfiber g x e: hfiber g y
∏ (a b c : Y) (p : a = b) (q : b = c), ! p @ p @ q = q intros.
X, Y: UU
f, g: X → Y
h: f ~ g
y: Y
x: X
e: g x = y
xe1:= make_hfiber g x (! h x @ h x @ e): hfiber g y
xe2:= make_hfiber g x e: hfiber g y
a, b, c: Y
p: a = b
q: b = c
! p @ p @ q = q induction p.
X, Y: UU
f, g: X → Y
h: f ~ g
y: Y
x: X
e: g x = y
xe1:= make_hfiber g x (! h x @ h x @ e): hfiber g y
xe2:= make_hfiber g x e: hfiber g y
a, c: Y
q: a = c
! idpath a @ idpath a @ q = q induction q.
X, Y: UU
f, g: X → Y
h: f ~ g
y: Y
x: X
e: g x = y
xe1:= make_hfiber g x (! h x @ h x @ e): hfiber g y
xe2:= make_hfiber g x e: hfiber g y
a: Y
! idpath a @ idpath a @ idpath a = idpath a apply idpath. }
X, Y: UU
f, g: X → Y
h: f ~ g
y: Y
x: X
e: g x = y
xe1:= make_hfiber g x (! h x @ h x @ e): hfiber g y
xe2:= make_hfiber g x e: hfiber g y
ee: ∏ (a b c : Y) (p : a = b) (q : b = c),
! p @ p @ q = q
! h x @ h x @ e = e

  apply ee.
Defined.

Lemma iscontrhfiberl2 {X Y : UU} (f g : X -> Y)
      (h : f ~ g) (y : Y) (is : iscontr (hfiber f y)) : iscontr (hfiber g y).
X, Y: UU
f, g: X → Y
h: f ~ g
y: Y
is: iscontr (hfiber f y)
iscontr (hfiber g y)
Proof.
X, Y: UU
f, g: X → Y
h: f ~ g
y: Y
is: iscontr (hfiber f y)
iscontr (hfiber g y)
  intros.
X, Y: UU
f, g: X → Y
h: f ~ g
y: Y
is: iscontr (hfiber f y)
iscontr (hfiber g y)
  set (a := homothfiber1 f g h y).
X, Y: UU
f, g: X → Y
h: f ~ g
y: Y
is: iscontr (hfiber f y)
a:= homothfiber1 f g h y: hfiber f y → hfiber g y
iscontr (hfiber g y)
  set (b := homothfiber2 f g h y).
X, Y: UU
f, g: X → Y
h: f ~ g
y: Y
is: iscontr (hfiber f y)
a:= homothfiber1 f g h y: hfiber f y → hfiber g y
b:= homothfiber2 f g h y: hfiber g y → hfiber f y
iscontr (hfiber g y)
  set (eab := homothfiberretr f g h y).
X, Y: UU
f, g: X → Y
h: f ~ g
y: Y
is: iscontr (hfiber f y)
a:= homothfiber1 f g h y: hfiber f y → hfiber g y
b:= homothfiber2 f g h y: hfiber g y → hfiber f y
eab:= homothfiberretr f g h y: ∏ xe : hfiber g y, homothfiber1 f g h y (homothfiber2 f g h y xe) = xe
iscontr (hfiber g y)
  apply (iscontrretract a b eab is).
Defined.

Corollary isweqhomot {X Y : UU} (f1 f2 : X -> Y)
          (h : f1 ~ f2) : isweq f1 -> isweq f2.
X, Y: UU
f1, f2: X → Y
h: f1 ~ f2
isweq f1 → isweq f2
Proof.
X, Y: UU
f1, f2: X → Y
h: f1 ~ f2
isweq f1 → isweq f2
  intros x0.
X, Y: UU
f1, f2: X → Y
h: f1 ~ f2
x0: isweq f1
isweq f2
  unfold isweq.
X, Y: UU
f1, f2: X → Y
h: f1 ~ f2
x0: isweq f1
∏ y : Y, iscontr (hfiber f2 y)
  intro y.
X, Y: UU
f1, f2: X → Y
h: f1 ~ f2
x0: isweq f1
y: Y
iscontr (hfiber f2 y)
  apply (iscontrhfiberl2 f1 f2 h).
X, Y: UU
f1, f2: X → Y
h: f1 ~ f2
x0: isweq f1
y: Y
iscontr (hfiber f1 y)
  apply x0.
Defined.

Corollary remakeweq {X Y : UU} {f:X≃Y} {g:X->Y} : f ~ g -> X≃Y.
X, Y: UU
f: X ≃ Y
g: X → Y
f ~ g → X ≃ Y
(* this lemma may be used to replace an equivalence by one whose forward map has a simpler definition,
   keeping the same inverse map, judgmentally *)
Proof.
X, Y: UU
f: X ≃ Y
g: X → Y
f ~ g → X ≃ Y
  intros e.
X, Y: UU
f: X ≃ Y
g: X → Y
e: f ~ g
X ≃ Y
  exact (g ,, isweqhomot f g e (weqproperty f)).
Defined.

Lemma remakeweq_eq {X Y : UU} (f1:X≃Y) (f2:X->Y) (e:f1~f2) : pr1weq (remakeweq e) = f2.
X, Y: UU
f1: X ≃ Y
f2: X → Y
e: f1 ~ f2
remakeweq e = f2
(* check the claim in the comment above *)
Proof.
X, Y: UU
f1: X ≃ Y
f2: X → Y
e: f1 ~ f2
remakeweq e = f2
  intros.
X, Y: UU
f1: X ≃ Y
f2: X → Y
e: f1 ~ f2
remakeweq e = f2 apply idpath.
Defined.

Lemma remakeweq_eq' {X Y : UU} (f1:X≃Y) (f2:X->Y) (e:f1~f2) : invmap (remakeweq e) = invmap f1.
X, Y: UU
f1: X ≃ Y
f2: X → Y
e: f1 ~ f2
invmap (remakeweq e) = invmap f1
(* check the claim in the comment above *)
Proof.
X, Y: UU
f1: X ≃ Y
f2: X → Y
e: f1 ~ f2
invmap (remakeweq e) = invmap f1
  intros.
X, Y: UU
f1: X ≃ Y
f2: X → Y
e: f1 ~ f2
invmap (remakeweq e) = invmap f1 apply idpath.
Defined.

Lemma iscontr_move_point {X} : X -> iscontr X -> iscontr X.
X: Type
X → iscontr X → iscontr X
Proof.
X: Type
X → iscontr X → iscontr X
  intros x i.
X: Type
x: X
i: iscontr X
iscontr X
  exists x.
X: Type
x: X
i: iscontr X
∏ t : X, t = x
  intro y.
X: Type
x: X
i: iscontr X
y: X
y = x
  apply proofirrelevancecontr.
X: Type
x: X
i: iscontr X
y: X
iscontr X
  exact i.
Defined.

Lemma iscontr_move_point_eq {X} (x:X) (i:iscontr X) : iscontrpr1 (iscontr_move_point x i) = x.
X: Type
x: X
i: iscontr X
iscontrpr1 (iscontr_move_point x i) = x
Proof.
X: Type
x: X
i: iscontr X
iscontrpr1 (iscontr_move_point x i) = x
  intros.
X: Type
x: X
i: iscontr X
iscontrpr1 (iscontr_move_point x i) = x apply idpath.
Defined.

Corollary remakeweqinv {X Y : UU} {f:X≃Y} {h:Y->X} : invmap f ~ h -> X≃Y.
X, Y: UU
f: X ≃ Y
h: Y → X
invmap f ~ h → X ≃ Y
(* this lemma may be used to replace an equivalence by one whose inverse map is simpler,
   leaving the forward map the same, judgmentally *)
Proof.
X, Y: UU
f: X ≃ Y
h: Y → X
invmap f ~ h → X ≃ Y
  intros e.
X, Y: UU
f: X ≃ Y
h: Y → X
e: invmap f ~ h
X ≃ Y exists f.
X, Y: UU
f: X ≃ Y
h: Y → X
e: invmap f ~ h
isweq f intro y.
X, Y: UU
f: X ≃ Y
h: Y → X
e: invmap f ~ h
y: Y
iscontr (hfiber f y)
  assert (p : hfiber f y).
X, Y: UU
f: X ≃ Y
h: Y → X
e: invmap f ~ h
y: Y
hfiber f y
X, Y: UU
f: X ≃ Y
h: Y → X
e: invmap f ~ h
y: Y
p: hfiber f y
iscontr (hfiber f y)
  {
X, Y: UU
f: X ≃ Y
h: Y → X
e: invmap f ~ h
y: Y
hfiber f y exists (h y).
X, Y: UU
f: X ≃ Y
h: Y → X
e: invmap f ~ h
y: Y
f (h y) = y apply pathsweq1', pathsinv0.
X, Y: UU
f: X ≃ Y
h: Y → X
e: invmap f ~ h
y: Y
invmap f y = h y apply e. }
X, Y: UU
f: X ≃ Y
h: Y → X
e: invmap f ~ h
y: Y
p: hfiber f y
iscontr (hfiber f y)
  exact (iscontr_move_point p (weqproperty f y)).
Defined.

Lemma remakeweqinv_eq {X Y : UU} (f:X≃Y) (h:Y->X) (e:invmap f ~ h) : pr1weq (remakeweqinv e) = pr1weq f.
X, Y: UU
f: X ≃ Y
h: Y → X
e: invmap f ~ h
remakeweqinv e = f
(* check the claim in the comment above *)
Proof.
X, Y: UU
f: X ≃ Y
h: Y → X
e: invmap f ~ h
remakeweqinv e = f
  intros.
X, Y: UU
f: X ≃ Y
h: Y → X
e: invmap f ~ h
remakeweqinv e = f apply idpath.
Defined.

Lemma remakeweqinv_eq' {X Y : UU} (f:X≃Y) (h:Y->X) (e:invmap f ~ h) : invmap (remakeweqinv e) = h.
X, Y: UU
f: X ≃ Y
h: Y → X
e: invmap f ~ h
invmap (remakeweqinv e) = h
(* check the claim in the comment above *)
Proof.
X, Y: UU
f: X ≃ Y
h: Y → X
e: invmap f ~ h
invmap (remakeweqinv e) = h
  intros.
X, Y: UU
f: X ≃ Y
h: Y → X
e: invmap f ~ h
invmap (remakeweqinv e) = h apply idpath.
Defined.

Corollary remakeweqboth {X Y : UU} {f:X≃Y} {g:X->Y} {h:Y->X} : f ~ g -> invmap f ~ h -> X≃Y.
X, Y: UU
f: X ≃ Y
g: X → Y
h: Y → X
f ~ g → invmap f ~ h → X ≃ Y
(* this lemma may be used to replace an equivalence by one whose two maps are simpler *)
Proof.
X, Y: UU
f: X ≃ Y
g: X → Y
h: Y → X
f ~ g → invmap f ~ h → X ≃ Y
  intros r s.
X, Y: UU
f: X ≃ Y
g: X → Y
h: Y → X
r: f ~ g
s: invmap f ~ h
X ≃ Y
  use (remakeweqinv (f := remakeweq r) s).
Defined.

Lemma remakeweqboth_eq {X Y : UU} (f:X≃Y) (g:X->Y) (h:Y->X) (r:f~g) (s:invmap f ~ h) :
  pr1weq (remakeweqboth r s) = g.
X, Y: UU
f: X ≃ Y
g: X → Y
h: Y → X
r: f ~ g
s: invmap f ~ h
remakeweqboth r s = g
Proof.
X, Y: UU
f: X ≃ Y
g: X → Y
h: Y → X
r: f ~ g
s: invmap f ~ h
remakeweqboth r s = g
  intros.
X, Y: UU
f: X ≃ Y
g: X → Y
h: Y → X
r: f ~ g
s: invmap f ~ h
remakeweqboth r s = g apply idpath.
Defined.

Lemma remakeweqboth_eq' {X Y : UU} (f:X≃Y) (g:X->Y) (h:Y->X) (r:f~g) (s:invmap f ~ h) :
  invmap (remakeweqboth r s) = h.
X, Y: UU
f: X ≃ Y
g: X → Y
h: Y → X
r: f ~ g
s: invmap f ~ h
invmap (remakeweqboth r s) = h
Proof.
X, Y: UU
f: X ≃ Y
g: X → Y
h: Y → X
r: f ~ g
s: invmap f ~ h
invmap (remakeweqboth r s) = h
  intros.
X, Y: UU
f: X ≃ Y
g: X → Y
h: Y → X
r: f ~ g
s: invmap f ~ h
invmap (remakeweqboth r s) = h apply idpath.
Defined.

Corollary isweqhomot_iff {X Y : UU} (f1 f2 : X -> Y)
          (h : f1 ~ f2) : isweq f1 <-> isweq f2.
X, Y: UU
f1, f2: X → Y
h: f1 ~ f2
isweq f1 <-> isweq f2
Proof.
X, Y: UU
f1, f2: X → Y
h: f1 ~ f2
isweq f1 <-> isweq f2
  intros.
X, Y: UU
f1, f2: X → Y
h: f1 ~ f2
isweq f1 <-> isweq f2 split.
X, Y: UU
f1, f2: X → Y
h: f1 ~ f2
isweq f1 → isweq f2
X, Y: UU
f1, f2: X → Y
h: f1 ~ f2
isweq f2 → isweq f1
  -
X, Y: UU
f1, f2: X → Y
h: f1 ~ f2
isweq f1 → isweq f2 apply isweqhomot; assumption.
  -
X, Y: UU
f1, f2: X → Y
h: f1 ~ f2
isweq f2 → isweq f1 apply isweqhomot, invhomot; assumption.
Defined.

Lemma isweq_to_isweq_unit {X:UU} (f g:X->unit) : isweq f -> isweq g.
X: UU
f, g: X → unit
isweq f → isweq g
Proof.
X: UU
f, g: X → unit
isweq f → isweq g
  intros i.
X: UU
f, g: X → unit
i: isweq f
isweq g
  assert (h : f ~ g).
X: UU
f, g: X → unit
i: isweq f
f ~ g
X: UU
f, g: X → unit
i: isweq f
h: f ~ g
isweq g
  {
X: UU
f, g: X → unit
i: isweq f
f ~ g intros t.
X: UU
f, g: X → unit
i: isweq f
t: X
f t = g t apply isProofIrrelevantUnit. }
X: UU
f, g: X → unit
i: isweq f
h: f ~ g
isweq g
  exact (isweqhomot f g h i).
Defined.

Theorem isweq_iso {X Y : UU} (f : X -> Y) (g : Y -> X)
        (egf: ∏ x : X, g (f x) = x)
        (efg: ∏ y : Y, f (g y) = y) : isweq f.
X, Y: UU
f: X → Y
g: Y → X
egf: ∏ x : X, g (f x) = x
efg: ∏ y : Y, f (g y) = y
isweq f
Proof.
X, Y: UU
f: X → Y
g: Y → X
egf: ∏ x : X, g (f x) = x
efg: ∏ y : Y, f (g y) = y
isweq f
  intros.
X, Y: UU
f: X → Y
g: Y → X
egf: ∏ x : X, g (f x) = x
efg: ∏ y : Y, f (g y) = y
isweq f
  unfold isweq.
X, Y: UU
f: X → Y
g: Y → X
egf: ∏ x : X, g (f x) = x
efg: ∏ y : Y, f (g y) = y
∏ y : Y, iscontr (hfiber f y)
  intro y.
X, Y: UU
f: X → Y
g: Y → X
egf: ∏ x : X, g (f x) = x
efg: ∏ y : Y, f (g y) = y
y: Y
iscontr (hfiber f y)
  assert (X0 : iscontr (hfiber (f ∘ g) y)).
X, Y: UU
f: X → Y
g: Y → X
egf: ∏ x : X, g (f x) = x
efg: ∏ y : Y, f (g y) = y
y: Y
iscontr (hfiber (f ∘ g) y)
X, Y: UU
f: X → Y
g: Y → X
egf: ∏ x : X, g (f x) = x
efg: ∏ y : Y, f (g y) = y
y: Y
X0: iscontr (hfiber (f ∘ g) y)
iscontr (hfiber f y)
  assert (efg' : ∏ y : Y, y = f (g y)).
X, Y: UU
f: X → Y
g: Y → X
egf: ∏ x : X, g (f x) = x
efg: ∏ y : Y, f (g y) = y
y: Y
∏ y : Y, y = f (g y)
X, Y: UU
f: X → Y
g: Y → X
egf: ∏ x : X, g (f x) = x
efg: ∏ y : Y, f (g y) = y
y: Y
efg': ∏ y : Y, y = f (g y)
iscontr (hfiber (f ∘ g) y)
X, Y: UU
f: X → Y
g: Y → X
egf: ∏ x : X, g (f x) = x
efg: ∏ y : Y, f (g y) = y
y: Y
X0: iscontr (hfiber (f ∘ g) y)
iscontr (hfiber f y)
  {
X, Y: UU
f: X → Y
g: Y → X
egf: ∏ x : X, g (f x) = x
efg: ∏ y : Y, f (g y) = y
y: Y
∏ y : Y, y = f (g y) intro y0.
X, Y: UU
f: X → Y
g: Y → X
egf: ∏ x : X, g (f x) = x
efg: ∏ y : Y, f (g y) = y
y, y0: Y
y0 = f (g y0)
    apply pathsinv0.
X, Y: UU
f: X → Y
g: Y → X
egf: ∏ x : X, g (f x) = x
efg: ∏ y : Y, f (g y) = y
y, y0: Y
f (g y0) = y0
    apply (efg y0). }
X, Y: UU
f: X → Y
g: Y → X
egf: ∏ x : X, g (f x) = x
efg: ∏ y : Y, f (g y) = y
y: Y
efg': ∏ y : Y, y = f (g y)
iscontr (hfiber (f ∘ g) y)
X, Y: UU
f: X → Y
g: Y → X
egf: ∏ x : X, g (f x) = x
efg: ∏ y : Y, f (g y) = y
y: Y
X0: iscontr (hfiber (f ∘ g) y)
iscontr (hfiber f y)
  apply (iscontrhfiberl2 (idfun _) (f ∘ g) efg' y (idisweq Y y)).
X, Y: UU
f: X → Y
g: Y → X
egf: ∏ x : X, g (f x) = x
efg: ∏ y : Y, f (g y) = y
y: Y
X0: iscontr (hfiber (f ∘ g) y)
iscontr (hfiber f y)
  apply (iscontrhfiberl1 g f egf y).
X, Y: UU
f: X → Y
g: Y → X
egf: ∏ x : X, g (f x) = x
efg: ∏ y : Y, f (g y) = y
y: Y
X0: iscontr (hfiber (f ∘ g) y)
iscontr (hfiber (f ∘ g) y)
  apply X0.
Defined.

(** This is kept to preserve compatibility with publications that use the
    name "gradth" for the "grad theorem". *)
#[deprecated(note="Use isweq_iso instead.")]
Notation gradth := isweq_iso (only parsing).

Definition weq_iso {X Y : UU} (f : X -> Y) (g : Y -> X)
           (egf: ∏ x : X, g (f x) = x)
           (efg: ∏ y : Y, f (g y) = y) : X ≃ Y :=
  make_weq _ (isweq_iso _ _ egf efg).

Definition UniqueConstruction {X Y:UU} (f:X->Y) :=
  (∏ y, ∑ x, f x = y) × (∏ x x', f x = f x' -> x = x').

Corollary UniqueConstruction_to_weq {X Y:UU} (f:X->Y) : UniqueConstruction f -> isweq f.
X, Y: UU
f: X → Y
UniqueConstruction f → isweq f

Proof.
X, Y: UU
f: X → Y
UniqueConstruction f → isweq f
  intros bij.
X, Y: UU
f: X → Y
bij: UniqueConstruction f
isweq f assert (sur := pr1 bij).
X, Y: UU
f: X → Y
bij: UniqueConstruction f
sur: ∏ y : Y, ∑ x : X, f x = y
isweq f assert (inj := pr2 bij).
X, Y: UU
f: X → Y
bij: UniqueConstruction f
sur: ∏ y : Y, ∑ x : X, f x = y
inj: (λ _ : ∏ y : Y, ∑ x : X, f x = y, ∏ x x' : X, f x = f x' → x = x') (pr1 bij)
isweq f
  use (isweq_iso f).
X, Y: UU
f: X → Y
bij: UniqueConstruction f
sur: ∏ y : Y, ∑ x : X, f x = y
inj: (λ _ : ∏ y : Y, ∑ x : X, f x = y, ∏ x x' : X, f x = f x' → x = x') (pr1 bij)
Y → X
X, Y: UU
f: X → Y
bij: UniqueConstruction f
sur: ∏ y : Y, ∑ x : X, f x = y
inj: (λ _ : ∏ y : Y, ∑ x : X, f x = y, ∏ x x' : X, f x = f x' → x = x') (pr1 bij)
∏ x : X, ?g (f x) = x
X, Y: UU
f: X → Y
bij: UniqueConstruction f
sur: ∏ y : Y, ∑ x : X, f x = y
inj: (λ _ : ∏ y : Y, ∑ x : X, f x = y, ∏ x x' : X, f x = f x' → x = x') (pr1 bij)
∏ y : Y, f (?g y) = y
  -
X, Y: UU
f: X → Y
bij: UniqueConstruction f
sur: ∏ y : Y, ∑ x : X, f x = y
inj: (λ _ : ∏ y : Y, ∑ x : X, f x = y, ∏ x x' : X, f x = f x' → x = x') (pr1 bij)
Y → X intros y.
X, Y: UU
f: X → Y
bij: UniqueConstruction f
sur: ∏ y : Y, ∑ x : X, f x = y
inj: (λ _ : ∏ y : Y, ∑ x : X, f x = y, ∏ x x' : X, f x = f x' → x = x') (pr1 bij)
y: Y
X exact (pr1 (sur y)).
  -
X, Y: UU
f: X → Y
bij: UniqueConstruction f
sur: ∏ y : Y, ∑ x : X, f x = y
inj: (λ _ : ∏ y : Y, ∑ x : X, f x = y, ∏ x x' : X, f x = f x' → x = x') (pr1 bij)
∏ x : X, (λ y : Y, pr1 (sur y)) (f x) = x intros.
X, Y: UU
f: X → Y
bij: UniqueConstruction f
sur: ∏ y : Y, ∑ x : X, f x = y
inj: (λ _ : ∏ y : Y, ∑ x : X, f x = y, ∏ x x' : X, f x = f x' → x = x') (pr1 bij)
x: X
(λ y : Y, pr1 (sur y)) (f x) = x simpl.
X, Y: UU
f: X → Y
bij: UniqueConstruction f
sur: ∏ y : Y, ∑ x : X, f x = y
inj: (λ _ : ∏ y : Y, ∑ x : X, f x = y, ∏ x x' : X, f x = f x' → x = x') (pr1 bij)
x: X
pr1 (sur (f x)) = x simpl in inj.
X, Y: UU
f: X → Y
bij: UniqueConstruction f
sur: ∏ y : Y, ∑ x : X, f x = y
inj: ∏ x x' : X, f x = f x' → x = x'
x: X
pr1 (sur (f x)) = x apply inj.
X, Y: UU
f: X → Y
bij: UniqueConstruction f
sur: ∏ y : Y, ∑ x : X, f x = y
inj: ∏ x x' : X, f x = f x' → x = x'
x: X
f (pr1 (sur (f x))) = f x exact (pr2 (sur (f x))).
  -
X, Y: UU
f: X → Y
bij: UniqueConstruction f
sur: ∏ y : Y, ∑ x : X, f x = y
inj: (λ _ : ∏ y : Y, ∑ x : X, f x = y, ∏ x x' : X, f x = f x' → x = x') (pr1 bij)
∏ y : Y, f ((λ y0 : Y, pr1 (sur y0)) y) = y intros.
X, Y: UU
f: X → Y
bij: UniqueConstruction f
sur: ∏ y : Y, ∑ x : X, f x = y
inj: (λ _ : ∏ y : Y, ∑ x : X, f x = y, ∏ x x' : X, f x = f x' → x = x') (pr1 bij)
y: Y
f ((λ y : Y, pr1 (sur y)) y) = y simpl.
X, Y: UU
f: X → Y
bij: UniqueConstruction f
sur: ∏ y : Y, ∑ x : X, f x = y
inj: (λ _ : ∏ y : Y, ∑ x : X, f x = y, ∏ x x' : X, f x = f x' → x = x') (pr1 bij)
y: Y
f (pr1 (sur y)) = y exact (pr2 (sur y)).
Defined.

(** *** Some weak equivalences *)

(* ### *)

Corollary isweqinvmap {X Y : UU} (w : X ≃ Y) : isweq (invmap w).
X, Y: UU
w: X ≃ Y
isweq (invmap w)
Proof.
X, Y: UU
w: X ≃ Y
isweq (invmap w)
  intros.
X, Y: UU
w: X ≃ Y
isweq (invmap w)
  assert (efg : ∏ (y : Y), w (invmap w y) = y).
X, Y: UU
w: X ≃ Y
∏ y : Y, w (invmap w y) = y
X, Y: UU
w: X ≃ Y
efg: ∏ y : Y, w (invmap w y) = y
isweq (invmap w)
  apply homotweqinvweq.
X, Y: UU
w: X ≃ Y
efg: ∏ y : Y, w (invmap w y) = y
isweq (invmap w)
  assert (egf : ∏ (x : X), invmap w (w x) = x).
X, Y: UU
w: X ≃ Y
efg: ∏ y : Y, w (invmap w y) = y
∏ x : X, invmap w (w x) = x
X, Y: UU
w: X ≃ Y
efg: ∏ y : Y, w (invmap w y) = y
egf: ∏ x : X, invmap w (w x) = x
isweq (invmap w)
  apply homotinvweqweq.
X, Y: UU
w: X ≃ Y
efg: ∏ y : Y, w (invmap w y) = y
egf: ∏ x : X, invmap w (w x) = x
isweq (invmap w)
  apply (isweq_iso _ _ efg egf).
Defined.

Definition invweq {X Y : UU} (w : X ≃ Y) : Y ≃ X :=
  make_weq (invmap w) (isweqinvmap w).

Lemma invinv {X Y : UU} (w : X ≃ Y) (x : X) :
  invmap (invweq w) x = w x.
X, Y: UU
w: X ≃ Y
x: X
invmap (invweq w) x = w x
Proof.
X, Y: UU
w: X ≃ Y
x: X
invmap (invweq w) x = w x
  intros.
X, Y: UU
w: X ≃ Y
x: X
invmap (invweq w) x = w x apply idpath.
Defined.

Lemma pr1_invweq {X Y : UU} (w : X ≃ Y) : pr1weq (invweq w) = invmap w.
X, Y: UU
w: X ≃ Y
invweq w = invmap w
(* useful for rewriting *)
Proof.
X, Y: UU
w: X ≃ Y
invweq w = invmap w
  intros.
X, Y: UU
w: X ≃ Y
invweq w = invmap w apply idpath.
Defined.

Corollary iscontrweqf {X Y : UU} (w : X ≃ Y) (is : iscontr X) : iscontr Y.
X, Y: UU
w: X ≃ Y
is: iscontr X
iscontr Y
Proof.
X, Y: UU
w: X ≃ Y
is: iscontr X
iscontr Y
  intros.
X, Y: UU
w: X ≃ Y
is: iscontr X
iscontr Y apply (iscontrweqb (invweq w) is).
Defined.

(** Equality between pairs is equivalent to pairs of equalities
    between components. Theorem adapted from HoTT library
    http://github.com/HoTT/HoTT.
 *)

Definition PathPair {A : UU} {B : A -> UU} (x y : ∑ x, B x) :=
  ∑ p : pr1 x = pr1 y, transportf _ p (pr2 x) = pr2 y.

Notation "a ╝ b" := (PathPair a b) : type_scope.
(* the two horizontal lines represent an equality in the base and
   the two vertical lines represent an equality in the fiber *)
(* in agda input mode use \--= and select the 6-th one in the first set,
   or use \chimney *)

Theorem total2_paths_equiv {A : UU} (B : A -> UU) (x y : ∑ x, B x) :
  x = y  ≃  x ╝ y.
A: UU
B: A → UU
x, y: ∑ x : A, B x
x = y ≃ x ╝ y
Proof.
A: UU
B: A → UU
x, y: ∑ x : A, B x
x = y ≃ x ╝ y
  intros.
A: UU
B: A → UU
x, y: ∑ x : A, B x
x = y ≃ x ╝ y
  exists (λ r : x = y,
            tpair (λ p : pr1 x = pr1 y, transportf _ p (pr2 x) = pr2 y)
                  (base_paths _ _ r) (fiber_paths r)).
A: UU
B: A → UU
x, y: ∑ x : A, B x
isweq (λ r : x = y, base_paths x y r,, fiber_paths r)
  apply (isweq_iso _ (λ pq, total2_paths_f (pr1 pq) (pr2 pq))).
A: UU
B: A → UU
x, y: ∑ x : A, B x
∏ x0 : x = y,
total2_paths_f
  (pr1 (base_paths x y x0,, fiber_paths x0))
  (pr2 (base_paths x y x0,, fiber_paths x0)) = x0
A: UU
B: A → UU
x, y: ∑ x : A, B x
∏
y0 : ∑ p : pr1 x = pr1 y,
     transportf (λ x : A, B x) p (pr2 x) = pr2 y,
base_paths x y (total2_paths_f (pr1 y0) (pr2 y0)),,
fiber_paths (total2_paths_f (pr1 y0) (pr2 y0)) = y0
  -
A: UU
B: A → UU
x, y: ∑ x : A, B x
∏ x0 : x = y,
total2_paths_f
  (pr1 (base_paths x y x0,, fiber_paths x0))
  (pr2 (base_paths x y x0,, fiber_paths x0)) = x0 intro p.
A: UU
B: A → UU
x, y: ∑ x : A, B x
p: x = y
total2_paths_f
  (pr1 (base_paths x y p,, fiber_paths p))
  (pr2 (base_paths x y p,, fiber_paths p)) = p
    apply total2_fiber_paths.
  -
A: UU
B: A → UU
x, y: ∑ x : A, B x
∏
y0 : ∑ p : pr1 x = pr1 y,
     transportf (λ x : A, B x) p (pr2 x) = pr2 y,
base_paths x y (total2_paths_f (pr1 y0) (pr2 y0)),,
fiber_paths (total2_paths_f (pr1 y0) (pr2 y0)) = y0 intros [p q].
A: UU
B: A → UU
x, y: ∑ x : A, B x
p: pr1 x = pr1 y
q: transportf (λ x : A, B x) p (pr2 x) = pr2 y
base_paths x y
  (total2_paths_f (pr1 (p,, q)) (pr2 (p,, q))),,
fiber_paths
  (total2_paths_f (pr1 (p,, q)) (pr2 (p,, q))) = p,, q simpl.
A: UU
B: A → UU
x, y: ∑ x : A, B x
p: pr1 x = pr1 y
q: transportf (λ x : A, B x) p (pr2 x) = pr2 y
base_paths x y (total2_paths_f p q),,
fiber_paths (total2_paths_f p q) = p,, q
    apply (two_arg_paths_f (base_total2_paths q)).
A: UU
B: A → UU
x, y: ∑ x : A, B x
p: pr1 x = pr1 y
q: transportf (λ x : A, B x) p (pr2 x) = pr2 y
transportf
  (λ p : pr1 x = pr1 y,
   transportf (λ x : A, B x) p (pr2 x) = pr2 y)
  (base_total2_paths q)
  (fiber_paths (total2_paths_f p q)) = q
    apply transportf_fiber_total2_paths.
Defined.

(** The standard weak equivalence from [ unit ] to a contractible type *)

Definition wequnittocontr {X : UU} (is : iscontr X) : unit ≃ X.
X: UU
is: iscontr X
unit ≃ X
Proof.
X: UU
is: iscontr X
unit ≃ X
  intros.
X: UU
is: iscontr X
unit ≃ X
  set (f := λ (_ : unit), pr1 is).
X: UU
is: iscontr X
f:= λ _ : unit, pr1 is: unit → X
unit ≃ X
  set (g := λ (_ : X), tt).
X: UU
is: iscontr X
f:= λ _ : unit, pr1 is: unit → X
g:= λ _ : X, tt: X → unit
unit ≃ X
  split with f.
X: UU
is: iscontr X
f:= λ _ : unit, pr1 is: unit → X
g:= λ _ : X, tt: X → unit
isweq f
  assert (egf : ∏ t : unit, g (f t) = t).
X: UU
is: iscontr X
f:= λ _ : unit, pr1 is: unit → X
g:= λ _ : X, tt: X → unit
∏ t : unit, g (f t) = t
X: UU
is: iscontr X
f:= λ _ : unit, pr1 is: unit → X
g:= λ _ : X, tt: X → unit
egf: ∏ t : unit, g (f t) = t
isweq f
  {
X: UU
is: iscontr X
f:= λ _ : unit, pr1 is: unit → X
g:= λ _ : X, tt: X → unit
∏ t : unit, g (f t) = t intro.
X: UU
is: iscontr X
f:= λ _ : unit, pr1 is: unit → X
g:= λ _ : X, tt: X → unit
t: unit
g (f t) = t induction t.
X: UU
is: iscontr X
f:= λ _ : unit, pr1 is: unit → X
g:= λ _ : X, tt: X → unit
g (f tt) = tt apply idpath. }
X: UU
is: iscontr X
f:= λ _ : unit, pr1 is: unit → X
g:= λ _ : X, tt: X → unit
egf: ∏ t : unit, g (f t) = t
isweq f
  assert (efg : ∏ x : X, f (g x) = x).
X: UU
is: iscontr X
f:= λ _ : unit, pr1 is: unit → X
g:= λ _ : X, tt: X → unit
egf: ∏ t : unit, g (f t) = t
∏ x : X, f (g x) = x
X: UU
is: iscontr X
f:= λ _ : unit, pr1 is: unit → X
g:= λ _ : X, tt: X → unit
egf: ∏ t : unit, g (f t) = t
efg: ∏ x : X, f (g x) = x
isweq f
  {
X: UU
is: iscontr X
f:= λ _ : unit, pr1 is: unit → X
g:= λ _ : X, tt: X → unit
egf: ∏ t : unit, g (f t) = t
∏ x : X, f (g x) = x intro.
X: UU
is: iscontr X
f:= λ _ : unit, pr1 is: unit → X
g:= λ _ : X, tt: X → unit
egf: ∏ t : unit, g (f t) = t
x: X
f (g x) = x apply (! (pr2 is x)). }
X: UU
is: iscontr X
f:= λ _ : unit, pr1 is: unit → X
g:= λ _ : X, tt: X → unit
egf: ∏ t : unit, g (f t) = t
efg: ∏ x : X, f (g x) = x
isweq f
  apply (isweq_iso _ _ egf efg).
Defined.

(** A weak equivalence between types defines weak equivalences on the
    corresponding [ paths ] types. *)

Corollary isweqmaponpaths {X Y : UU} (w : X ≃ Y) (x x' : X) :
  isweq (@maponpaths _ _ w x x').
X, Y: UU
w: X ≃ Y
x, x': X
isweq (maponpaths w)
Proof.
X, Y: UU
w: X ≃ Y
x, x': X
isweq (maponpaths w)
  intros.
X, Y: UU
w: X ≃ Y
x, x': X
isweq (maponpaths w)
  apply (isweq_iso (@maponpaths _ _ w x x')
                (@invmaponpathsweq _ _ w x x')
                (@pathsweq3 _ _ w x x')
                (@pathsweq4 _ _ w x x')).
Defined.

Definition weqonpaths {X Y : UU} (w : X ≃ Y) (x x' : X) : x = x' ≃ w x = w x'
  := make_weq _ (isweqmaponpaths w x x').

(** The inverse path and the composition with a path functions are weak equivalences *)

Lemma isweqpathsinv0 {X : Type} (x y : X) : isweq (@pathsinv0 X x y).
X: Type
x, y: X
isweq pathsinv0
Proof.
X: Type
x, y: X
isweq pathsinv0
  intros.
X: Type
x, y: X
isweq pathsinv0 intros p.
X: Type
x, y: X
p: y = x
iscontr (hfiber pathsinv0 p) use tpair.
X: Type
x, y: X
p: y = x
hfiber pathsinv0 p
X: Type
x, y: X
p: y = x
(λ cntr : hfiber pathsinv0 p,
 ∏ t : hfiber pathsinv0 p, t = cntr) ?pr1
  -
X: Type
x, y: X
p: y = x
hfiber pathsinv0 p exists (!p).
X: Type
x, y: X
p: y = x
! (! p) = p apply pathsinv0inv0.
  -
X: Type
x, y: X
p: y = x
(λ cntr : hfiber pathsinv0 p,
 ∏ t : hfiber pathsinv0 p, t = cntr)
  (! p,, pathsinv0inv0 p) cbn.
X: Type
x, y: X
p: y = x
∏ t : hfiber pathsinv0 p, t = ! p,, pathsinv0inv0 p intros [q k].
X: Type
x, y: X
p: y = x
q: x = y
k: ! q = p
q,, k = ! p,, pathsinv0inv0 p induction q,k.
X: Type
x: X
idpath x,, idpath (! idpath x) =
! (! idpath x),, pathsinv0inv0 (! idpath x) reflexivity.
Defined.

Definition weqpathsinv0 {X : UU} (x x' : X) : x = x' ≃ x' = x
  := make_weq _ (isweqpathsinv0 x x').

Corollary isweqpathscomp0r {X : UU} (x : X) {x' x'' : X} (e' : x' = x'') :
  isweq (λ e : x = x', e @ e').
X: UU
x, x', x'': X
e': x' = x''
isweq (λ e : x = x', e @ e')
Proof.
X: UU
x, x', x'': X
e': x' = x''
isweq (λ e : x = x', e @ e')
  intros.
X: UU
x, x', x'': X
e': x' = x''
isweq (λ e : x = x', e @ e')
  set (f := λ e : x = x', e @ e').
X: UU
x, x', x'': X
e': x' = x''
f:= λ e : x = x', e @ e': x = x' → x = x''
isweq f
  set (g := λ e'' : x = x'', e'' @ (! e')).
X: UU
x, x', x'': X
e': x' = x''
f:= λ e : x = x', e @ e': x = x' → x = x''
g:= λ e'' : x = x'', e'' @ ! e': x = x'' → x = x'
isweq f
  assert (egf : ∏ e : _, g (f e) = e).
X: UU
x, x', x'': X
e': x' = x''
f:= λ e : x = x', e @ e': x = x' → x = x''
g:= λ e'' : x = x'', e'' @ ! e': x = x'' → x = x'
∏ e : x = x', g (f e) = e
X: UU
x, x', x'': X
e': x' = x''
f:= λ e : x = x', e @ e': x = x' → x = x''
g:= λ e'' : x = x'', e'' @ ! e': x = x'' → x = x'
egf: ∏ e : x = x', g (f e) = e
isweq f
  {
X: UU
x, x', x'': X
e': x' = x''
f:= λ e : x = x', e @ e': x = x' → x = x''
g:= λ e'' : x = x'', e'' @ ! e': x = x'' → x = x'
∏ e : x = x', g (f e) = e intro e.
X: UU
x, x', x'': X
e': x' = x''
f:= λ e : x = x', e @ e': x = x' → x = x''
g:= λ e'' : x = x'', e'' @ ! e': x = x'' → x = x'
e: x = x'
g (f e) = e induction e.
X: UU
x, x'': X
e': x = x''
f:= λ e : x = x, e @ e': x = x → x = x''
g:= λ e'' : x = x'', e'' @ ! e': x = x'' → x = x
g (f (idpath x)) = idpath x induction e'.
X: UU
x: X
f:= λ e : x = x, e @ idpath x: x = x → x = x
g:= λ e'' : x = x, e'' @ ! idpath x: x = x → x = x
g (f (idpath x)) = idpath x apply idpath. }
X: UU
x, x', x'': X
e': x' = x''
f:= λ e : x = x', e @ e': x = x' → x = x''
g:= λ e'' : x = x'', e'' @ ! e': x = x'' → x = x'
egf: ∏ e : x = x', g (f e) = e
isweq f
  assert (efg : ∏ e : _, f (g e) = e).
X: UU
x, x', x'': X
e': x' = x''
f:= λ e : x = x', e @ e': x = x' → x = x''
g:= λ e'' : x = x'', e'' @ ! e': x = x'' → x = x'
egf: ∏ e : x = x', g (f e) = e
∏ e : x = x'', f (g e) = e
X: UU
x, x', x'': X
e': x' = x''
f:= λ e : x = x', e @ e': x = x' → x = x''
g:= λ e'' : x = x'', e'' @ ! e': x = x'' → x = x'
egf: ∏ e : x = x', g (f e) = e
efg: ∏ e : x = x'', f (g e) = e
isweq f
  {
X: UU
x, x', x'': X
e': x' = x''
f:= λ e : x = x', e @ e': x = x' → x = x''
g:= λ e'' : x = x'', e'' @ ! e': x = x'' → x = x'
egf: ∏ e : x = x', g (f e) = e
∏ e : x = x'', f (g e) = e intro e.
X: UU
x, x', x'': X
e': x' = x''
f:= λ e : x = x', e @ e': x = x' → x = x''
g:= λ e'' : x = x'', e'' @ ! e': x = x'' → x = x'
egf: ∏ e : x = x', g (f e) = e
e: x = x''
f (g e) = e induction e.
X: UU
x, x': X
e': x' = x
f:= λ e : x = x', e @ e': x = x' → x = x
g:= λ e'' : x = x, e'' @ ! e': x = x → x = x'
egf: ∏ e : x = x', g (f e) = e
f (g (idpath x)) = idpath x induction e'.
X: UU
x': X
f:= λ e : x' = x', e @ idpath x': x' = x' → x' = x'
g:= λ e'' : x' = x', e'' @ ! idpath x': x' = x' → x' = x'
egf: ∏ e : x' = x', g (f e) = e
f (g (idpath x')) = idpath x' apply idpath. }
X: UU
x, x', x'': X
e': x' = x''
f:= λ e : x = x', e @ e': x = x' → x = x''
g:= λ e'' : x = x'', e'' @ ! e': x = x'' → x = x'
egf: ∏ e : x = x', g (f e) = e
efg: ∏ e : x = x'', f (g e) = e
isweq f
  apply (isweq_iso f g egf efg).
Defined.

(** Weak equivalences to and from coconuses and total path spaces *)

Corollary isweqtococonusf {X Y : UU} (f : X -> Y) : isweq (tococonusf f).
X, Y: UU
f: X → Y
isweq (tococonusf f)
Proof.
X, Y: UU
f: X → Y
isweq (tococonusf f)
  intros.
X, Y: UU
f: X → Y
isweq (tococonusf f)
  apply (isweq_iso _ _ (homotfromtococonusf f) (homottofromcoconusf f)).
Defined.

Definition weqtococonusf {X Y : UU} (f : X -> Y) : X ≃ coconusf f :=
  make_weq _ (isweqtococonusf f).

Corollary isweqfromcoconusf {X Y : UU} (f : X -> Y) : isweq (fromcoconusf f).
X, Y: UU
f: X → Y
isweq (fromcoconusf f)
Proof.
X, Y: UU
f: X → Y
isweq (fromcoconusf f)
  intros.
X, Y: UU
f: X → Y
isweq (fromcoconusf f)
  apply (isweq_iso _ _ (homottofromcoconusf f) (homotfromtococonusf f)).
Defined.

Definition weqfromcoconusf {X Y : UU} (f : X -> Y) : coconusf f ≃ X :=
  make_weq _ (isweqfromcoconusf f).

Corollary isweqdeltap (T : UU) : isweq (deltap T).
T: UU
isweq (deltap T)
Proof.
T: UU
isweq (deltap T)
  intros.
T: UU
isweq (deltap T)
  set (ff := deltap T).
T: UU
ff:= deltap T: T → pathsspace T
isweq ff set (gg := λ (z : pathsspace T), pr1 z).
T: UU
ff:= deltap T: T → pathsspace T
gg:= λ z : pathsspace T, pr1 z: pathsspace T → T
isweq ff
  assert (egf : ∏ t : T, gg (ff t) = t).
T: UU
ff:= deltap T: T → pathsspace T
gg:= λ z : pathsspace T, pr1 z: pathsspace T → T
∏ t : T, gg (ff t) = t
T: UU
ff:= deltap T: T → pathsspace T
gg:= λ z : pathsspace T, pr1 z: pathsspace T → T
egf: ∏ t : T, gg (ff t) = t
isweq ff
  {
T: UU
ff:= deltap T: T → pathsspace T
gg:= λ z : pathsspace T, pr1 z: pathsspace T → T
∏ t : T, gg (ff t) = t intro.
T: UU
ff:= deltap T: T → pathsspace T
gg:= λ z : pathsspace T, pr1 z: pathsspace T → T
t: T
gg (ff t) = t apply idpath. }
T: UU
ff:= deltap T: T → pathsspace T
gg:= λ z : pathsspace T, pr1 z: pathsspace T → T
egf: ∏ t : T, gg (ff t) = t
isweq ff
  assert (efg : ∏ (tte : _), ff (gg tte) = tte).
T: UU
ff:= deltap T: T → pathsspace T
gg:= λ z : pathsspace T, pr1 z: pathsspace T → T
egf: ∏ t : T, gg (ff t) = t
∏ tte : pathsspace T, ff (gg tte) = tte
T: UU
ff:= deltap T: T → pathsspace T
gg:= λ z : pathsspace T, pr1 z: pathsspace T → T
egf: ∏ t : T, gg (ff t) = t
efg: ∏ tte : pathsspace T, ff (gg tte) = tte
isweq ff
  {
T: UU
ff:= deltap T: T → pathsspace T
gg:= λ z : pathsspace T, pr1 z: pathsspace T → T
egf: ∏ t : T, gg (ff t) = t
∏ tte : pathsspace T, ff (gg tte) = tte intro tte.
T: UU
ff:= deltap T: T → pathsspace T
gg:= λ z : pathsspace T, pr1 z: pathsspace T → T
egf: ∏ t : T, gg (ff t) = t
tte: pathsspace T
ff (gg tte) = tte induction tte as [t c].
T: UU
ff:= deltap T: T → pathsspace T
gg:= λ z : pathsspace T, pr1 z: pathsspace T → T
egf: ∏ t : T, gg (ff t) = t
t: T
c: coconusfromt T t
ff (gg (t,, c)) = t,, c
    induction c as [x e].
T: UU
ff:= deltap T: T → pathsspace T
gg:= λ z : pathsspace T, pr1 z: pathsspace T → T
egf: ∏ t : T, gg (ff t) = t
t, x: T
e: t = x
ff (gg (t,, x,, e)) = t,, x,, e induction e.
T: UU
ff:= deltap T: T → pathsspace T
gg:= λ z : pathsspace T, pr1 z: pathsspace T → T
egf: ∏ t : T, gg (ff t) = t
t: T
ff (gg (t,, t,, idpath t)) = t,, t,, idpath t
    apply idpath.
  }
T: UU
ff:= deltap T: T → pathsspace T
gg:= λ z : pathsspace T, pr1 z: pathsspace T → T
egf: ∏ t : T, gg (ff t) = t
efg: ∏ tte : pathsspace T, ff (gg tte) = tte
isweq ff
  apply (isweq_iso _ _ egf efg).
Defined.

Corollary isweqpr1pr1 (T : UU) :
  isweq (λ (a : pathsspace' T), pr1 (pr1 a)).
T: UU
isweq (λ a : pathsspace' T, pr1 (pr1 a))
Proof.
T: UU
isweq (λ a : pathsspace' T, pr1 (pr1 a))
  intros.
T: UU
isweq (λ a : pathsspace' T, pr1 (pr1 a))
  set (f := λ (a : pathsspace' T), pr1 (pr1 a)).
T: UU
f:= λ a : pathsspace' T, pr1 (pr1 a): pathsspace' T → T
isweq f
  set (g := λ (t : T),
              tpair _ (make_dirprod t t) (idpath t) : pathsspace' T).
T: UU
f:= λ a : pathsspace' T, pr1 (pr1 a): pathsspace' T → T
g:= λ t : T,
make_dirprod t t,, idpath t : pathsspace' T: T → pathsspace' T
isweq f
  assert (efg : ∏ t : T, f (g t) = t).
T: UU
f:= λ a : pathsspace' T, pr1 (pr1 a): pathsspace' T → T
g:= λ t : T,
make_dirprod t t,, idpath t : pathsspace' T: T → pathsspace' T
∏ t : T, f (g t) = t
T: UU
f:= λ a : pathsspace' T, pr1 (pr1 a): pathsspace' T → T
g:= λ t : T,
make_dirprod t t,, idpath t : pathsspace' T: T → pathsspace' T
efg: ∏ t : T, f (g t) = t
isweq f
  {
T: UU
f:= λ a : pathsspace' T, pr1 (pr1 a): pathsspace' T → T
g:= λ t : T,
make_dirprod t t,, idpath t : pathsspace' T: T → pathsspace' T
∏ t : T, f (g t) = t intros t.
T: UU
f:= λ a : pathsspace' T, pr1 (pr1 a): pathsspace' T → T
g:= λ t : T,
make_dirprod t t,, idpath t : pathsspace' T: T → pathsspace' T
t: T
f (g t) = t unfold f.
T: UU
f:= λ a : pathsspace' T, pr1 (pr1 a): pathsspace' T → T
g:= λ t : T,
make_dirprod t t,, idpath t : pathsspace' T: T → pathsspace' T
t: T
pr1 (pr1 (g t)) = t unfold g.
T: UU
f:= λ a : pathsspace' T, pr1 (pr1 a): pathsspace' T → T
g:= λ t : T,
make_dirprod t t,, idpath t : pathsspace' T: T → pathsspace' T
t: T
pr1 (pr1 (make_dirprod t t,, idpath t)) = t simpl.
T: UU
f:= λ a : pathsspace' T, pr1 (pr1 a): pathsspace' T → T
g:= λ t : T,
make_dirprod t t,, idpath t : pathsspace' T: T → pathsspace' T
t: T
t = t apply idpath. }
T: UU
f:= λ a : pathsspace' T, pr1 (pr1 a): pathsspace' T → T
g:= λ t : T,
make_dirprod t t,, idpath t : pathsspace' T: T → pathsspace' T
efg: ∏ t : T, f (g t) = t
isweq f
  assert (egf : ∏ a : _, g (f a) = a).
T: UU
f:= λ a : pathsspace' T, pr1 (pr1 a): pathsspace' T → T
g:= λ t : T,
make_dirprod t t,, idpath t : pathsspace' T: T → pathsspace' T
efg: ∏ t : T, f (g t) = t
∏ a : pathsspace' T, g (f a) = a
T: UU
f:= λ a : pathsspace' T, pr1 (pr1 a): pathsspace' T → T
g:= λ t : T,
make_dirprod t t,, idpath t : pathsspace' T: T → pathsspace' T
efg: ∏ t : T, f (g t) = t
egf: ∏ a : pathsspace' T, g (f a) = a
isweq f
  {
T: UU
f:= λ a : pathsspace' T, pr1 (pr1 a): pathsspace' T → T
g:= λ t : T,
make_dirprod t t,, idpath t : pathsspace' T: T → pathsspace' T
efg: ∏ t : T, f (g t) = t
∏ a : pathsspace' T, g (f a) = a intros a.
T: UU
f:= λ a : pathsspace' T, pr1 (pr1 a): pathsspace' T → T
g:= λ t : T,
make_dirprod t t,, idpath t : pathsspace' T: T → pathsspace' T
efg: ∏ t : T, f (g t) = t
a: pathsspace' T
g (f a) = a induction a as [xy e].
T: UU
f:= λ a : pathsspace' T, pr1 (pr1 a): pathsspace' T → T
g:= λ t : T,
make_dirprod t t,, idpath t : pathsspace' T: T → pathsspace' T
efg: ∏ t : T, f (g t) = t
xy: T × T
e: pr1 xy = pr2 xy
g (f (xy,, e)) = xy,, e
    induction xy as [x y].
T: UU
f:= λ a : pathsspace' T, pr1 (pr1 a): pathsspace' T → T
g:= λ t : T,
make_dirprod t t,, idpath t : pathsspace' T: T → pathsspace' T
efg: ∏ t : T, f (g t) = t
x, y: T
e: pr1 (x,, y) = pr2 (x,, y)
g (f ((x,, y),, e)) = (x,, y),, e simpl in e.
T: UU
f:= λ a : pathsspace' T, pr1 (pr1 a): pathsspace' T → T
g:= λ t : T,
make_dirprod t t,, idpath t : pathsspace' T: T → pathsspace' T
efg: ∏ t : T, f (g t) = t
x, y: T
e: x = y
g (f ((x,, y),, e)) = (x,, y),, e
    induction e.
T: UU
f:= λ a : pathsspace' T, pr1 (pr1 a): pathsspace' T → T
g:= λ t : T,
make_dirprod t t,, idpath t : pathsspace' T: T → pathsspace' T
efg: ∏ t : T, f (g t) = t
x: T
g (f ((x,, x),, idpath x)) = (x,, x),, idpath x unfold f.
T: UU
f:= λ a : pathsspace' T, pr1 (pr1 a): pathsspace' T → T
g:= λ t : T,
make_dirprod t t,, idpath t : pathsspace' T: T → pathsspace' T
efg: ∏ t : T, f (g t) = t
x: T
g (pr1 (pr1 ((x,, x),, idpath x))) =
(x,, x),, idpath x unfold g.
T: UU
f:= λ a : pathsspace' T, pr1 (pr1 a): pathsspace' T → T
g:= λ t : T,
make_dirprod t t,, idpath t : pathsspace' T: T → pathsspace' T
efg: ∏ t : T, f (g t) = t
x: T
make_dirprod (pr1 (pr1 ((x,, x),, idpath x)))
  (pr1 (pr1 ((x,, x),, idpath x))),,
idpath (pr1 (pr1 ((x,, x),, idpath x))) =
(x,, x),, idpath x
    apply idpath.
  }
T: UU
f:= λ a : pathsspace' T, pr1 (pr1 a): pathsspace' T → T
g:= λ t : T,
make_dirprod t t,, idpath t : pathsspace' T: T → pathsspace' T
efg: ∏ t : T, f (g t) = t
egf: ∏ a : pathsspace' T, g (f a) = a
isweq f
  apply (isweq_iso _ _ egf efg).
Defined.

(** The weak equivalence between hfibers of homotopic functions *)

Theorem weqhfibershomot {X Y : UU} (f g : X -> Y)
        (h : f ~ g) (y : Y) : hfiber f y ≃ hfiber g y.
X, Y: UU
f, g: X → Y
h: f ~ g
y: Y
hfiber f y ≃ hfiber g y
Proof.
X, Y: UU
f, g: X → Y
h: f ~ g
y: Y
hfiber f y ≃ hfiber g y
  intros.
X, Y: UU
f, g: X → Y
h: f ~ g
y: Y
hfiber f y ≃ hfiber g y
  set (ff := hfibershomotftog f g h y).
X, Y: UU
f, g: X → Y
h: f ~ g
y: Y
ff:= hfibershomotftog f g h y: hfiber f y → hfiber g y
hfiber f y ≃ hfiber g y
  set (gg := hfibershomotgtof f g h y).
X, Y: UU
f, g: X → Y
h: f ~ g
y: Y
ff:= hfibershomotftog f g h y: hfiber f y → hfiber g y
gg:= hfibershomotgtof f g h y: hfiber g y → hfiber f y
hfiber f y ≃ hfiber g y

  split with ff.
X, Y: UU
f, g: X → Y
h: f ~ g
y: Y
ff:= hfibershomotftog f g h y: hfiber f y → hfiber g y
gg:= hfibershomotgtof f g h y: hfiber g y → hfiber f y
isweq ff

  assert (effgg : ∏ xe : _, ff (gg xe) = xe).
X, Y: UU
f, g: X → Y
h: f ~ g
y: Y
ff:= hfibershomotftog f g h y: hfiber f y → hfiber g y
gg:= hfibershomotgtof f g h y: hfiber g y → hfiber f y
∏ xe : hfiber g y, ff (gg xe) = xe
X, Y: UU
f, g: X → Y
h: f ~ g
y: Y
ff:= hfibershomotftog f g h y: hfiber f y → hfiber g y
gg:= hfibershomotgtof f g h y: hfiber g y → hfiber f y
effgg: ∏ xe : hfiber g y, ff (gg xe) = xe
isweq ff
  {
X, Y: UU
f, g: X → Y
h: f ~ g
y: Y
ff:= hfibershomotftog f g h y: hfiber f y → hfiber g y
gg:= hfibershomotgtof f g h y: hfiber g y → hfiber f y
∏ xe : hfiber g y, ff (gg xe) = xe
    intro xe.
X, Y: UU
f, g: X → Y
h: f ~ g
y: Y
ff:= hfibershomotftog f g h y: hfiber f y → hfiber g y
gg:= hfibershomotgtof f g h y: hfiber g y → hfiber f y
xe: hfiber g y
ff (gg xe) = xe
    induction xe as [x e].
X, Y: UU
f, g: X → Y
h: f ~ g
y: Y
ff:= hfibershomotftog f g h y: hfiber f y → hfiber g y
gg:= hfibershomotgtof f g h y: hfiber g y → hfiber f y
x: X
e: g x = y
ff (gg (x,, e)) = x,, e
    simpl.
X, Y: UU
f, g: X → Y
h: f ~ g
y: Y
ff:= hfibershomotftog f g h y: hfiber f y → hfiber g y
gg:= hfibershomotgtof f g h y: hfiber g y → hfiber f y
x: X
e: g x = y
ff (gg (x,, e)) = x,, e
    assert (eee : ! h x @ h x @ e = maponpaths g (idpath x) @ e).
X, Y: UU
f, g: X → Y
h: f ~ g
y: Y
ff:= hfibershomotftog f g h y: hfiber f y → hfiber g y
gg:= hfibershomotgtof f g h y: hfiber g y → hfiber f y
x: X
e: g x = y
! h x @ h x @ e = maponpaths g (idpath x) @ e
X, Y: UU
f, g: X → Y
h: f ~ g
y: Y
ff:= hfibershomotftog f g h y: hfiber f y → hfiber g y
gg:= hfibershomotgtof f g h y: hfiber g y → hfiber f y
x: X
e: g x = y
eee: ! h x @ h x @ e = maponpaths g (idpath x) @ e
ff (gg (x,, e)) = x,, e
    {
X, Y: UU
f, g: X → Y
h: f ~ g
y: Y
ff:= hfibershomotftog f g h y: hfiber f y → hfiber g y
gg:= hfibershomotgtof f g h y: hfiber g y → hfiber f y
x: X
e: g x = y
! h x @ h x @ e = maponpaths g (idpath x) @ e simpl.
X, Y: UU
f, g: X → Y
h: f ~ g
y: Y
ff:= hfibershomotftog f g h y: hfiber f y → hfiber g y
gg:= hfibershomotgtof f g h y: hfiber g y → hfiber f y
x: X
e: g x = y
! h x @ h x @ e = e  induction e.
X, Y: UU
f, g: X → Y
h: f ~ g
x: X
ff:= hfibershomotftog f g h (g x): hfiber f (g x) → hfiber g (g x)
gg:= hfibershomotgtof f g h (g x): hfiber g (g x) → hfiber f (g x)
! h x @ h x @ idpath (g x) = idpath (g x) induction (h x).
X, Y: UU
f, g: X → Y
h: f ~ g
x: X
ff:= hfibershomotftog f g h (f x): hfiber f (f x) → hfiber g (f x)
gg:= hfibershomotgtof f g h (f x): hfiber g (f x) → hfiber f (f x)
! idpath (f x) @ idpath (f x) @ idpath (f x) =
idpath (f x) apply idpath. }
X, Y: UU
f, g: X → Y
h: f ~ g
y: Y
ff:= hfibershomotftog f g h y: hfiber f y → hfiber g y
gg:= hfibershomotgtof f g h y: hfiber g y → hfiber f y
x: X
e: g x = y
eee: ! h x @ h x @ e = maponpaths g (idpath x) @ e
ff (gg (x,, e)) = x,, e
    set (xe1 := make_hfiber g x (! h x @ h x @ e)).
X, Y: UU
f, g: X → Y
h: f ~ g
y: Y
ff:= hfibershomotftog f g h y: hfiber f y → hfiber g y
gg:= hfibershomotgtof f g h y: hfiber g y → hfiber f y
x: X
e: g x = y
eee: ! h x @ h x @ e = maponpaths g (idpath x) @ e
xe1:= make_hfiber g x (! h x @ h x @ e): hfiber g y
ff (gg (x,, e)) = x,, e
    set (xe2 := make_hfiber g x e).
X, Y: UU
f, g: X → Y
h: f ~ g
y: Y
ff:= hfibershomotftog f g h y: hfiber f y → hfiber g y
gg:= hfibershomotgtof f g h y: hfiber g y → hfiber f y
x: X
e: g x = y
eee: ! h x @ h x @ e = maponpaths g (idpath x) @ e
xe1:= make_hfiber g x (! h x @ h x @ e): hfiber g y
xe2:= make_hfiber g x e: hfiber g y
ff (gg (x,, e)) = x,, e
    apply (hfibertriangle2 g xe1 xe2 (idpath x) eee).
  }
X, Y: UU
f, g: X → Y
h: f ~ g
y: Y
ff:= hfibershomotftog f g h y: hfiber f y → hfiber g y
gg:= hfibershomotgtof f g h y: hfiber g y → hfiber f y
effgg: ∏ xe : hfiber g y, ff (gg xe) = xe
isweq ff

  assert (eggff : ∏ xe : _, gg (ff xe) = xe).
X, Y: UU
f, g: X → Y
h: f ~ g
y: Y
ff:= hfibershomotftog f g h y: hfiber f y → hfiber g y
gg:= hfibershomotgtof f g h y: hfiber g y → hfiber f y
effgg: ∏ xe : hfiber g y, ff (gg xe) = xe
∏ xe : hfiber f y, gg (ff xe) = xe
X, Y: UU
f, g: X → Y
h: f ~ g
y: Y
ff:= hfibershomotftog f g h y: hfiber f y → hfiber g y
gg:= hfibershomotgtof f g h y: hfiber g y → hfiber f y
effgg: ∏ xe : hfiber g y, ff (gg xe) = xe
eggff: ∏ xe : hfiber f y, gg (ff xe) = xe
isweq ff
  {
X, Y: UU
f, g: X → Y
h: f ~ g
y: Y
ff:= hfibershomotftog f g h y: hfiber f y → hfiber g y
gg:= hfibershomotgtof f g h y: hfiber g y → hfiber f y
effgg: ∏ xe : hfiber g y, ff (gg xe) = xe
∏ xe : hfiber f y, gg (ff xe) = xe
    intro xe.
X, Y: UU
f, g: X → Y
h: f ~ g
y: Y
ff:= hfibershomotftog f g h y: hfiber f y → hfiber g y
gg:= hfibershomotgtof f g h y: hfiber g y → hfiber f y
effgg: ∏ xe : hfiber g y, ff (gg xe) = xe
xe: hfiber f y
gg (ff xe) = xe
    induction xe as [x e].
X, Y: UU
f, g: X → Y
h: f ~ g
y: Y
ff:= hfibershomotftog f g h y: hfiber f y → hfiber g y
gg:= hfibershomotgtof f g h y: hfiber g y → hfiber f y
effgg: ∏ xe : hfiber g y, ff (gg xe) = xe
x: X
e: f x = y
gg (ff (x,, e)) = x,, e
    simpl.
X, Y: UU
f, g: X → Y
h: f ~ g
y: Y
ff:= hfibershomotftog f g h y: hfiber f y → hfiber g y
gg:= hfibershomotgtof f g h y: hfiber g y → hfiber f y
effgg: ∏ xe : hfiber g y, ff (gg xe) = xe
x: X
e: f x = y
gg (ff (x,, e)) = x,, e
    assert (eee :  h x @ !h x @ e = maponpaths f (idpath x) @ e).
X, Y: UU
f, g: X → Y
h: f ~ g
y: Y
ff:= hfibershomotftog f g h y: hfiber f y → hfiber g y
gg:= hfibershomotgtof f g h y: hfiber g y → hfiber f y
effgg: ∏ xe : hfiber g y, ff (gg xe) = xe
x: X
e: f x = y
h x @ ! h x @ e = maponpaths f (idpath x) @ e
X, Y: UU
f, g: X → Y
h: f ~ g
y: Y
ff:= hfibershomotftog f g h y: hfiber f y → hfiber g y
gg:= hfibershomotgtof f g h y: hfiber g y → hfiber f y
effgg: ∏ xe : hfiber g y, ff (gg xe) = xe
x: X
e: f x = y
eee: h x @ ! h x @ e = maponpaths f (idpath x) @ e
gg (ff (x,, e)) = x,, e
    {
X, Y: UU
f, g: X → Y
h: f ~ g
y: Y
ff:= hfibershomotftog f g h y: hfiber f y → hfiber g y
gg:= hfibershomotgtof f g h y: hfiber g y → hfiber f y
effgg: ∏ xe : hfiber g y, ff (gg xe) = xe
x: X
e: f x = y
h x @ ! h x @ e = maponpaths f (idpath x) @ e simpl.
X, Y: UU
f, g: X → Y
h: f ~ g
y: Y
ff:= hfibershomotftog f g h y: hfiber f y → hfiber g y
gg:= hfibershomotgtof f g h y: hfiber g y → hfiber f y
effgg: ∏ xe : hfiber g y, ff (gg xe) = xe
x: X
e: f x = y
h x @ ! h x @ e = e  induction e.
X, Y: UU
f, g: X → Y
h: f ~ g
x: X
ff:= hfibershomotftog f g h (f x): hfiber f (f x) → hfiber g (f x)
gg:= hfibershomotgtof f g h (f x): hfiber g (f x) → hfiber f (f x)
effgg: ∏ xe : hfiber g (f x), ff (gg xe) = xe
h x @ ! h x @ idpath (f x) = idpath (f x) induction (h x).
X, Y: UU
f, g: X → Y
h: f ~ g
x: X
ff:= hfibershomotftog f g h (f x): hfiber f (f x) → hfiber g (f x)
gg:= hfibershomotgtof f g h (f x): hfiber g (f x) → hfiber f (f x)
effgg: ∏ xe : hfiber g (f x), ff (gg xe) = xe
idpath (f x) @ ! idpath (f x) @ idpath (f x) =
idpath (f x) apply idpath. }
X, Y: UU
f, g: X → Y
h: f ~ g
y: Y
ff:= hfibershomotftog f g h y: hfiber f y → hfiber g y
gg:= hfibershomotgtof f g h y: hfiber g y → hfiber f y
effgg: ∏ xe : hfiber g y, ff (gg xe) = xe
x: X
e: f x = y
eee: h x @ ! h x @ e = maponpaths f (idpath x) @ e
gg (ff (x,, e)) = x,, e
    set (xe1 := make_hfiber f x (h x @ ! h x @ e)).
X, Y: UU
f, g: X → Y
h: f ~ g
y: Y
ff:= hfibershomotftog f g h y: hfiber f y → hfiber g y
gg:= hfibershomotgtof f g h y: hfiber g y → hfiber f y
effgg: ∏ xe : hfiber g y, ff (gg xe) = xe
x: X
e: f x = y
eee: h x @ ! h x @ e = maponpaths f (idpath x) @ e
xe1:= make_hfiber f x (h x @ ! h x @ e): hfiber f y
gg (ff (x,, e)) = x,, e
    set (xe2 := make_hfiber f x e).
X, Y: UU
f, g: X → Y
h: f ~ g
y: Y
ff:= hfibershomotftog f g h y: hfiber f y → hfiber g y
gg:= hfibershomotgtof f g h y: hfiber g y → hfiber f y
effgg: ∏ xe : hfiber g y, ff (gg xe) = xe
x: X
e: f x = y
eee: h x @ ! h x @ e = maponpaths f (idpath x) @ e
xe1:= make_hfiber f x (h x @ ! h x @ e): hfiber f y
xe2:= make_hfiber f x e: hfiber f y
gg (ff (x,, e)) = x,, e
    apply (hfibertriangle2 f xe1 xe2 (idpath x) eee).
  }
X, Y: UU
f, g: X → Y
h: f ~ g
y: Y
ff:= hfibershomotftog f g h y: hfiber f y → hfiber g y
gg:= hfibershomotgtof f g h y: hfiber g y → hfiber f y
effgg: ∏ xe : hfiber g y, ff (gg xe) = xe
eggff: ∏ xe : hfiber f y, gg (ff xe) = xe
isweq ff

  apply (isweq_iso _ _ eggff effgg).
Defined.

(** *** The 2-out-of-3 property of weak equivalences

    Theorems showing that if any two of three functions f, g, gf are
    weak equivalences then so is the third - the 2-out-of-3 property.
 *)

Theorem twooutof3a {X Y Z : UU} (f : X -> Y) (g : Y -> Z)
        (isgf: isweq (g ∘ f)) (isg: isweq g) : isweq f.
X, Y, Z: UU
f: X → Y
g: Y → Z
isgf: isweq (g ∘ f)
isg: isweq g
isweq f
Proof.
X, Y, Z: UU
f: X → Y
g: Y → Z
isgf: isweq (g ∘ f)
isg: isweq g
isweq f
  intros.
X, Y, Z: UU
f: X → Y
g: Y → Z
isgf: isweq (g ∘ f)
isg: isweq g
isweq f
  set (gw := make_weq g isg).
X, Y, Z: UU
f: X → Y
g: Y → Z
isgf: isweq (g ∘ f)
isg: isweq g
gw:= make_weq g isg: Y ≃ Z
isweq f
  set (gfw := make_weq (g ∘ f) isgf).
X, Y, Z: UU
f: X → Y
g: Y → Z
isgf: isweq (g ∘ f)
isg: isweq g
gw:= make_weq g isg: Y ≃ Z
gfw:= make_weq (g ∘ f) isgf: X ≃ Z
isweq f
  set (invg := invmap gw).
X, Y, Z: UU
f: X → Y
g: Y → Z
isgf: isweq (g ∘ f)
isg: isweq g
gw:= make_weq g isg: Y ≃ Z
gfw:= make_weq (g ∘ f) isgf: X ≃ Z
invg:= invmap gw: Z → Y
isweq f
  set (invgf := invmap gfw).
X, Y, Z: UU
f: X → Y
g: Y → Z
isgf: isweq (g ∘ f)
isg: isweq g
gw:= make_weq g isg: Y ≃ Z
gfw:= make_weq (g ∘ f) isgf: X ≃ Z
invg:= invmap gw: Z → Y
invgf:= invmap gfw: Z → X
isweq f

  set (invf := invgf ∘ g).
X, Y, Z: UU
f: X → Y
g: Y → Z
isgf: isweq (g ∘ f)
isg: isweq g
gw:= make_weq g isg: Y ≃ Z
gfw:= make_weq (g ∘ f) isgf: X ≃ Z
invg:= invmap gw: Z → Y
invgf:= invmap gfw: Z → X
invf:= invgf ∘ g: ∏ x : Y, (λ _ : Z, X) (g x)
isweq f

  assert (efinvf : ∏ y : Y, f (invf y) = y).
X, Y, Z: UU
f: X → Y
g: Y → Z
isgf: isweq (g ∘ f)
isg: isweq g
gw:= make_weq g isg: Y ≃ Z
gfw:= make_weq (g ∘ f) isgf: X ≃ Z
invg:= invmap gw: Z → Y
invgf:= invmap gfw: Z → X
invf:= invgf ∘ g: ∏ x : Y, (λ _ : Z, X) (g x)
∏ y : Y, f (invf y) = y
X, Y, Z: UU
f: X → Y
g: Y → Z
isgf: isweq (g ∘ f)
isg: isweq g
gw:= make_weq g isg: Y ≃ Z
gfw:= make_weq (g ∘ f) isgf: X ≃ Z
invg:= invmap gw: Z → Y
invgf:= invmap gfw: Z → X
invf:= invgf ∘ g: ∏ x : Y, (λ _ : Z, X) (g x)
efinvf: ∏ y : Y, f (invf y) = y
isweq f
  {
X, Y, Z: UU
f: X → Y
g: Y → Z
isgf: isweq (g ∘ f)
isg: isweq g
gw:= make_weq g isg: Y ≃ Z
gfw:= make_weq (g ∘ f) isgf: X ≃ Z
invg:= invmap gw: Z → Y
invgf:= invmap gfw: Z → X
invf:= invgf ∘ g: ∏ x : Y, (λ _ : Z, X) (g x)
∏ y : Y, f (invf y) = y
    intro y.
X, Y, Z: UU
f: X → Y
g: Y → Z
isgf: isweq (g ∘ f)
isg: isweq g
gw:= make_weq g isg: Y ≃ Z
gfw:= make_weq (g ∘ f) isgf: X ≃ Z
invg:= invmap gw: Z → Y
invgf:= invmap gfw: Z → X
invf:= invgf ∘ g: ∏ x : Y, (λ _ : Z, X) (g x)
y: Y
f (invf y) = y
    assert (int1 : g (f (invf y)) = g y).
X, Y, Z: UU
f: X → Y
g: Y → Z
isgf: isweq (g ∘ f)
isg: isweq g
gw:= make_weq g isg: Y ≃ Z
gfw:= make_weq (g ∘ f) isgf: X ≃ Z
invg:= invmap gw: Z → Y
invgf:= invmap gfw: Z → X
invf:= invgf ∘ g: ∏ x : Y, (λ _ : Z, X) (g x)
y: Y
g (f (invf y)) = g y
X, Y, Z: UU
f: X → Y
g: Y → Z
isgf: isweq (g ∘ f)
isg: isweq g
gw:= make_weq g isg: Y ≃ Z
gfw:= make_weq (g ∘ f) isgf: X ≃ Z
invg:= invmap gw: Z → Y
invgf:= invmap gfw: Z → X
invf:= invgf ∘ g: ∏ x : Y, (λ _ : Z, X) (g x)
y: Y
int1: g (f (invf y)) = g y
f (invf y) = y
    {
X, Y, Z: UU
f: X → Y
g: Y → Z
isgf: isweq (g ∘ f)
isg: isweq g
gw:= make_weq g isg: Y ≃ Z
gfw:= make_weq (g ∘ f) isgf: X ≃ Z
invg:= invmap gw: Z → Y
invgf:= invmap gfw: Z → X
invf:= invgf ∘ g: ∏ x : Y, (λ _ : Z, X) (g x)
y: Y
g (f (invf y)) = g y unfold invf.
X, Y, Z: UU
f: X → Y
g: Y → Z
isgf: isweq (g ∘ f)
isg: isweq g
gw:= make_weq g isg: Y ≃ Z
gfw:= make_weq (g ∘ f) isgf: X ≃ Z
invg:= invmap gw: Z → Y
invgf:= invmap gfw: Z → X
invf:= invgf ∘ g: ∏ x : Y, (λ _ : Z, X) (g x)
y: Y
g (f ((invgf ∘ g) y)) = g y apply (homotweqinvweq gfw (g y)). }
X, Y, Z: UU
f: X → Y
g: Y → Z
isgf: isweq (g ∘ f)
isg: isweq g
gw:= make_weq g isg: Y ≃ Z
gfw:= make_weq (g ∘ f) isgf: X ≃ Z
invg:= invmap gw: Z → Y
invgf:= invmap gfw: Z → X
invf:= invgf ∘ g: ∏ x : Y, (λ _ : Z, X) (g x)
y: Y
int1: g (f (invf y)) = g y
f (invf y) = y
    apply (invmaponpathsweq gw _ _  int1).
  }
X, Y, Z: UU
f: X → Y
g: Y → Z
isgf: isweq (g ∘ f)
isg: isweq g
gw:= make_weq g isg: Y ≃ Z
gfw:= make_weq (g ∘ f) isgf: X ≃ Z
invg:= invmap gw: Z → Y
invgf:= invmap gfw: Z → X
invf:= invgf ∘ g: ∏ x : Y, (λ _ : Z, X) (g x)
efinvf: ∏ y : Y, f (invf y) = y
isweq f

  assert (einvff: ∏ x : X, invf (f x) = x).
X, Y, Z: UU
f: X → Y
g: Y → Z
isgf: isweq (g ∘ f)
isg: isweq g
gw:= make_weq g isg: Y ≃ Z
gfw:= make_weq (g ∘ f) isgf: X ≃ Z
invg:= invmap gw: Z → Y
invgf:= invmap gfw: Z → X
invf:= invgf ∘ g: ∏ x : Y, (λ _ : Z, X) (g x)
efinvf: ∏ y : Y, f (invf y) = y
∏ x : X, invf (f x) = x
X, Y, Z: UU
f: X → Y
g: Y → Z
isgf: isweq (g ∘ f)
isg: isweq g
gw:= make_weq g isg: Y ≃ Z
gfw:= make_weq (g ∘ f) isgf: X ≃ Z
invg:= invmap gw: Z → Y
invgf:= invmap gfw: Z → X
invf:= invgf ∘ g: ∏ x : Y, (λ _ : Z, X) (g x)
efinvf: ∏ y : Y, f (invf y) = y
einvff: ∏ x : X, invf (f x) = x
isweq f
  {
X, Y, Z: UU
f: X → Y
g: Y → Z
isgf: isweq (g ∘ f)
isg: isweq g
gw:= make_weq g isg: Y ≃ Z
gfw:= make_weq (g ∘ f) isgf: X ≃ Z
invg:= invmap gw: Z → Y
invgf:= invmap gfw: Z → X
invf:= invgf ∘ g: ∏ x : Y, (λ _ : Z, X) (g x)
efinvf: ∏ y : Y, f (invf y) = y
∏ x : X, invf (f x) = x intro.
X, Y, Z: UU
f: X → Y
g: Y → Z
isgf: isweq (g ∘ f)
isg: isweq g
gw:= make_weq g isg: Y ≃ Z
gfw:= make_weq (g ∘ f) isgf: X ≃ Z
invg:= invmap gw: Z → Y
invgf:= invmap gfw: Z → X
invf:= invgf ∘ g: ∏ x : Y, (λ _ : Z, X) (g x)
efinvf: ∏ y : Y, f (invf y) = y
x: X
invf (f x) = x unfold invf.
X, Y, Z: UU
f: X → Y
g: Y → Z
isgf: isweq (g ∘ f)
isg: isweq g
gw:= make_weq g isg: Y ≃ Z
gfw:= make_weq (g ∘ f) isgf: X ≃ Z
invg:= invmap gw: Z → Y
invgf:= invmap gfw: Z → X
invf:= invgf ∘ g: ∏ x : Y, (λ _ : Z, X) (g x)
efinvf: ∏ y : Y, f (invf y) = y
x: X
(invgf ∘ g) (f x) = x apply (homotinvweqweq gfw x). }
X, Y, Z: UU
f: X → Y
g: Y → Z
isgf: isweq (g ∘ f)
isg: isweq g
gw:= make_weq g isg: Y ≃ Z
gfw:= make_weq (g ∘ f) isgf: X ≃ Z
invg:= invmap gw: Z → Y
invgf:= invmap gfw: Z → X
invf:= invgf ∘ g: ∏ x : Y, (λ _ : Z, X) (g x)
efinvf: ∏ y : Y, f (invf y) = y
einvff: ∏ x : X, invf (f x) = x
isweq f

  apply (isweq_iso f invf einvff efinvf).
Defined.

Theorem twooutof3b {X Y Z : UU} (f : X -> Y) (g : Y -> Z)
        (isf : isweq f) (isgf : isweq (g ∘ f)) : isweq g.
X, Y, Z: UU
f: X → Y
g: Y → Z
isf: isweq f
isgf: isweq (g ∘ f)
isweq g
Proof.
X, Y, Z: UU
f: X → Y
g: Y → Z
isf: isweq f
isgf: isweq (g ∘ f)
isweq g
  intros.
X, Y, Z: UU
f: X → Y
g: Y → Z
isf: isweq f
isgf: isweq (g ∘ f)
isweq g
  set (wf := make_weq f isf).
X, Y, Z: UU
f: X → Y
g: Y → Z
isf: isweq f
isgf: isweq (g ∘ f)
wf:= make_weq f isf: X ≃ Y
isweq g
  set (wgf := make_weq (g ∘ f) isgf).
X, Y, Z: UU
f: X → Y
g: Y → Z
isf: isweq f
isgf: isweq (g ∘ f)
wf:= make_weq f isf: X ≃ Y
wgf:= make_weq (g ∘ f) isgf: X ≃ Z
isweq g
  set (invf := invmap wf).
X, Y, Z: UU
f: X → Y
g: Y → Z
isf: isweq f
isgf: isweq (g ∘ f)
wf:= make_weq f isf: X ≃ Y
wgf:= make_weq (g ∘ f) isgf: X ≃ Z
invf:= invmap wf: Y → X
isweq g
  set (invgf := invmap wgf).
X, Y, Z: UU
f: X → Y
g: Y → Z
isf: isweq f
isgf: isweq (g ∘ f)
wf:= make_weq f isf: X ≃ Y
wgf:= make_weq (g ∘ f) isgf: X ≃ Z
invf:= invmap wf: Y → X
invgf:= invmap wgf: Z → X
isweq g

  set (invg := f ∘ invgf).
X, Y, Z: UU
f: X → Y
g: Y → Z
isf: isweq f
isgf: isweq (g ∘ f)
wf:= make_weq f isf: X ≃ Y
wgf:= make_weq (g ∘ f) isgf: X ≃ Z
invf:= invmap wf: Y → X
invgf:= invmap wgf: Z → X
invg:= f ∘ invgf: ∏ x : Z, (λ _ : X, Y) (invgf x)
isweq g

  assert (eginvg : ∏ z : Z, g (invg z) = z).
X, Y, Z: UU
f: X → Y
g: Y → Z
isf: isweq f
isgf: isweq (g ∘ f)
wf:= make_weq f isf: X ≃ Y
wgf:= make_weq (g ∘ f) isgf: X ≃ Z
invf:= invmap wf: Y → X
invgf:= invmap wgf: Z → X
invg:= f ∘ invgf: ∏ x : Z, (λ _ : X, Y) (invgf x)
∏ z : Z, g (invg z) = z
X, Y, Z: UU
f: X → Y
g: Y → Z
isf: isweq f
isgf: isweq (g ∘ f)
wf:= make_weq f isf: X ≃ Y
wgf:= make_weq (g ∘ f) isgf: X ≃ Z
invf:= invmap wf: Y → X
invgf:= invmap wgf: Z → X
invg:= f ∘ invgf: ∏ x : Z, (λ _ : X, Y) (invgf x)
eginvg: ∏ z : Z, g (invg z) = z
isweq g
  {
X, Y, Z: UU
f: X → Y
g: Y → Z
isf: isweq f
isgf: isweq (g ∘ f)
wf:= make_weq f isf: X ≃ Y
wgf:= make_weq (g ∘ f) isgf: X ≃ Z
invf:= invmap wf: Y → X
invgf:= invmap wgf: Z → X
invg:= f ∘ invgf: ∏ x : Z, (λ _ : X, Y) (invgf x)
∏ z : Z, g (invg z) = z intro.
X, Y, Z: UU
f: X → Y
g: Y → Z
isf: isweq f
isgf: isweq (g ∘ f)
wf:= make_weq f isf: X ≃ Y
wgf:= make_weq (g ∘ f) isgf: X ≃ Z
invf:= invmap wf: Y → X
invgf:= invmap wgf: Z → X
invg:= f ∘ invgf: ∏ x : Z, (λ _ : X, Y) (invgf x)
z: Z
g (invg z) = z unfold invg.
X, Y, Z: UU
f: X → Y
g: Y → Z
isf: isweq f
isgf: isweq (g ∘ f)
wf:= make_weq f isf: X ≃ Y
wgf:= make_weq (g ∘ f) isgf: X ≃ Z
invf:= invmap wf: Y → X
invgf:= invmap wgf: Z → X
invg:= f ∘ invgf: ∏ x : Z, (λ _ : X, Y) (invgf x)
z: Z
g ((f ∘ invgf) z) = z apply (homotweqinvweq wgf z). }
X, Y, Z: UU
f: X → Y
g: Y → Z
isf: isweq f
isgf: isweq (g ∘ f)
wf:= make_weq f isf: X ≃ Y
wgf:= make_weq (g ∘ f) isgf: X ≃ Z
invf:= invmap wf: Y → X
invgf:= invmap wgf: Z → X
invg:= f ∘ invgf: ∏ x : Z, (λ _ : X, Y) (invgf x)
eginvg: ∏ z : Z, g (invg z) = z
isweq g

  assert (einvgg : ∏ y : Y, invg (g y) = y).
X, Y, Z: UU
f: X → Y
g: Y → Z
isf: isweq f
isgf: isweq (g ∘ f)
wf:= make_weq f isf: X ≃ Y
wgf:= make_weq (g ∘ f) isgf: X ≃ Z
invf:= invmap wf: Y → X
invgf:= invmap wgf: Z → X
invg:= f ∘ invgf: ∏ x : Z, (λ _ : X, Y) (invgf x)
eginvg: ∏ z : Z, g (invg z) = z
∏ y : Y, invg (g y) = y
X, Y, Z: UU
f: X → Y
g: Y → Z
isf: isweq f
isgf: isweq (g ∘ f)
wf:= make_weq f isf: X ≃ Y
wgf:= make_weq (g ∘ f) isgf: X ≃ Z
invf:= invmap wf: Y → X
invgf:= invmap wgf: Z → X
invg:= f ∘ invgf: ∏ x : Z, (λ _ : X, Y) (invgf x)
eginvg: ∏ z : Z, g (invg z) = z
einvgg: ∏ y : Y, invg (g y) = y
isweq g
  {
X, Y, Z: UU
f: X → Y
g: Y → Z
isf: isweq f
isgf: isweq (g ∘ f)
wf:= make_weq f isf: X ≃ Y
wgf:= make_weq (g ∘ f) isgf: X ≃ Z
invf:= invmap wf: Y → X
invgf:= invmap wgf: Z → X
invg:= f ∘ invgf: ∏ x : Z, (λ _ : X, Y) (invgf x)
eginvg: ∏ z : Z, g (invg z) = z
∏ y : Y, invg (g y) = y intro.
X, Y, Z: UU
f: X → Y
g: Y → Z
isf: isweq f
isgf: isweq (g ∘ f)
wf:= make_weq f isf: X ≃ Y
wgf:= make_weq (g ∘ f) isgf: X ≃ Z
invf:= invmap wf: Y → X
invgf:= invmap wgf: Z → X
invg:= f ∘ invgf: ∏ x : Z, (λ _ : X, Y) (invgf x)
eginvg: ∏ z : Z, g (invg z) = z
y: Y
invg (g y) = y unfold invg.
X, Y, Z: UU
f: X → Y
g: Y → Z
isf: isweq f
isgf: isweq (g ∘ f)
wf:= make_weq f isf: X ≃ Y
wgf:= make_weq (g ∘ f) isgf: X ≃ Z
invf:= invmap wf: Y → X
invgf:= invmap wgf: Z → X
invg:= f ∘ invgf: ∏ x : Z, (λ _ : X, Y) (invgf x)
eginvg: ∏ z : Z, g (invg z) = z
y: Y
(f ∘ invgf) (g y) = y

    assert (isinvf: isweq invf).
X, Y, Z: UU
f: X → Y
g: Y → Z
isf: isweq f
isgf: isweq (g ∘ f)
wf:= make_weq f isf: X ≃ Y
wgf:= make_weq (g ∘ f) isgf: X ≃ Z
invf:= invmap wf: Y → X
invgf:= invmap wgf: Z → X
invg:= f ∘ invgf: ∏ x : Z, (λ _ : X, Y) (invgf x)
eginvg: ∏ z : Z, g (invg z) = z
y: Y
isweq invf
X, Y, Z: UU
f: X → Y
g: Y → Z
isf: isweq f
isgf: isweq (g ∘ f)
wf:= make_weq f isf: X ≃ Y
wgf:= make_weq (g ∘ f) isgf: X ≃ Z
invf:= invmap wf: Y → X
invgf:= invmap wgf: Z → X
invg:= f ∘ invgf: ∏ x : Z, (λ _ : X, Y) (invgf x)
eginvg: ∏ z : Z, g (invg z) = z
y: Y
isinvf: isweq invf
(f ∘ invgf) (g y) = y
    {
X, Y, Z: UU
f: X → Y
g: Y → Z
isf: isweq f
isgf: isweq (g ∘ f)
wf:= make_weq f isf: X ≃ Y
wgf:= make_weq (g ∘ f) isgf: X ≃ Z
invf:= invmap wf: Y → X
invgf:= invmap wgf: Z → X
invg:= f ∘ invgf: ∏ x : Z, (λ _ : X, Y) (invgf x)
eginvg: ∏ z : Z, g (invg z) = z
y: Y
isweq invf apply isweqinvmap. }
X, Y, Z: UU
f: X → Y
g: Y → Z
isf: isweq f
isgf: isweq (g ∘ f)
wf:= make_weq f isf: X ≃ Y
wgf:= make_weq (g ∘ f) isgf: X ≃ Z
invf:= invmap wf: Y → X
invgf:= invmap wgf: Z → X
invg:= f ∘ invgf: ∏ x : Z, (λ _ : X, Y) (invgf x)
eginvg: ∏ z : Z, g (invg z) = z
y: Y
isinvf: isweq invf
(f ∘ invgf) (g y) = y
    assert (isinvgf: isweq invgf).
X, Y, Z: UU
f: X → Y
g: Y → Z
isf: isweq f
isgf: isweq (g ∘ f)
wf:= make_weq f isf: X ≃ Y
wgf:= make_weq (g ∘ f) isgf: X ≃ Z
invf:= invmap wf: Y → X
invgf:= invmap wgf: Z → X
invg:= f ∘ invgf: ∏ x : Z, (λ _ : X, Y) (invgf x)
eginvg: ∏ z : Z, g (invg z) = z
y: Y
isinvf: isweq invf
isweq invgf
X, Y, Z: UU
f: X → Y
g: Y → Z
isf: isweq f
isgf: isweq (g ∘ f)
wf:= make_weq f isf: X ≃ Y
wgf:= make_weq (g ∘ f) isgf: X ≃ Z
invf:= invmap wf: Y → X
invgf:= invmap wgf: Z → X
invg:= f ∘ invgf: ∏ x : Z, (λ _ : X, Y) (invgf x)
eginvg: ∏ z : Z, g (invg z) = z
y: Y
isinvf: isweq invf
isinvgf: isweq invgf
(f ∘ invgf) (g y) = y
    {
X, Y, Z: UU
f: X → Y
g: Y → Z
isf: isweq f
isgf: isweq (g ∘ f)
wf:= make_weq f isf: X ≃ Y
wgf:= make_weq (g ∘ f) isgf: X ≃ Z
invf:= invmap wf: Y → X
invgf:= invmap wgf: Z → X
invg:= f ∘ invgf: ∏ x : Z, (λ _ : X, Y) (invgf x)
eginvg: ∏ z : Z, g (invg z) = z
y: Y
isinvf: isweq invf
isweq invgf apply isweqinvmap. }
X, Y, Z: UU
f: X → Y
g: Y → Z
isf: isweq f
isgf: isweq (g ∘ f)
wf:= make_weq f isf: X ≃ Y
wgf:= make_weq (g ∘ f) isgf: X ≃ Z
invf:= invmap wf: Y → X
invgf:= invmap wgf: Z → X
invg:= f ∘ invgf: ∏ x : Z, (λ _ : X, Y) (invgf x)
eginvg: ∏ z : Z, g (invg z) = z
y: Y
isinvf: isweq invf
isinvgf: isweq invgf
(f ∘ invgf) (g y) = y

    assert (int1 : g y = (g ∘ f) (invf y)).
X, Y, Z: UU
f: X → Y
g: Y → Z
isf: isweq f
isgf: isweq (g ∘ f)
wf:= make_weq f isf: X ≃ Y
wgf:= make_weq (g ∘ f) isgf: X ≃ Z
invf:= invmap wf: Y → X
invgf:= invmap wgf: Z → X
invg:= f ∘ invgf: ∏ x : Z, (λ _ : X, Y) (invgf x)
eginvg: ∏ z : Z, g (invg z) = z
y: Y
isinvf: isweq invf
isinvgf: isweq invgf
g y = (g ∘ f) (invf y)
X, Y, Z: UU
f: X → Y
g: Y → Z
isf: isweq f
isgf: isweq (g ∘ f)
wf:= make_weq f isf: X ≃ Y
wgf:= make_weq (g ∘ f) isgf: X ≃ Z
invf:= invmap wf: Y → X
invgf:= invmap wgf: Z → X
invg:= f ∘ invgf: ∏ x : Z, (λ _ : X, Y) (invgf x)
eginvg: ∏ z : Z, g (invg z) = z
y: Y
isinvf: isweq invf
isinvgf: isweq invgf
int1: g y = (g ∘ f) (invf y)
(f ∘ invgf) (g y) = y
    apply (maponpaths g (! homotweqinvweq wf y)).
X, Y, Z: UU
f: X → Y
g: Y → Z
isf: isweq f
isgf: isweq (g ∘ f)
wf:= make_weq f isf: X ≃ Y
wgf:= make_weq (g ∘ f) isgf: X ≃ Z
invf:= invmap wf: Y → X
invgf:= invmap wgf: Z → X
invg:= f ∘ invgf: ∏ x : Z, (λ _ : X, Y) (invgf x)
eginvg: ∏ z : Z, g (invg z) = z
y: Y
isinvf: isweq invf
isinvgf: isweq invgf
int1: g y = (g ∘ f) (invf y)
(f ∘ invgf) (g y) = y

    assert (int2 : (g ∘ f) (invgf (g y)) = (g ∘ f) (invf y)).
X, Y, Z: UU
f: X → Y
g: Y → Z
isf: isweq f
isgf: isweq (g ∘ f)
wf:= make_weq f isf: X ≃ Y
wgf:= make_weq (g ∘ f) isgf: X ≃ Z
invf:= invmap wf: Y → X
invgf:= invmap wgf: Z → X
invg:= f ∘ invgf: ∏ x : Z, (λ _ : X, Y) (invgf x)
eginvg: ∏ z : Z, g (invg z) = z
y: Y
isinvf: isweq invf
isinvgf: isweq invgf
int1: g y = (g ∘ f) (invf y)
(g ∘ f) (invgf (g y)) = (g ∘ f) (invf y)
X, Y, Z: UU
f: X → Y
g: Y → Z
isf: isweq f
isgf: isweq (g ∘ f)
wf:= make_weq f isf: X ≃ Y
wgf:= make_weq (g ∘ f) isgf: X ≃ Z
invf:= invmap wf: Y → X
invgf:= invmap wgf: Z → X
invg:= f ∘ invgf: ∏ x : Z, (λ _ : X, Y) (invgf x)
eginvg: ∏ z : Z, g (invg z) = z
y: Y
isinvf: isweq invf
isinvgf: isweq invgf
int1: g y = (g ∘ f) (invf y)
int2: (g ∘ f) (invgf (g y)) = (g ∘ f) (invf y)
(f ∘ invgf) (g y) = y
    {
X, Y, Z: UU
f: X → Y
g: Y → Z
isf: isweq f
isgf: isweq (g ∘ f)
wf:= make_weq f isf: X ≃ Y
wgf:= make_weq (g ∘ f) isgf: X ≃ Z
invf:= invmap wf: Y → X
invgf:= invmap wgf: Z → X
invg:= f ∘ invgf: ∏ x : Z, (λ _ : X, Y) (invgf x)
eginvg: ∏ z : Z, g (invg z) = z
y: Y
isinvf: isweq invf
isinvgf: isweq invgf
int1: g y = (g ∘ f) (invf y)
(g ∘ f) (invgf (g y)) = (g ∘ f) (invf y)
      assert (int3: (g ∘ f) (invgf (g y)) = g y).
X, Y, Z: UU
f: X → Y
g: Y → Z
isf: isweq f
isgf: isweq (g ∘ f)
wf:= make_weq f isf: X ≃ Y
wgf:= make_weq (g ∘ f) isgf: X ≃ Z
invf:= invmap wf: Y → X
invgf:= invmap wgf: Z → X
invg:= f ∘ invgf: ∏ x : Z, (λ _ : X, Y) (invgf x)
eginvg: ∏ z : Z, g (invg z) = z
y: Y
isinvf: isweq invf
isinvgf: isweq invgf
int1: g y = (g ∘ f) (invf y)
(g ∘ f) (invgf (g y)) = g y
X, Y, Z: UU
f: X → Y
g: Y → Z
isf: isweq f
isgf: isweq (g ∘ f)
wf:= make_weq f isf: X ≃ Y
wgf:= make_weq (g ∘ f) isgf: X ≃ Z
invf:= invmap wf: Y → X
invgf:= invmap wgf: Z → X
invg:= f ∘ invgf: ∏ x : Z, (λ _ : X, Y) (invgf x)
eginvg: ∏ z : Z, g (invg z) = z
y: Y
isinvf: isweq invf
isinvgf: isweq invgf
int1: g y = (g ∘ f) (invf y)
int3: (g ∘ f) (invgf (g y)) = g y
(g ∘ f) (invgf (g y)) = (g ∘ f) (invf y)
      {
X, Y, Z: UU
f: X → Y
g: Y → Z
isf: isweq f
isgf: isweq (g ∘ f)
wf:= make_weq f isf: X ≃ Y
wgf:= make_weq (g ∘ f) isgf: X ≃ Z
invf:= invmap wf: Y → X
invgf:= invmap wgf: Z → X
invg:= f ∘ invgf: ∏ x : Z, (λ _ : X, Y) (invgf x)
eginvg: ∏ z : Z, g (invg z) = z
y: Y
isinvf: isweq invf
isinvgf: isweq invgf
int1: g y = (g ∘ f) (invf y)
(g ∘ f) (invgf (g y)) = g y apply (homotweqinvweq wgf). }
X, Y, Z: UU
f: X → Y
g: Y → Z
isf: isweq f
isgf: isweq (g ∘ f)
wf:= make_weq f isf: X ≃ Y
wgf:= make_weq (g ∘ f) isgf: X ≃ Z
invf:= invmap wf: Y → X
invgf:= invmap wgf: Z → X
invg:= f ∘ invgf: ∏ x : Z, (λ _ : X, Y) (invgf x)
eginvg: ∏ z : Z, g (invg z) = z
y: Y
isinvf: isweq invf
isinvgf: isweq invgf
int1: g y = (g ∘ f) (invf y)
int3: (g ∘ f) (invgf (g y)) = g y
(g ∘ f) (invgf (g y)) = (g ∘ f) (invf y)
      induction int1.
X, Y, Z: UU
f: X → Y
g: Y → Z
isf: isweq f
isgf: isweq (g ∘ f)
wf:= make_weq f isf: X ≃ Y
wgf:= make_weq (g ∘ f) isgf: X ≃ Z
invf:= invmap wf: Y → X
invgf:= invmap wgf: Z → X
invg:= f ∘ invgf: ∏ x : Z, (λ _ : X, Y) (invgf x)
eginvg: ∏ z : Z, g (invg z) = z
y: Y
isinvf: isweq invf
isinvgf: isweq invgf
int3: (g ∘ f) (invgf (g y)) = g y
(g ∘ f) (invgf (g y)) = g y
      apply int3.
    }
X, Y, Z: UU
f: X → Y
g: Y → Z
isf: isweq f
isgf: isweq (g ∘ f)
wf:= make_weq f isf: X ≃ Y
wgf:= make_weq (g ∘ f) isgf: X ≃ Z
invf:= invmap wf: Y → X
invgf:= invmap wgf: Z → X
invg:= f ∘ invgf: ∏ x : Z, (λ _ : X, Y) (invgf x)
eginvg: ∏ z : Z, g (invg z) = z
y: Y
isinvf: isweq invf
isinvgf: isweq invgf
int1: g y = (g ∘ f) (invf y)
int2: (g ∘ f) (invgf (g y)) = (g ∘ f) (invf y)
(f ∘ invgf) (g y) = y

    assert (int4: (invgf (g y)) = (invf y)).
X, Y, Z: UU
f: X → Y
g: Y → Z
isf: isweq f
isgf: isweq (g ∘ f)
wf:= make_weq f isf: X ≃ Y
wgf:= make_weq (g ∘ f) isgf: X ≃ Z
invf:= invmap wf: Y → X
invgf:= invmap wgf: Z → X
invg:= f ∘ invgf: ∏ x : Z, (λ _ : X, Y) (invgf x)
eginvg: ∏ z : Z, g (invg z) = z
y: Y
isinvf: isweq invf
isinvgf: isweq invgf
int1: g y = (g ∘ f) (invf y)
int2: (g ∘ f) (invgf (g y)) = (g ∘ f) (invf y)
invgf (g y) = invf y
X, Y, Z: UU
f: X → Y
g: Y → Z
isf: isweq f
isgf: isweq (g ∘ f)
wf:= make_weq f isf: X ≃ Y
wgf:= make_weq (g ∘ f) isgf: X ≃ Z
invf:= invmap wf: Y → X
invgf:= invmap wgf: Z → X
invg:= f ∘ invgf: ∏ x : Z, (λ _ : X, Y) (invgf x)
eginvg: ∏ z : Z, g (invg z) = z
y: Y
isinvf: isweq invf
isinvgf: isweq invgf
int1: g y = (g ∘ f) (invf y)
int2: (g ∘ f) (invgf (g y)) = (g ∘ f) (invf y)
int4: invgf (g y) = invf y
(f ∘ invgf) (g y) = y
    {
X, Y, Z: UU
f: X → Y
g: Y → Z
isf: isweq f
isgf: isweq (g ∘ f)
wf:= make_weq f isf: X ≃ Y
wgf:= make_weq (g ∘ f) isgf: X ≃ Z
invf:= invmap wf: Y → X
invgf:= invmap wgf: Z → X
invg:= f ∘ invgf: ∏ x : Z, (λ _ : X, Y) (invgf x)
eginvg: ∏ z : Z, g (invg z) = z
y: Y
isinvf: isweq invf
isinvgf: isweq invgf
int1: g y = (g ∘ f) (invf y)
int2: (g ∘ f) (invgf (g y)) = (g ∘ f) (invf y)
invgf (g y) = invf y apply (invmaponpathsweq wgf).
X, Y, Z: UU
f: X → Y
g: Y → Z
isf: isweq f
isgf: isweq (g ∘ f)
wf:= make_weq f isf: X ≃ Y
wgf:= make_weq (g ∘ f) isgf: X ≃ Z
invf:= invmap wf: Y → X
invgf:= invmap wgf: Z → X
invg:= f ∘ invgf: ∏ x : Z, (λ _ : X, Y) (invgf x)
eginvg: ∏ z : Z, g (invg z) = z
y: Y
isinvf: isweq invf
isinvgf: isweq invgf
int1: g y = (g ∘ f) (invf y)
int2: (g ∘ f) (invgf (g y)) = (g ∘ f) (invf y)
wgf (invgf (g y)) = wgf (invf y) apply int2. }
X, Y, Z: UU
f: X → Y
g: Y → Z
isf: isweq f
isgf: isweq (g ∘ f)
wf:= make_weq f isf: X ≃ Y
wgf:= make_weq (g ∘ f) isgf: X ≃ Z
invf:= invmap wf: Y → X
invgf:= invmap wgf: Z → X
invg:= f ∘ invgf: ∏ x : Z, (λ _ : X, Y) (invgf x)
eginvg: ∏ z : Z, g (invg z) = z
y: Y
isinvf: isweq invf
isinvgf: isweq invgf
int1: g y = (g ∘ f) (invf y)
int2: (g ∘ f) (invgf (g y)) = (g ∘ f) (invf y)
int4: invgf (g y) = invf y
(f ∘ invgf) (g y) = y

    assert (int5: (invf (f (invgf (g y)))) = (invgf (g y))).
X, Y, Z: UU
f: X → Y
g: Y → Z
isf: isweq f
isgf: isweq (g ∘ f)
wf:= make_weq f isf: X ≃ Y
wgf:= make_weq (g ∘ f) isgf: X ≃ Z
invf:= invmap wf: Y → X
invgf:= invmap wgf: Z → X
invg:= f ∘ invgf: ∏ x : Z, (λ _ : X, Y) (invgf x)
eginvg: ∏ z : Z, g (invg z) = z
y: Y
isinvf: isweq invf
isinvgf: isweq invgf
int1: g y = (g ∘ f) (invf y)
int2: (g ∘ f) (invgf (g y)) = (g ∘ f) (invf y)
int4: invgf (g y) = invf y
invf (f (invgf (g y))) = invgf (g y)
X, Y, Z: UU
f: X → Y
g: Y → Z
isf: isweq f
isgf: isweq (g ∘ f)
wf:= make_weq f isf: X ≃ Y
wgf:= make_weq (g ∘ f) isgf: X ≃ Z
invf:= invmap wf: Y → X
invgf:= invmap wgf: Z → X
invg:= f ∘ invgf: ∏ x : Z, (λ _ : X, Y) (invgf x)
eginvg: ∏ z : Z, g (invg z) = z
y: Y
isinvf: isweq invf
isinvgf: isweq invgf
int1: g y = (g ∘ f) (invf y)
int2: (g ∘ f) (invgf (g y)) = (g ∘ f) (invf y)
int4: invgf (g y) = invf y
int5: invf (f (invgf (g y))) = invgf (g y)
(f ∘ invgf) (g y) = y
    {
X, Y, Z: UU
f: X → Y
g: Y → Z
isf: isweq f
isgf: isweq (g ∘ f)
wf:= make_weq f isf: X ≃ Y
wgf:= make_weq (g ∘ f) isgf: X ≃ Z
invf:= invmap wf: Y → X
invgf:= invmap wgf: Z → X
invg:= f ∘ invgf: ∏ x : Z, (λ _ : X, Y) (invgf x)
eginvg: ∏ z : Z, g (invg z) = z
y: Y
isinvf: isweq invf
isinvgf: isweq invgf
int1: g y = (g ∘ f) (invf y)
int2: (g ∘ f) (invgf (g y)) = (g ∘ f) (invf y)
int4: invgf (g y) = invf y
invf (f (invgf (g y))) = invgf (g y) apply (homotinvweqweq wf). }
X, Y, Z: UU
f: X → Y
g: Y → Z
isf: isweq f
isgf: isweq (g ∘ f)
wf:= make_weq f isf: X ≃ Y
wgf:= make_weq (g ∘ f) isgf: X ≃ Z
invf:= invmap wf: Y → X
invgf:= invmap wgf: Z → X
invg:= f ∘ invgf: ∏ x : Z, (λ _ : X, Y) (invgf x)
eginvg: ∏ z : Z, g (invg z) = z
y: Y
isinvf: isweq invf
isinvgf: isweq invgf
int1: g y = (g ∘ f) (invf y)
int2: (g ∘ f) (invgf (g y)) = (g ∘ f) (invf y)
int4: invgf (g y) = invf y
int5: invf (f (invgf (g y))) = invgf (g y)
(f ∘ invgf) (g y) = y

    assert (int6: (invf (f (invgf (g (y))))) = (invf y)).
X, Y, Z: UU
f: X → Y
g: Y → Z
isf: isweq f
isgf: isweq (g ∘ f)
wf:= make_weq f isf: X ≃ Y
wgf:= make_weq (g ∘ f) isgf: X ≃ Z
invf:= invmap wf: Y → X
invgf:= invmap wgf: Z → X
invg:= f ∘ invgf: ∏ x : Z, (λ _ : X, Y) (invgf x)
eginvg: ∏ z : Z, g (invg z) = z
y: Y
isinvf: isweq invf
isinvgf: isweq invgf
int1: g y = (g ∘ f) (invf y)
int2: (g ∘ f) (invgf (g y)) = (g ∘ f) (invf y)
int4: invgf (g y) = invf y
int5: invf (f (invgf (g y))) = invgf (g y)
invf (f (invgf (g y))) = invf y
X, Y, Z: UU
f: X → Y
g: Y → Z
isf: isweq f
isgf: isweq (g ∘ f)
wf:= make_weq f isf: X ≃ Y
wgf:= make_weq (g ∘ f) isgf: X ≃ Z
invf:= invmap wf: Y → X
invgf:= invmap wgf: Z → X
invg:= f ∘ invgf: ∏ x : Z, (λ _ : X, Y) (invgf x)
eginvg: ∏ z : Z, g (invg z) = z
y: Y
isinvf: isweq invf
isinvgf: isweq invgf
int1: g y = (g ∘ f) (invf y)
int2: (g ∘ f) (invgf (g y)) = (g ∘ f) (invf y)
int4: invgf (g y) = invf y
int5: invf (f (invgf (g y))) = invgf (g y)
int6: invf (f (invgf (g y))) = invf y
(f ∘ invgf) (g y) = y
    {
X, Y, Z: UU
f: X → Y
g: Y → Z
isf: isweq f
isgf: isweq (g ∘ f)
wf:= make_weq f isf: X ≃ Y
wgf:= make_weq (g ∘ f) isgf: X ≃ Z
invf:= invmap wf: Y → X
invgf:= invmap wgf: Z → X
invg:= f ∘ invgf: ∏ x : Z, (λ _ : X, Y) (invgf x)
eginvg: ∏ z : Z, g (invg z) = z
y: Y
isinvf: isweq invf
isinvgf: isweq invgf
int1: g y = (g ∘ f) (invf y)
int2: (g ∘ f) (invgf (g y)) = (g ∘ f) (invf y)
int4: invgf (g y) = invf y
int5: invf (f (invgf (g y))) = invgf (g y)
invf (f (invgf (g y))) = invf y induction int4.
X, Y, Z: UU
f: X → Y
g: Y → Z
isf: isweq f
isgf: isweq (g ∘ f)
wf:= make_weq f isf: X ≃ Y
wgf:= make_weq (g ∘ f) isgf: X ≃ Z
invf:= invmap wf: Y → X
invgf:= invmap wgf: Z → X
invg:= f ∘ invgf: ∏ x : Z, (λ _ : X, Y) (invgf x)
eginvg: ∏ z : Z, g (invg z) = z
y: Y
isinvf: isweq invf
isinvgf: isweq invgf
int1: g y = (g ∘ f) (invgf (g y))
int2: (g ∘ f) (invgf (g y)) = (g ∘ f) (invgf (g y))
int5: invf (f (invgf (g y))) = invgf (g y)
invf (f (invgf (g y))) = invgf (g y) apply int5. }
X, Y, Z: UU
f: X → Y
g: Y → Z
isf: isweq f
isgf: isweq (g ∘ f)
wf:= make_weq f isf: X ≃ Y
wgf:= make_weq (g ∘ f) isgf: X ≃ Z
invf:= invmap wf: Y → X
invgf:= invmap wgf: Z → X
invg:= f ∘ invgf: ∏ x : Z, (λ _ : X, Y) (invgf x)
eginvg: ∏ z : Z, g (invg z) = z
y: Y
isinvf: isweq invf
isinvgf: isweq invgf
int1: g y = (g ∘ f) (invf y)
int2: (g ∘ f) (invgf (g y)) = (g ∘ f) (invf y)
int4: invgf (g y) = invf y
int5: invf (f (invgf (g y))) = invgf (g y)
int6: invf (f (invgf (g y))) = invf y
(f ∘ invgf) (g y) = y

    apply (invmaponpathsweq (make_weq invf isinvf)).
X, Y, Z: UU
f: X → Y
g: Y → Z
isf: isweq f
isgf: isweq (g ∘ f)
wf:= make_weq f isf: X ≃ Y
wgf:= make_weq (g ∘ f) isgf: X ≃ Z
invf:= invmap wf: Y → X
invgf:= invmap wgf: Z → X
invg:= f ∘ invgf: ∏ x : Z, (λ _ : X, Y) (invgf x)
eginvg: ∏ z : Z, g (invg z) = z
y: Y
isinvf: isweq invf
isinvgf: isweq invgf
int1: g y = (g ∘ f) (invf y)
int2: (g ∘ f) (invgf (g y)) = (g ∘ f) (invf y)
int4: invgf (g y) = invf y
int5: invf (f (invgf (g y))) = invgf (g y)
int6: invf (f (invgf (g y))) = invf y
make_weq invf isinvf ((f ∘ invgf) (g y)) =
make_weq invf isinvf y
    simpl.
X, Y, Z: UU
f: X → Y
g: Y → Z
isf: isweq f
isgf: isweq (g ∘ f)
wf:= make_weq f isf: X ≃ Y
wgf:= make_weq (g ∘ f) isgf: X ≃ Z
invf:= invmap wf: Y → X
invgf:= invmap wgf: Z → X
invg:= f ∘ invgf: ∏ x : Z, (λ _ : X, Y) (invgf x)
eginvg: ∏ z : Z, g (invg z) = z
y: Y
isinvf: isweq invf
isinvgf: isweq invgf
int1: g y = (g ∘ f) (invf y)
int2: (g ∘ f) (invgf (g y)) = (g ∘ f) (invf y)
int4: invgf (g y) = invf y
int5: invf (f (invgf (g y))) = invgf (g y)
int6: invf (f (invgf (g y))) = invf y
invf (f (invgf (g y))) = invf y
    apply int6.
  }
X, Y, Z: UU
f: X → Y
g: Y → Z
isf: isweq f
isgf: isweq (g ∘ f)
wf:= make_weq f isf: X ≃ Y
wgf:= make_weq (g ∘ f) isgf: X ≃ Z
invf:= invmap wf: Y → X
invgf:= invmap wgf: Z → X
invg:= f ∘ invgf: ∏ x : Z, (λ _ : X, Y) (invgf x)
eginvg: ∏ z : Z, g (invg z) = z
einvgg: ∏ y : Y, invg (g y) = y
isweq g

  apply (isweq_iso g invg einvgg eginvg).
Defined.

Lemma isweql3 {X Y : UU} (f : X -> Y) (g : Y -> X)
      (egf : ∏ x : X, g (f x) = x) : isweq f -> isweq g.
X, Y: UU
f: X → Y
g: Y → X
egf: ∏ x : X, g (f x) = x
isweq f → isweq g
Proof.
X, Y: UU
f: X → Y
g: Y → X
egf: ∏ x : X, g (f x) = x
isweq f → isweq g
  intros w.
X, Y: UU
f: X → Y
g: Y → X
egf: ∏ x : X, g (f x) = x
w: isweq f
isweq g
  assert (int1 : isweq (g ∘ f)).
X, Y: UU
f: X → Y
g: Y → X
egf: ∏ x : X, g (f x) = x
w: isweq f
isweq (g ∘ f)
X, Y: UU
f: X → Y
g: Y → X
egf: ∏ x : X, g (f x) = x
w: isweq f
int1: isweq (g ∘ f)
isweq g
  {
X, Y: UU
f: X → Y
g: Y → X
egf: ∏ x : X, g (f x) = x
w: isweq f
isweq (g ∘ f)
    apply (isweqhomot (idfun X) (g ∘ f) (λ (x : X), ! (egf x))).
X, Y: UU
f: X → Y
g: Y → X
egf: ∏ x : X, g (f x) = x
w: isweq f
isweq (idfun X)
    apply idisweq.
  }
X, Y: UU
f: X → Y
g: Y → X
egf: ∏ x : X, g (f x) = x
w: isweq f
int1: isweq (g ∘ f)
isweq g
  apply (twooutof3b f g w int1).
Defined.

Theorem twooutof3c {X Y Z : UU} (f : X -> Y) (g : Y -> Z)
        (isf : isweq f) (isg : isweq g) : isweq (g ∘ f).
X, Y, Z: UU
f: X → Y
g: Y → Z
isf: isweq f
isg: isweq g
isweq (g ∘ f)
Proof.
X, Y, Z: UU
f: X → Y
g: Y → Z
isf: isweq f
isg: isweq g
isweq (g ∘ f)
  intros.
X, Y, Z: UU
f: X → Y
g: Y → Z
isf: isweq f
isg: isweq g
isweq (g ∘ f)
  set (wf := make_weq f isf).
X, Y, Z: UU
f: X → Y
g: Y → Z
isf: isweq f
isg: isweq g
wf:= make_weq f isf: X ≃ Y
isweq (g ∘ f)
  set (wg := make_weq g isg).
X, Y, Z: UU
f: X → Y
g: Y → Z
isf: isweq f
isg: isweq g
wf:= make_weq f isf: X ≃ Y
wg:= make_weq g isg: Y ≃ Z
isweq (g ∘ f)
  set (invf := invmap wf).
X, Y, Z: UU
f: X → Y
g: Y → Z
isf: isweq f
isg: isweq g
wf:= make_weq f isf: X ≃ Y
wg:= make_weq g isg: Y ≃ Z
invf:= invmap wf: Y → X
isweq (g ∘ f)
  set (invg := invmap wg).
X, Y, Z: UU
f: X → Y
g: Y → Z
isf: isweq f
isg: isweq g
wf:= make_weq f isf: X ≃ Y
wg:= make_weq g isg: Y ≃ Z
invf:= invmap wf: Y → X
invg:= invmap wg: Z → Y
isweq (g ∘ f)

  set (gf := g ∘ f).
X, Y, Z: UU
f: X → Y
g: Y → Z
isf: isweq f
isg: isweq g
wf:= make_weq f isf: X ≃ Y
wg:= make_weq g isg: Y ≃ Z
invf:= invmap wf: Y → X
invg:= invmap wg: Z → Y
gf:= g ∘ f: ∏ x : X, (λ _ : Y, Z) (f x)
isweq gf
  set (invgf := invf ∘ invg).
X, Y, Z: UU
f: X → Y
g: Y → Z
isf: isweq f
isg: isweq g
wf:= make_weq f isf: X ≃ Y
wg:= make_weq g isg: Y ≃ Z
invf:= invmap wf: Y → X
invg:= invmap wg: Z → Y
gf:= g ∘ f: ∏ x : X, (λ _ : Y, Z) (f x)
invgf:= invf ∘ invg: ∏ x : Z, (λ _ : Y, X) (invg x)
isweq gf

  assert (egfinvgf : ∏ x : X, invgf (gf x) = x).
X, Y, Z: UU
f: X → Y
g: Y → Z
isf: isweq f
isg: isweq g
wf:= make_weq f isf: X ≃ Y
wg:= make_weq g isg: Y ≃ Z
invf:= invmap wf: Y → X
invg:= invmap wg: Z → Y
gf:= g ∘ f: ∏ x : X, (λ _ : Y, Z) (f x)
invgf:= invf ∘ invg: ∏ x : Z, (λ _ : Y, X) (invg x)
∏ x : X, invgf (gf x) = x
X, Y, Z: UU
f: X → Y
g: Y → Z
isf: isweq f
isg: isweq g
wf:= make_weq f isf: X ≃ Y
wg:= make_weq g isg: Y ≃ Z
invf:= invmap wf: Y → X
invg:= invmap wg: Z → Y
gf:= g ∘ f: ∏ x : X, (λ _ : Y, Z) (f x)
invgf:= invf ∘ invg: ∏ x : Z, (λ _ : Y, X) (invg x)
egfinvgf: ∏ x : X, invgf (gf x) = x
isweq gf
  {
X, Y, Z: UU
f: X → Y
g: Y → Z
isf: isweq f
isg: isweq g
wf:= make_weq f isf: X ≃ Y
wg:= make_weq g isg: Y ≃ Z
invf:= invmap wf: Y → X
invg:= invmap wg: Z → Y
gf:= g ∘ f: ∏ x : X, (λ _ : Y, Z) (f x)
invgf:= invf ∘ invg: ∏ x : Z, (λ _ : Y, X) (invg x)
∏ x : X, invgf (gf x) = x
    intros x.
X, Y, Z: UU
f: X → Y
g: Y → Z
isf: isweq f
isg: isweq g
wf:= make_weq f isf: X ≃ Y
wg:= make_weq g isg: Y ≃ Z
invf:= invmap wf: Y → X
invg:= invmap wg: Z → Y
gf:= g ∘ f: ∏ x : X, (λ _ : Y, Z) (f x)
invgf:= invf ∘ invg: ∏ x : Z, (λ _ : Y, X) (invg x)
x: X
invgf (gf x) = x
    assert (int1 : invf (invg (g (f x))) = invf (f x)).
X, Y, Z: UU
f: X → Y
g: Y → Z
isf: isweq f
isg: isweq g
wf:= make_weq f isf: X ≃ Y
wg:= make_weq g isg: Y ≃ Z
invf:= invmap wf: Y → X
invg:= invmap wg: Z → Y
gf:= g ∘ f: ∏ x : X, (λ _ : Y, Z) (f x)
invgf:= invf ∘ invg: ∏ x : Z, (λ _ : Y, X) (invg x)
x: X
invf (invg (g (f x))) = invf (f x)
X, Y, Z: UU
f: X → Y
g: Y → Z
isf: isweq f
isg: isweq g
wf:= make_weq f isf: X ≃ Y
wg:= make_weq g isg: Y ≃ Z
invf:= invmap wf: Y → X
invg:= invmap wg: Z → Y
gf:= g ∘ f: ∏ x : X, (λ _ : Y, Z) (f x)
invgf:= invf ∘ invg: ∏ x : Z, (λ _ : Y, X) (invg x)
x: X
int1: invf (invg (g (f x))) = invf (f x)
invgf (gf x) = x
    {
X, Y, Z: UU
f: X → Y
g: Y → Z
isf: isweq f
isg: isweq g
wf:= make_weq f isf: X ≃ Y
wg:= make_weq g isg: Y ≃ Z
invf:= invmap wf: Y → X
invg:= invmap wg: Z → Y
gf:= g ∘ f: ∏ x : X, (λ _ : Y, Z) (f x)
invgf:= invf ∘ invg: ∏ x : Z, (λ _ : Y, X) (invg x)
x: X
invf (invg (g (f x))) = invf (f x) apply (maponpaths invf (homotinvweqweq wg (f x))). }
X, Y, Z: UU
f: X → Y
g: Y → Z
isf: isweq f
isg: isweq g
wf:= make_weq f isf: X ≃ Y
wg:= make_weq g isg: Y ≃ Z
invf:= invmap wf: Y → X
invg:= invmap wg: Z → Y
gf:= g ∘ f: ∏ x : X, (λ _ : Y, Z) (f x)
invgf:= invf ∘ invg: ∏ x : Z, (λ _ : Y, X) (invg x)
x: X
int1: invf (invg (g (f x))) = invf (f x)
invgf (gf x) = x
    assert (int2 : invf (f x) = x).
X, Y, Z: UU
f: X → Y
g: Y → Z
isf: isweq f
isg: isweq g
wf:= make_weq f isf: X ≃ Y
wg:= make_weq g isg: Y ≃ Z
invf:= invmap wf: Y → X
invg:= invmap wg: Z → Y
gf:= g ∘ f: ∏ x : X, (λ _ : Y, Z) (f x)
invgf:= invf ∘ invg: ∏ x : Z, (λ _ : Y, X) (invg x)
x: X
int1: invf (invg (g (f x))) = invf (f x)
invf (f x) = x
X, Y, Z: UU
f: X → Y
g: Y → Z
isf: isweq f
isg: isweq g
wf:= make_weq f isf: X ≃ Y
wg:= make_weq g isg: Y ≃ Z
invf:= invmap wf: Y → X
invg:= invmap wg: Z → Y
gf:= g ∘ f: ∏ x : X, (λ _ : Y, Z) (f x)
invgf:= invf ∘ invg: ∏ x : Z, (λ _ : Y, X) (invg x)
x: X
int1: invf (invg (g (f x))) = invf (f x)
int2: invf (f x) = x
invgf (gf x) = x
    {
X, Y, Z: UU
f: X → Y
g: Y → Z
isf: isweq f
isg: isweq g
wf:= make_weq f isf: X ≃ Y
wg:= make_weq g isg: Y ≃ Z
invf:= invmap wf: Y → X
invg:= invmap wg: Z → Y
gf:= g ∘ f: ∏ x : X, (λ _ : Y, Z) (f x)
invgf:= invf ∘ invg: ∏ x : Z, (λ _ : Y, X) (invg x)
x: X
int1: invf (invg (g (f x))) = invf (f x)
invf (f x) = x apply (homotinvweqweq wf x). }
X, Y, Z: UU
f: X → Y
g: Y → Z
isf: isweq f
isg: isweq g
wf:= make_weq f isf: X ≃ Y
wg:= make_weq g isg: Y ≃ Z
invf:= invmap wf: Y → X
invg:= invmap wg: Z → Y
gf:= g ∘ f: ∏ x : X, (λ _ : Y, Z) (f x)
invgf:= invf ∘ invg: ∏ x : Z, (λ _ : Y, X) (invg x)
x: X
int1: invf (invg (g (f x))) = invf (f x)
int2: invf (f x) = x
invgf (gf x) = x
    induction int1.
X, Y, Z: UU
f: X → Y
g: Y → Z
isf: isweq f
isg: isweq g
wf:= make_weq f isf: X ≃ Y
wg:= make_weq g isg: Y ≃ Z
invf:= invmap wf: Y → X
invg:= invmap wg: Z → Y
gf:= g ∘ f: ∏ x : X, (λ _ : Y, Z) (f x)
invgf:= invf ∘ invg: ∏ x : Z, (λ _ : Y, X) (invg x)
x: X
int2: invf (invg (g (f x))) = x
invgf (gf x) = x
    apply int2.
  }
X, Y, Z: UU
f: X → Y
g: Y → Z
isf: isweq f
isg: isweq g
wf:= make_weq f isf: X ≃ Y
wg:= make_weq g isg: Y ≃ Z
invf:= invmap wf: Y → X
invg:= invmap wg: Z → Y
gf:= g ∘ f: ∏ x : X, (λ _ : Y, Z) (f x)
invgf:= invf ∘ invg: ∏ x : Z, (λ _ : Y, X) (invg x)
egfinvgf: ∏ x : X, invgf (gf x) = x
isweq gf

  assert (einvgfgf : ∏ z : Z, gf (invgf z) = z).
X, Y, Z: UU
f: X → Y
g: Y → Z
isf: isweq f
isg: isweq g
wf:= make_weq f isf: X ≃ Y
wg:= make_weq g isg: Y ≃ Z
invf:= invmap wf: Y → X
invg:= invmap wg: Z → Y
gf:= g ∘ f: ∏ x : X, (λ _ : Y, Z) (f x)
invgf:= invf ∘ invg: ∏ x : Z, (λ _ : Y, X) (invg x)
egfinvgf: ∏ x : X, invgf (gf x) = x
∏ z : Z, gf (invgf z) = z
X, Y, Z: UU
f: X → Y
g: Y → Z
isf: isweq f
isg: isweq g
wf:= make_weq f isf: X ≃ Y
wg:= make_weq g isg: Y ≃ Z
invf:= invmap wf: Y → X
invg:= invmap wg: Z → Y
gf:= g ∘ f: ∏ x : X, (λ _ : Y, Z) (f x)
invgf:= invf ∘ invg: ∏ x : Z, (λ _ : Y, X) (invg x)
egfinvgf: ∏ x : X, invgf (gf x) = x
einvgfgf: ∏ z : Z, gf (invgf z) = z
isweq gf
  {
X, Y, Z: UU
f: X → Y
g: Y → Z
isf: isweq f
isg: isweq g
wf:= make_weq f isf: X ≃ Y
wg:= make_weq g isg: Y ≃ Z
invf:= invmap wf: Y → X
invg:= invmap wg: Z → Y
gf:= g ∘ f: ∏ x : X, (λ _ : Y, Z) (f x)
invgf:= invf ∘ invg: ∏ x : Z, (λ _ : Y, X) (invg x)
egfinvgf: ∏ x : X, invgf (gf x) = x
∏ z : Z, gf (invgf z) = z
    intros z.
X, Y, Z: UU
f: X → Y
g: Y → Z
isf: isweq f
isg: isweq g
wf:= make_weq f isf: X ≃ Y
wg:= make_weq g isg: Y ≃ Z
invf:= invmap wf: Y → X
invg:= invmap wg: Z → Y
gf:= g ∘ f: ∏ x : X, (λ _ : Y, Z) (f x)
invgf:= invf ∘ invg: ∏ x : Z, (λ _ : Y, X) (invg x)
egfinvgf: ∏ x : X, invgf (gf x) = x
z: Z
gf (invgf z) = z
    assert (int1 : g (f (invgf z)) = g (invg z)).
X, Y, Z: UU
f: X → Y
g: Y → Z
isf: isweq f
isg: isweq g
wf:= make_weq f isf: X ≃ Y
wg:= make_weq g isg: Y ≃ Z
invf:= invmap wf: Y → X
invg:= invmap wg: Z → Y
gf:= g ∘ f: ∏ x : X, (λ _ : Y, Z) (f x)
invgf:= invf ∘ invg: ∏ x : Z, (λ _ : Y, X) (invg x)
egfinvgf: ∏ x : X, invgf (gf x) = x
z: Z
g (f (invgf z)) = g (invg z)
X, Y, Z: UU
f: X → Y
g: Y → Z
isf: isweq f
isg: isweq g
wf:= make_weq f isf: X ≃ Y
wg:= make_weq g isg: Y ≃ Z
invf:= invmap wf: Y → X
invg:= invmap wg: Z → Y
gf:= g ∘ f: ∏ x : X, (λ _ : Y, Z) (f x)
invgf:= invf ∘ invg: ∏ x : Z, (λ _ : Y, X) (invg x)
egfinvgf: ∏ x : X, invgf (gf x) = x
z: Z
int1: g (f (invgf z)) = g (invg z)
gf (invgf z) = z
    {
X, Y, Z: UU
f: X → Y
g: Y → Z
isf: isweq f
isg: isweq g
wf:= make_weq f isf: X ≃ Y
wg:= make_weq g isg: Y ≃ Z
invf:= invmap wf: Y → X
invg:= invmap wg: Z → Y
gf:= g ∘ f: ∏ x : X, (λ _ : Y, Z) (f x)
invgf:= invf ∘ invg: ∏ x : Z, (λ _ : Y, X) (invg x)
egfinvgf: ∏ x : X, invgf (gf x) = x
z: Z
g (f (invgf z)) = g (invg z)
      unfold invgf.
X, Y, Z: UU
f: X → Y
g: Y → Z
isf: isweq f
isg: isweq g
wf:= make_weq f isf: X ≃ Y
wg:= make_weq g isg: Y ≃ Z
invf:= invmap wf: Y → X
invg:= invmap wg: Z → Y
gf:= g ∘ f: ∏ x : X, (λ _ : Y, Z) (f x)
invgf:= invf ∘ invg: ∏ x : Z, (λ _ : Y, X) (invg x)
egfinvgf: ∏ x : X, invgf (gf x) = x
z: Z
g (f ((invf ∘ invg) z)) = g (invg z)
      apply (maponpaths g (homotweqinvweq wf (invg z))).
    }
X, Y, Z: UU
f: X → Y
g: Y → Z
isf: isweq f
isg: isweq g
wf:= make_weq f isf: X ≃ Y
wg:= make_weq g isg: Y ≃ Z
invf:= invmap wf: Y → X
invg:= invmap wg: Z → Y
gf:= g ∘ f: ∏ x : X, (λ _ : Y, Z) (f x)
invgf:= invf ∘ invg: ∏ x : Z, (λ _ : Y, X) (invg x)
egfinvgf: ∏ x : X, invgf (gf x) = x
z: Z
int1: g (f (invgf z)) = g (invg z)
gf (invgf z) = z
    assert (int2 : g (invg z) = z).
X, Y, Z: UU
f: X → Y
g: Y → Z
isf: isweq f
isg: isweq g
wf:= make_weq f isf: X ≃ Y
wg:= make_weq g isg: Y ≃ Z
invf:= invmap wf: Y → X
invg:= invmap wg: Z → Y
gf:= g ∘ f: ∏ x : X, (λ _ : Y, Z) (f x)
invgf:= invf ∘ invg: ∏ x : Z, (λ _ : Y, X) (invg x)
egfinvgf: ∏ x : X, invgf (gf x) = x
z: Z
int1: g (f (invgf z)) = g (invg z)
g (invg z) = z
X, Y, Z: UU
f: X → Y
g: Y → Z
isf: isweq f
isg: isweq g
wf:= make_weq f isf: X ≃ Y
wg:= make_weq g isg: Y ≃ Z
invf:= invmap wf: Y → X
invg:= invmap wg: Z → Y
gf:= g ∘ f: ∏ x : X, (λ _ : Y, Z) (f x)
invgf:= invf ∘ invg: ∏ x : Z, (λ _ : Y, X) (invg x)
egfinvgf: ∏ x : X, invgf (gf x) = x
z: Z
int1: g (f (invgf z)) = g (invg z)
int2: g (invg z) = z
gf (invgf z) = z
    {
X, Y, Z: UU
f: X → Y
g: Y → Z
isf: isweq f
isg: isweq g
wf:= make_weq f isf: X ≃ Y
wg:= make_weq g isg: Y ≃ Z
invf:= invmap wf: Y → X
invg:= invmap wg: Z → Y
gf:= g ∘ f: ∏ x : X, (λ _ : Y, Z) (f x)
invgf:= invf ∘ invg: ∏ x : Z, (λ _ : Y, X) (invg x)
egfinvgf: ∏ x : X, invgf (gf x) = x
z: Z
int1: g (f (invgf z)) = g (invg z)
g (invg z) = z apply (homotweqinvweq wg z). }
X, Y, Z: UU
f: X → Y
g: Y → Z
isf: isweq f
isg: isweq g
wf:= make_weq f isf: X ≃ Y
wg:= make_weq g isg: Y ≃ Z
invf:= invmap wf: Y → X
invg:= invmap wg: Z → Y
gf:= g ∘ f: ∏ x : X, (λ _ : Y, Z) (f x)
invgf:= invf ∘ invg: ∏ x : Z, (λ _ : Y, X) (invg x)
egfinvgf: ∏ x : X, invgf (gf x) = x
z: Z
int1: g (f (invgf z)) = g (invg z)
int2: g (invg z) = z
gf (invgf z) = z
    induction int1.
X, Y, Z: UU
f: X → Y
g: Y → Z
isf: isweq f
isg: isweq g
wf:= make_weq f isf: X ≃ Y
wg:= make_weq g isg: Y ≃ Z
invf:= invmap wf: Y → X
invg:= invmap wg: Z → Y
gf:= g ∘ f: ∏ x : X, (λ _ : Y, Z) (f x)
invgf:= invf ∘ invg: ∏ x : Z, (λ _ : Y, X) (invg x)
egfinvgf: ∏ x : X, invgf (gf x) = x
z: Z
int2: g (f (invgf z)) = z
gf (invgf z) = z
    apply int2.
  }
X, Y, Z: UU
f: X → Y
g: Y → Z
isf: isweq f
isg: isweq g
wf:= make_weq f isf: X ≃ Y
wg:= make_weq g isg: Y ≃ Z
invf:= invmap wf: Y → X
invg:= invmap wg: Z → Y
gf:= g ∘ f: ∏ x : X, (λ _ : Y, Z) (f x)
invgf:= invf ∘ invg: ∏ x : Z, (λ _ : Y, X) (invg x)
egfinvgf: ∏ x : X, invgf (gf x) = x
einvgfgf: ∏ z : Z, gf (invgf z) = z
isweq gf

  apply (isweq_iso gf invgf egfinvgf einvgfgf).
Defined.

Corollary twooutof3c_iff_2 {X Y Z : UU} (f : X -> Y) (g : Y -> Z) :
  isweq f -> (isweq g <-> isweq (g ∘ f)).
X, Y, Z: UU
f: X → Y
g: Y → Z
isweq f → isweq g <-> isweq (g ∘ f)
Proof.
X, Y, Z: UU
f: X → Y
g: Y → Z
isweq f → isweq g <-> isweq (g ∘ f)
  intros i.
X, Y, Z: UU
f: X → Y
g: Y → Z
i: isweq f
isweq g <-> isweq (g ∘ f) split.
X, Y, Z: UU
f: X → Y
g: Y → Z
i: isweq f
isweq g → isweq (g ∘ f)
X, Y, Z: UU
f: X → Y
g: Y → Z
i: isweq f
isweq (g ∘ f) → isweq g
  -
X, Y, Z: UU
f: X → Y
g: Y → Z
i: isweq f
isweq g → isweq (g ∘ f) intro j.
X, Y, Z: UU
f: X → Y
g: Y → Z
i: isweq f
j: isweq g
isweq (g ∘ f) exact (twooutof3c f g i j).
  -
X, Y, Z: UU
f: X → Y
g: Y → Z
i: isweq f
isweq (g ∘ f) → isweq g intro j.
X, Y, Z: UU
f: X → Y
g: Y → Z
i: isweq f
j: isweq (g ∘ f)
isweq g exact (twooutof3b f g i j).
Defined.

Corollary twooutof3c_iff_1 {X Y Z : UU} (f : X -> Y) (g : Y -> Z) :
  isweq g -> (isweq f <-> isweq (g ∘ f)).
X, Y, Z: UU
f: X → Y
g: Y → Z
isweq g → isweq f <-> isweq (g ∘ f)
Proof.
X, Y, Z: UU
f: X → Y
g: Y → Z
isweq g → isweq f <-> isweq (g ∘ f)
  intros i.
X, Y, Z: UU
f: X → Y
g: Y → Z
i: isweq g
isweq f <-> isweq (g ∘ f) split.
X, Y, Z: UU
f: X → Y
g: Y → Z
i: isweq g
isweq f → isweq (g ∘ f)
X, Y, Z: UU
f: X → Y
g: Y → Z
i: isweq g
isweq (g ∘ f) → isweq f
  -
X, Y, Z: UU
f: X → Y
g: Y → Z
i: isweq g
isweq f → isweq (g ∘ f) intro j.
X, Y, Z: UU
f: X → Y
g: Y → Z
i: isweq g
j: isweq f
isweq (g ∘ f) exact (twooutof3c f g j i).
  -
X, Y, Z: UU
f: X → Y
g: Y → Z
i: isweq g
isweq (g ∘ f) → isweq f intro j.
X, Y, Z: UU
f: X → Y
g: Y → Z
i: isweq g
j: isweq (g ∘ f)
isweq f exact (twooutof3a f g j i).
Defined.

Corollary twooutof3c_iff_1_homot {X Y Z : UU}
          (f : X -> Y) (g : Y -> Z) (h : X -> Z) :
  g ∘ f ~ h  -> isweq g -> (isweq f <-> isweq h).
X, Y, Z: UU
f: X → Y
g: Y → Z
h: X → Z
g ∘ f ~ h → isweq g → isweq f <-> isweq h
Proof.
X, Y, Z: UU
f: X → Y
g: Y → Z
h: X → Z
g ∘ f ~ h → isweq g → isweq f <-> isweq h
  intros r i.
X, Y, Z: UU
f: X → Y
g: Y → Z
h: X → Z
r: g ∘ f ~ h
i: isweq g
isweq f <-> isweq h
  apply (logeq_trans (Y := isweq (g ∘ f))).
X, Y, Z: UU
f: X → Y
g: Y → Z
h: X → Z
r: g ∘ f ~ h
i: isweq g
isweq f <-> isweq (g ∘ f)
X, Y, Z: UU
f: X → Y
g: Y → Z
h: X → Z
r: g ∘ f ~ h
i: isweq g
isweq (g ∘ f) <-> isweq h
  -
X, Y, Z: UU
f: X → Y
g: Y → Z
h: X → Z
r: g ∘ f ~ h
i: isweq g
isweq f <-> isweq (g ∘ f) apply twooutof3c_iff_1; assumption.
  -
X, Y, Z: UU
f: X → Y
g: Y → Z
h: X → Z
r: g ∘ f ~ h
i: isweq g
isweq (g ∘ f) <-> isweq h apply isweqhomot_iff; assumption.
Defined.

Corollary twooutof3c_iff_2_homot {X Y Z : UU}
          (f : X -> Y) (g : Y -> Z) (h : X -> Z) :
  g ∘ f ~ h  -> isweq f -> (isweq g <-> isweq h).
X, Y, Z: UU
f: X → Y
g: Y → Z
h: X → Z
g ∘ f ~ h → isweq f → isweq g <-> isweq h
Proof.
X, Y, Z: UU
f: X → Y
g: Y → Z
h: X → Z
g ∘ f ~ h → isweq f → isweq g <-> isweq h
  intros r i.
X, Y, Z: UU
f: X → Y
g: Y → Z
h: X → Z
r: g ∘ f ~ h
i: isweq f
isweq g <-> isweq h
  apply (logeq_trans (Y := isweq (g ∘ f))).
X, Y, Z: UU
f: X → Y
g: Y → Z
h: X → Z
r: g ∘ f ~ h
i: isweq f
isweq g <-> isweq (g ∘ f)
X, Y, Z: UU
f: X → Y
g: Y → Z
h: X → Z
r: g ∘ f ~ h
i: isweq f
isweq (g ∘ f) <-> isweq h
  -
X, Y, Z: UU
f: X → Y
g: Y → Z
h: X → Z
r: g ∘ f ~ h
i: isweq f
isweq g <-> isweq (g ∘ f) apply twooutof3c_iff_2; assumption.
  -
X, Y, Z: UU
f: X → Y
g: Y → Z
h: X → Z
r: g ∘ f ~ h
i: isweq f
isweq (g ∘ f) <-> isweq h apply isweqhomot_iff; assumption.
Defined.

(** *** Any function between contractible types is a weak equivalence *)

Corollary isweqcontrcontr {X Y : UU} (f : X -> Y)
          (isx : iscontr X) (isy: iscontr Y): isweq f.
X, Y: UU
f: X → Y
isx: iscontr X
isy: iscontr Y
isweq f
Proof.
X, Y: UU
f: X → Y
isx: iscontr X
isy: iscontr Y
isweq f
  intros.
X, Y: UU
f: X → Y
isx: iscontr X
isy: iscontr Y
isweq f
  set (py := λ (y : Y), tt).
X, Y: UU
f: X → Y
isx: iscontr X
isy: iscontr Y
py:= λ _ : Y, tt: Y → unit
isweq f
  apply (twooutof3a f py (isweqcontrtounit isx) (isweqcontrtounit isy)).
Defined.

Definition weqcontrcontr {X Y : UU} (isx : iscontr X) (isy : iscontr Y) : X ≃ Y
  := make_weq (λ _, pr1 isy) (isweqcontrcontr _ isx isy).

(** *** Composition of weak equivalences *)

Definition weqcomp {X Y Z : UU} (w1 : X ≃ Y) (w2 : Y ≃ Z) : X ≃ Z :=
  make_weq (λ (x : X), w2 (w1 x)) (twooutof3c w1 w2 (pr2 w1) (pr2 w2)).

Declare Scope weq_scope.
Notation "g ∘ f" := (weqcomp f g) : weq_scope.

Delimit Scope weq_scope with weq.

Ltac intermediate_weq Y' := apply (weqcomp (Y := Y')).

Definition weqcomp_to_funcomp_app {X Y Z : UU} {x : X} {f : X ≃ Y} {g : Y ≃ Z} :
  (weqcomp f g) x = pr1weq g (pr1weq f x).
X, Y, Z: UU
x: X
f: X ≃ Y
g: Y ≃ Z
(g ∘ f)%weq x = g (f x)
Proof.
X, Y, Z: UU
x: X
f: X ≃ Y
g: Y ≃ Z
(g ∘ f)%weq x = g (f x)
  intros.
X, Y, Z: UU
x: X
f: X ≃ Y
g: Y ≃ Z
(g ∘ f)%weq x = g (f x) apply idpath.
Defined.

Definition weqcomp_to_funcomp {X Y Z : UU} {f : X ≃ Y} {g : Y ≃ Z} :
  pr1weq (weqcomp f g) = pr1weq g ∘ pr1weq f.
X, Y, Z: UU
f: X ≃ Y
g: Y ≃ Z
(g ∘ f)%weq = g ∘ f
Proof.
X, Y, Z: UU
f: X ≃ Y
g: Y ≃ Z
(g ∘ f)%weq = g ∘ f
  intros.
X, Y, Z: UU
f: X ≃ Y
g: Y ≃ Z
(g ∘ f)%weq = g ∘ f apply idpath.
Defined.

Definition invmap_weqcomp_expand {X Y Z : UU} {f : X ≃ Y} {g : Y ≃ Z} :
  invmap (weqcomp f g) = invmap f ∘ invmap g.
X, Y, Z: UU
f: X ≃ Y
g: Y ≃ Z
invmap (g ∘ f)%weq = invmap f ∘ invmap g
Proof.
X, Y, Z: UU
f: X ≃ Y
g: Y ≃ Z
invmap (g ∘ f)%weq = invmap f ∘ invmap g
  intros.
X, Y, Z: UU
f: X ≃ Y
g: Y ≃ Z
invmap (g ∘ f)%weq = invmap f ∘ invmap g apply idpath.
Defined.

(** *** The 2-out-of-6 (two-out-of-six) property of weak equivalences *)

Theorem twooutofsixu {X Y Z K : UU} {u : X -> Y} {v : Y -> Z} {w : Z -> K}
        (isuv : isweq (funcomp u v)) (isvw : isweq (funcomp v w)) : isweq u.
X, Y, Z, K: UU
u: X → Y
v: Y → Z
w: Z → K
isuv: isweq (v ∘ u)
isvw: isweq (w ∘ v)
isweq u
Proof.
X, Y, Z, K: UU
u: X → Y
v: Y → Z
w: Z → K
isuv: isweq (v ∘ u)
isvw: isweq (w ∘ v)
isweq u
  intros.
X, Y, Z, K: UU
u: X → Y
v: Y → Z
w: Z → K
isuv: isweq (v ∘ u)
isvw: isweq (w ∘ v)
isweq u

  set (invuv := invmap (make_weq _ isuv)).
X, Y, Z, K: UU
u: X → Y
v: Y → Z
w: Z → K
isuv: isweq (v ∘ u)
isvw: isweq (w ∘ v)
invuv:= invmap (make_weq (v ∘ u) isuv): Z → X
isweq u
  set (pu := funcomp v invuv).
X, Y, Z, K: UU
u: X → Y
v: Y → Z
w: Z → K
isuv: isweq (v ∘ u)
isvw: isweq (w ∘ v)
invuv:= invmap (make_weq (v ∘ u) isuv): Z → X
pu:= invuv ∘ v: ∏ x : Y, (λ _ : Z, X) (v x)
isweq u
  set (hupu := homotinvweqweq (make_weq _ isuv)
               : homot (funcomp u pu) (idfun X)).
X, Y, Z, K: UU
u: X → Y
v: Y → Z
w: Z → K
isuv: isweq (v ∘ u)
isvw: isweq (w ∘ v)
invuv:= invmap (make_weq (v ∘ u) isuv): Z → X
pu:= invuv ∘ v: ∏ x : Y, (λ _ : Z, X) (v x)
hupu:= homotinvweqweq (make_weq (v ∘ u) isuv)
:
pu ∘ u ~ idfun X: pu ∘ u ~ idfun X
isweq u

  set (invvw := invmap (make_weq _ isvw)).
X, Y, Z, K: UU
u: X → Y
v: Y → Z
w: Z → K
isuv: isweq (v ∘ u)
isvw: isweq (w ∘ v)
invuv:= invmap (make_weq (v ∘ u) isuv): Z → X
pu:= invuv ∘ v: ∏ x : Y, (λ _ : Z, X) (v x)
hupu:= homotinvweqweq (make_weq (v ∘ u) isuv)
:
pu ∘ u ~ idfun X: pu ∘ u ~ idfun X
invvw:= invmap (make_weq (w ∘ v) isvw): K → Y
isweq u
  set (pv := funcomp w invvw).
X, Y, Z, K: UU
u: X → Y
v: Y → Z
w: Z → K
isuv: isweq (v ∘ u)
isvw: isweq (w ∘ v)
invuv:= invmap (make_weq (v ∘ u) isuv): Z → X
pu:= invuv ∘ v: ∏ x : Y, (λ _ : Z, X) (v x)
hupu:= homotinvweqweq (make_weq (v ∘ u) isuv)
:
pu ∘ u ~ idfun X: pu ∘ u ~ idfun X
invvw:= invmap (make_weq (w ∘ v) isvw): K → Y
pv:= invvw ∘ w: ∏ x : Z, (λ _ : K, Y) (w x)
isweq u
  set (hvpv := homotinvweqweq (make_weq _ isvw)
               : homot (funcomp v pv) (idfun Y)).
X, Y, Z, K: UU
u: X → Y
v: Y → Z
w: Z → K
isuv: isweq (v ∘ u)
isvw: isweq (w ∘ v)
invuv:= invmap (make_weq (v ∘ u) isuv): Z → X
pu:= invuv ∘ v: ∏ x : Y, (λ _ : Z, X) (v x)
hupu:= homotinvweqweq (make_weq (v ∘ u) isuv)
:
pu ∘ u ~ idfun X: pu ∘ u ~ idfun X
invvw:= invmap (make_weq (w ∘ v) isvw): K → Y
pv:= invvw ∘ w: ∏ x : Z, (λ _ : K, Y) (w x)
hvpv:= homotinvweqweq (make_weq (w ∘ v) isvw)
:
pv ∘ v ~ idfun Y: pv ∘ v ~ idfun Y
isweq u

  set (h0 := funhomot v (homotweqinvweq (make_weq _ isuv))).
X, Y, Z, K: UU
u: X → Y
v: Y → Z
w: Z → K
isuv: isweq (v ∘ u)
isvw: isweq (w ∘ v)
invuv:= invmap (make_weq (v ∘ u) isuv): Z → X
pu:= invuv ∘ v: ∏ x : Y, (λ _ : Z, X) (v x)
hupu:= homotinvweqweq (make_weq (v ∘ u) isuv)
:
pu ∘ u ~ idfun X: pu ∘ u ~ idfun X
invvw:= invmap (make_weq (w ∘ v) isvw): K → Y
pv:= invvw ∘ w: ∏ x : Z, (λ _ : K, Y) (w x)
hvpv:= homotinvweqweq (make_weq (w ∘ v) isvw)
:
pv ∘ v ~ idfun Y: pv ∘ v ~ idfun Y
h0:= funhomot v
  (homotweqinvweq (make_weq (v ∘ u) isuv)): (λ y : Z,
 make_weq (v ∘ u) isuv
   (invmap (make_weq (v ∘ u) isuv) y)) ∘ v ~
(λ y : Z, y) ∘ v
isweq u
  set (h1 := funhomot (funcomp pu u) (invhomot hvpv)).
X, Y, Z, K: UU
u: X → Y
v: Y → Z
w: Z → K
isuv: isweq (v ∘ u)
isvw: isweq (w ∘ v)
invuv:= invmap (make_weq (v ∘ u) isuv): Z → X
pu:= invuv ∘ v: ∏ x : Y, (λ _ : Z, X) (v x)
hupu:= homotinvweqweq (make_weq (v ∘ u) isuv)
:
pu ∘ u ~ idfun X: pu ∘ u ~ idfun X
invvw:= invmap (make_weq (w ∘ v) isvw): K → Y
pv:= invvw ∘ w: ∏ x : Z, (λ _ : K, Y) (w x)
hvpv:= homotinvweqweq (make_weq (w ∘ v) isvw)
:
pv ∘ v ~ idfun Y: pv ∘ v ~ idfun Y
h0:= funhomot v
  (homotweqinvweq (make_weq (v ∘ u) isuv)): (λ y : Z,
 make_weq (v ∘ u) isuv
   (invmap (make_weq (v ∘ u) isuv) y)) ∘ v ~
(λ y : Z, y) ∘ v
h1:= funhomot (u ∘ pu) (invhomot hvpv): idfun Y ∘ (u ∘ pu) ~ pv ∘ v ∘ (u ∘ pu)
isweq u
  set (h2 := homotfun h0 pv).
X, Y, Z, K: UU
u: X → Y
v: Y → Z
w: Z → K
isuv: isweq (v ∘ u)
isvw: isweq (w ∘ v)
invuv:= invmap (make_weq (v ∘ u) isuv): Z → X
pu:= invuv ∘ v: ∏ x : Y, (λ _ : Z, X) (v x)
hupu:= homotinvweqweq (make_weq (v ∘ u) isuv)
:
pu ∘ u ~ idfun X: pu ∘ u ~ idfun X
invvw:= invmap (make_weq (w ∘ v) isvw): K → Y
pv:= invvw ∘ w: ∏ x : Z, (λ _ : K, Y) (w x)
hvpv:= homotinvweqweq (make_weq (w ∘ v) isvw)
:
pv ∘ v ~ idfun Y: pv ∘ v ~ idfun Y
h0:= funhomot v
  (homotweqinvweq (make_weq (v ∘ u) isuv)): (λ y : Z,
 make_weq (v ∘ u) isuv
   (invmap (make_weq (v ∘ u) isuv) y)) ∘ v ~
(λ y : Z, y) ∘ v
h1:= funhomot (u ∘ pu) (invhomot hvpv): idfun Y ∘ (u ∘ pu) ~ pv ∘ v ∘ (u ∘ pu)
h2:= homotfun h0 pv: pv
∘ ((λ y : Z,
    make_weq (v ∘ u) isuv
      (invmap (make_weq (v ∘ u) isuv) y)) ∘ v) ~
pv ∘ ((λ y : Z, y) ∘ v)
isweq u

  set (hpuu := homotcomp (homotcomp h1 h2) hvpv).
X, Y, Z, K: UU
u: X → Y
v: Y → Z
w: Z → K
isuv: isweq (v ∘ u)
isvw: isweq (w ∘ v)
invuv:= invmap (make_weq (v ∘ u) isuv): Z → X
pu:= invuv ∘ v: ∏ x : Y, (λ _ : Z, X) (v x)
hupu:= homotinvweqweq (make_weq (v ∘ u) isuv)
:
pu ∘ u ~ idfun X: pu ∘ u ~ idfun X
invvw:= invmap (make_weq (w ∘ v) isvw): K → Y
pv:= invvw ∘ w: ∏ x : Z, (λ _ : K, Y) (w x)
hvpv:= homotinvweqweq (make_weq (w ∘ v) isvw)
:
pv ∘ v ~ idfun Y: pv ∘ v ~ idfun Y
h0:= funhomot v
  (homotweqinvweq (make_weq (v ∘ u) isuv)): (λ y : Z,
 make_weq (v ∘ u) isuv
   (invmap (make_weq (v ∘ u) isuv) y)) ∘ v ~
(λ y : Z, y) ∘ v
h1:= funhomot (u ∘ pu) (invhomot hvpv): idfun Y ∘ (u ∘ pu) ~ pv ∘ v ∘ (u ∘ pu)
h2:= homotfun h0 pv: pv
∘ ((λ y : Z,
    make_weq (v ∘ u) isuv
      (invmap (make_weq (v ∘ u) isuv) y)) ∘ v) ~
pv ∘ ((λ y : Z, y) ∘ v)
hpuu:= homotcomp (homotcomp h1 h2) hvpv: idfun Y ∘ (u ∘ pu) ~ idfun Y
isweq u

  exact (isweq_iso u pu hupu hpuu).
Defined.

Theorem twooutofsixv {X Y Z K : UU} {u : X -> Y} {v : Y -> Z} {w : Z -> K}
        (isuv : isweq (funcomp u v))(isvw : isweq (funcomp v w)) : isweq v.
X, Y, Z, K: UU
u: X → Y
v: Y → Z
w: Z → K
isuv: isweq (v ∘ u)
isvw: isweq (w ∘ v)
isweq v
Proof.
X, Y, Z, K: UU
u: X → Y
v: Y → Z
w: Z → K
isuv: isweq (v ∘ u)
isvw: isweq (w ∘ v)
isweq v
  intros.
X, Y, Z, K: UU
u: X → Y
v: Y → Z
w: Z → K
isuv: isweq (v ∘ u)
isvw: isweq (w ∘ v)
isweq v exact (twooutof3b _ _ (twooutofsixu isuv isvw) isuv).
Defined.

Theorem twooutofsixw {X Y Z K : UU} {u : X -> Y} {v : Y -> Z} {w : Z -> K}
        (isuv : isweq (funcomp u v))(isvw : isweq (funcomp v w)) : isweq w.
X, Y, Z, K: UU
u: X → Y
v: Y → Z
w: Z → K
isuv: isweq (v ∘ u)
isvw: isweq (w ∘ v)
isweq w
Proof.
X, Y, Z, K: UU
u: X → Y
v: Y → Z
w: Z → K
isuv: isweq (v ∘ u)
isvw: isweq (w ∘ v)
isweq w
  intros.
X, Y, Z, K: UU
u: X → Y
v: Y → Z
w: Z → K
isuv: isweq (v ∘ u)
isvw: isweq (w ∘ v)
isweq w exact (twooutof3b _ _ (twooutofsixv isuv isvw) isvw).
Defined.

(** *** Pairwise direct products of weak equivalences *)

Theorem isweqdirprodf {X Y X' Y' : UU} (w : X ≃ Y) (w' : X' ≃ Y') :
  isweq (dirprodf w w').
X, Y, X', Y': UU
w: X ≃ Y
w': X' ≃ Y'
isweq (dirprodf w w')
Proof.
X, Y, X', Y': UU
w: X ≃ Y
w': X' ≃ Y'
isweq (dirprodf w w')
  intros.
X, Y, X', Y': UU
w: X ≃ Y
w': X' ≃ Y'
isweq (dirprodf w w')
  set (f := dirprodf w w').
X, Y, X', Y': UU
w: X ≃ Y
w': X' ≃ Y'
f:= dirprodf w w': X × X' → Y × Y'
isweq f set (g := dirprodf (invweq w) (invweq w')).
X, Y, X', Y': UU
w: X ≃ Y
w': X' ≃ Y'
f:= dirprodf w w': X × X' → Y × Y'
g:= dirprodf (invweq w) (invweq w'): Y × Y' → X × X'
isweq f
  assert (egf : ∏ a : _, (g (f a)) = a).
X, Y, X', Y': UU
w: X ≃ Y
w': X' ≃ Y'
f:= dirprodf w w': X × X' → Y × Y'
g:= dirprodf (invweq w) (invweq w'): Y × Y' → X × X'
∏ a : X × X', g (f a) = a
X, Y, X', Y': UU
w: X ≃ Y
w': X' ≃ Y'
f:= dirprodf w w': X × X' → Y × Y'
g:= dirprodf (invweq w) (invweq w'): Y × Y' → X × X'
egf: ∏ a : X × X', g (f a) = a
isweq f
  intro a.
X, Y, X', Y': UU
w: X ≃ Y
w': X' ≃ Y'
f:= dirprodf w w': X × X' → Y × Y'
g:= dirprodf (invweq w) (invweq w'): Y × Y' → X × X'
a: X × X'
g (f a) = a
X, Y, X', Y': UU
w: X ≃ Y
w': X' ≃ Y'
f:= dirprodf w w': X × X' → Y × Y'
g:= dirprodf (invweq w) (invweq w'): Y × Y' → X × X'
egf: ∏ a : X × X', g (f a) = a
isweq f induction a as [ x x' ].
X, Y, X', Y': UU
w: X ≃ Y
w': X' ≃ Y'
f:= dirprodf w w': X × X' → Y × Y'
g:= dirprodf (invweq w) (invweq w'): Y × Y' → X × X'
x: X
x': X'
g (f (x,, x')) = x,, x'
X, Y, X', Y': UU
w: X ≃ Y
w': X' ≃ Y'
f:= dirprodf w w': X × X' → Y × Y'
g:= dirprodf (invweq w) (invweq w'): Y × Y' → X × X'
egf: ∏ a : X × X', g (f a) = a
isweq f  simpl.
X, Y, X', Y': UU
w: X ≃ Y
w': X' ≃ Y'
f:= dirprodf w w': X × X' → Y × Y'
g:= dirprodf (invweq w) (invweq w'): Y × Y' → X × X'
x: X
x': X'
g (f (x,, x')) = x,, x'
X, Y, X', Y': UU
w: X ≃ Y
w': X' ≃ Y'
f:= dirprodf w w': X × X' → Y × Y'
g:= dirprodf (invweq w) (invweq w'): Y × Y' → X × X'
egf: ∏ a : X × X', g (f a) = a
isweq f apply pathsdirprod.
X, Y, X', Y': UU
w: X ≃ Y
w': X' ≃ Y'
f:= dirprodf w w': X × X' → Y × Y'
g:= dirprodf (invweq w) (invweq w'): Y × Y' → X × X'
x: X
x': X'
invweq w (pr1 (f (x,, x'))) = x
X, Y, X', Y': UU
w: X ≃ Y
w': X' ≃ Y'
f:= dirprodf w w': X × X' → Y × Y'
g:= dirprodf (invweq w) (invweq w'): Y × Y' → X × X'
x: X
x': X'
invweq w' (pr2 (f (x,, x'))) = x'
X, Y, X', Y': UU
w: X ≃ Y
w': X' ≃ Y'
f:= dirprodf w w': X × X' → Y × Y'
g:= dirprodf (invweq w) (invweq w'): Y × Y' → X × X'
egf: ∏ a : X × X', g (f a) = a
isweq f
  apply (homotinvweqweq w x).
X, Y, X', Y': UU
w: X ≃ Y
w': X' ≃ Y'
f:= dirprodf w w': X × X' → Y × Y'
g:= dirprodf (invweq w) (invweq w'): Y × Y' → X × X'
x: X
x': X'
invweq w' (pr2 (f (x,, x'))) = x'
X, Y, X', Y': UU
w: X ≃ Y
w': X' ≃ Y'
f:= dirprodf w w': X × X' → Y × Y'
g:= dirprodf (invweq w) (invweq w'): Y × Y' → X × X'
egf: ∏ a : X × X', g (f a) = a
isweq f  apply (homotinvweqweq w' x').
X, Y, X', Y': UU
w: X ≃ Y
w': X' ≃ Y'
f:= dirprodf w w': X × X' → Y × Y'
g:= dirprodf (invweq w) (invweq w'): Y × Y' → X × X'
egf: ∏ a : X × X', g (f a) = a
isweq f
  assert (efg : ∏ a : _, (f (g a)) = a).
X, Y, X', Y': UU
w: X ≃ Y
w': X' ≃ Y'
f:= dirprodf w w': X × X' → Y × Y'
g:= dirprodf (invweq w) (invweq w'): Y × Y' → X × X'
egf: ∏ a : X × X', g (f a) = a
∏ a : Y × Y', f (g a) = a
X, Y, X', Y': UU
w: X ≃ Y
w': X' ≃ Y'
f:= dirprodf w w': X × X' → Y × Y'
g:= dirprodf (invweq w) (invweq w'): Y × Y' → X × X'
egf: ∏ a : X × X', g (f a) = a
efg: ∏ a : Y × Y', f (g a) = a
isweq f
  intro a.
X, Y, X', Y': UU
w: X ≃ Y
w': X' ≃ Y'
f:= dirprodf w w': X × X' → Y × Y'
g:= dirprodf (invweq w) (invweq w'): Y × Y' → X × X'
egf: ∏ a : X × X', g (f a) = a
a: Y × Y'
f (g a) = a
X, Y, X', Y': UU
w: X ≃ Y
w': X' ≃ Y'
f:= dirprodf w w': X × X' → Y × Y'
g:= dirprodf (invweq w) (invweq w'): Y × Y' → X × X'
egf: ∏ a : X × X', g (f a) = a
efg: ∏ a : Y × Y', f (g a) = a
isweq f induction a as [ x x' ].
X, Y, X', Y': UU
w: X ≃ Y
w': X' ≃ Y'
f:= dirprodf w w': X × X' → Y × Y'
g:= dirprodf (invweq w) (invweq w'): Y × Y' → X × X'
egf: ∏ a : X × X', g (f a) = a
x: Y
x': Y'
f (g (x,, x')) = x,, x'
X, Y, X', Y': UU
w: X ≃ Y
w': X' ≃ Y'
f:= dirprodf w w': X × X' → Y × Y'
g:= dirprodf (invweq w) (invweq w'): Y × Y' → X × X'
egf: ∏ a : X × X', g (f a) = a
efg: ∏ a : Y × Y', f (g a) = a
isweq f  simpl.
X, Y, X', Y': UU
w: X ≃ Y
w': X' ≃ Y'
f:= dirprodf w w': X × X' → Y × Y'
g:= dirprodf (invweq w) (invweq w'): Y × Y' → X × X'
egf: ∏ a : X × X', g (f a) = a
x: Y
x': Y'
f (g (x,, x')) = x,, x'
X, Y, X', Y': UU
w: X ≃ Y
w': X' ≃ Y'
f:= dirprodf w w': X × X' → Y × Y'
g:= dirprodf (invweq w) (invweq w'): Y × Y' → X × X'
egf: ∏ a : X × X', g (f a) = a
efg: ∏ a : Y × Y', f (g a) = a
isweq f apply pathsdirprod.
X, Y, X', Y': UU
w: X ≃ Y
w': X' ≃ Y'
f:= dirprodf w w': X × X' → Y × Y'
g:= dirprodf (invweq w) (invweq w'): Y × Y' → X × X'
egf: ∏ a : X × X', g (f a) = a
x: Y
x': Y'
w (pr1 (g (x,, x'))) = x
X, Y, X', Y': UU
w: X ≃ Y
w': X' ≃ Y'
f:= dirprodf w w': X × X' → Y × Y'
g:= dirprodf (invweq w) (invweq w'): Y × Y' → X × X'
egf: ∏ a : X × X', g (f a) = a
x: Y
x': Y'
w' (pr2 (g (x,, x'))) = x'
X, Y, X', Y': UU
w: X ≃ Y
w': X' ≃ Y'
f:= dirprodf w w': X × X' → Y × Y'
g:= dirprodf (invweq w) (invweq w'): Y × Y' → X × X'
egf: ∏ a : X × X', g (f a) = a
efg: ∏ a : Y × Y', f (g a) = a
isweq f
  apply (homotweqinvweq w x).
X, Y, X', Y': UU
w: X ≃ Y
w': X' ≃ Y'
f:= dirprodf w w': X × X' → Y × Y'
g:= dirprodf (invweq w) (invweq w'): Y × Y' → X × X'
egf: ∏ a : X × X', g (f a) = a
x: Y
x': Y'
w' (pr2 (g (x,, x'))) = x'
X, Y, X', Y': UU
w: X ≃ Y
w': X' ≃ Y'
f:= dirprodf w w': X × X' → Y × Y'
g:= dirprodf (invweq w) (invweq w'): Y × Y' → X × X'
egf: ∏ a : X × X', g (f a) = a
efg: ∏ a : Y × Y', f (g a) = a
isweq f apply (homotweqinvweq w' x').
X, Y, X', Y': UU
w: X ≃ Y
w': X' ≃ Y'
f:= dirprodf w w': X × X' → Y × Y'
g:= dirprodf (invweq w) (invweq w'): Y × Y' → X × X'
egf: ∏ a : X × X', g (f a) = a
efg: ∏ a : Y × Y', f (g a) = a
isweq f
  apply (isweq_iso _ _ egf efg).
Defined.

Definition weqdirprodf {X Y X' Y' : UU} (w : X ≃ Y) (w' : X' ≃ Y') : X × X' ≃ Y × Y'
  := make_weq _ (isweqdirprodf w w').

(** *** Weak equivalence of a type and its direct product with the unit *)

Definition weqtodirprodwithunit (X : UU): X ≃ X × unit.
X: UU
X ≃ X × unit
Proof.
X: UU
X ≃ X × unit
  intros.
X: UU
X ≃ X × unit
  set (f := λ x : X, make_dirprod x tt).
X: UU
f:= λ x : X, make_dirprod x tt: X → X × unit
X ≃ X × unit
  split with f.
X: UU
f:= λ x : X, make_dirprod x tt: X → X × unit
isweq f
  set (g := λ xu : X × unit, pr1 xu).
X: UU
f:= λ x : X, make_dirprod x tt: X → X × unit
g:= λ xu : X × unit, pr1 xu: X × unit → X
isweq f
  assert (egf : ∏ x : X, (g (f x)) = x).
X: UU
f:= λ x : X, make_dirprod x tt: X → X × unit
g:= λ xu : X × unit, pr1 xu: X × unit → X
∏ x : X, g (f x) = x
X: UU
f:= λ x : X, make_dirprod x tt: X → X × unit
g:= λ xu : X × unit, pr1 xu: X × unit → X
egf: ∏ x : X, g (f x) = x
isweq f intro.
X: UU
f:= λ x : X, make_dirprod x tt: X → X × unit
g:= λ xu : X × unit, pr1 xu: X × unit → X
x: X
g (f x) = x
X: UU
f:= λ x : X, make_dirprod x tt: X → X × unit
g:= λ xu : X × unit, pr1 xu: X × unit → X
egf: ∏ x : X, g (f x) = x
isweq f apply idpath.
X: UU
f:= λ x : X, make_dirprod x tt: X → X × unit
g:= λ xu : X × unit, pr1 xu: X × unit → X
egf: ∏ x : X, g (f x) = x
isweq f
  assert (efg : ∏ xu : _, (f (g xu)) = xu).
X: UU
f:= λ x : X, make_dirprod x tt: X → X × unit
g:= λ xu : X × unit, pr1 xu: X × unit → X
egf: ∏ x : X, g (f x) = x
∏ xu : X × unit, f (g xu) = xu
X: UU
f:= λ x : X, make_dirprod x tt: X → X × unit
g:= λ xu : X × unit, pr1 xu: X × unit → X
egf: ∏ x : X, g (f x) = x
efg: ∏ xu : X × unit, f (g xu) = xu
isweq f intro.
X: UU
f:= λ x : X, make_dirprod x tt: X → X × unit
g:= λ xu : X × unit, pr1 xu: X × unit → X
egf: ∏ x : X, g (f x) = x
xu: X × unit
f (g xu) = xu
X: UU
f:= λ x : X, make_dirprod x tt: X → X × unit
g:= λ xu : X × unit, pr1 xu: X × unit → X
egf: ∏ x : X, g (f x) = x
efg: ∏ xu : X × unit, f (g xu) = xu
isweq f induction xu as [ t x ].
X: UU
f:= λ x : X, make_dirprod x tt: X → X × unit
g:= λ xu : X × unit, pr1 xu: X × unit → X
egf: ∏ x : X, g (f x) = x
t: X
x: unit
f (g (t,, x)) = t,, x
X: UU
f:= λ x : X, make_dirprod x tt: X → X × unit
g:= λ xu : X × unit, pr1 xu: X × unit → X
egf: ∏ x : X, g (f x) = x
efg: ∏ xu : X × unit, f (g xu) = xu
isweq f
  induction x.
X: UU
f:= λ x : X, make_dirprod x tt: X → X × unit
g:= λ xu : X × unit, pr1 xu: X × unit → X
egf: ∏ x : X, g (f x) = x
t: X
f (g (t,, tt)) = t,, tt
X: UU
f:= λ x : X, make_dirprod x tt: X → X × unit
g:= λ xu : X × unit, pr1 xu: X × unit → X
egf: ∏ x : X, g (f x) = x
efg: ∏ xu : X × unit, f (g xu) = xu
isweq f apply idpath.
X: UU
f:= λ x : X, make_dirprod x tt: X → X × unit
g:= λ xu : X × unit, pr1 xu: X × unit → X
egf: ∏ x : X, g (f x) = x
efg: ∏ xu : X × unit, f (g xu) = xu
isweq f
  apply (isweq_iso f g egf efg).
Defined.


(** *** Associativity of [ total2 ] as a weak equivalence *)

Lemma total2asstor {X : UU} (P : X -> UU) (Q : total2 P -> UU) :
  total2 Q ->  ∑ x:X, ∑ p : P x, Q (tpair P x p).
X: UU
P: X → UU
Q: (∑ y, P y) → UU
(∑ y, Q y) → ∑ (x : X) (p : P x), Q (x,, p)
Proof.
X: UU
P: X → UU
Q: (∑ y, P y) → UU
(∑ y, Q y) → ∑ (x : X) (p : P x), Q (x,, p)
  intros xpq.
X: UU
P: X → UU
Q: (∑ y, P y) → UU
xpq: ∑ y, Q y
∑ (x : X) (p : P x), Q (x,, p)
  exists (pr1 (pr1 xpq)).
X: UU
P: X → UU
Q: (∑ y, P y) → UU
xpq: ∑ y, Q y
∑ p : P (pr1 (pr1 xpq)), Q (pr1 (pr1 xpq),, p)
  exists (pr2 (pr1 xpq)).
X: UU
P: X → UU
Q: (∑ y, P y) → UU
xpq: ∑ y, Q y
Q (pr1 (pr1 xpq),, pr2 (pr1 xpq))
  exact (pr2 xpq).
Defined.

Lemma total2asstol {X : UU} (P : X -> UU) (Q : total2 P -> UU) :
  (∑ x : X, ∑ p : P x, Q (tpair P x p)) -> total2 Q.
X: UU
P: X → UU
Q: (∑ y, P y) → UU
(∑ (x : X) (p : P x), Q (x,, p)) → ∑ y, Q y
Proof.
X: UU
P: X → UU
Q: (∑ y, P y) → UU
(∑ (x : X) (p : P x), Q (x,, p)) → ∑ y, Q y
  intros xpq.
X: UU
P: X → UU
Q: (∑ y, P y) → UU
xpq: ∑ (x : X) (p : P x), Q (x,, p)
∑ y, Q y
  use tpair.
X: UU
P: X → UU
Q: (∑ y, P y) → UU
xpq: ∑ (x : X) (p : P x), Q (x,, p)
∑ y, P y
X: UU
P: X → UU
Q: (∑ y, P y) → UU
xpq: ∑ (x : X) (p : P x), Q (x,, p)
Q ?pr1
  -
X: UU
P: X → UU
Q: (∑ y, P y) → UU
xpq: ∑ (x : X) (p : P x), Q (x,, p)
∑ y, P y use tpair.
X: UU
P: X → UU
Q: (∑ y, P y) → UU
xpq: ∑ (x : X) (p : P x), Q (x,, p)
X
X: UU
P: X → UU
Q: (∑ y, P y) → UU
xpq: ∑ (x : X) (p : P x), Q (x,, p)
P ?pr1
    +
X: UU
P: X → UU
Q: (∑ y, P y) → UU
xpq: ∑ (x : X) (p : P x), Q (x,, p)
X apply (pr1 xpq).
    +
X: UU
P: X → UU
Q: (∑ y, P y) → UU
xpq: ∑ (x : X) (p : P x), Q (x,, p)
P (pr1 xpq) apply (pr1 (pr2 xpq)).
  -
X: UU
P: X → UU
Q: (∑ y, P y) → UU
xpq: ∑ (x : X) (p : P x), Q (x,, p)
Q (pr1 xpq,, pr1 (pr2 xpq)) exact (pr2 (pr2 xpq)).
Defined.


Theorem weqtotal2asstor {X : UU} (P : X -> UU) (Q : total2 P -> UU) :
  total2 Q ≃ ∑ x : X, ∑ p : P x, Q (tpair P x p).
X: UU
P: X → UU
Q: (∑ y, P y) → UU
(∑ y, Q y) ≃ (∑ (x : X) (p : P x), Q (x,, p))
Proof.
X: UU
P: X → UU
Q: (∑ y, P y) → UU
(∑ y, Q y) ≃ (∑ (x : X) (p : P x), Q (x,, p))
  intros.
X: UU
P: X → UU
Q: (∑ y, P y) → UU
(∑ y, Q y) ≃ (∑ (x : X) (p : P x), Q (x,, p))
  set (f := total2asstor P Q).
X: UU
P: X → UU
Q: (∑ y, P y) → UU
f:= total2asstor P Q: (∑ y, Q y) → ∑ (x : X) (p : P x), Q (x,, p)
(∑ y, Q y) ≃ (∑ (x : X) (p : P x), Q (x,, p)) set (g:= total2asstol P Q).
X: UU
P: X → UU
Q: (∑ y, P y) → UU
f:= total2asstor P Q: (∑ y, Q y) → ∑ (x : X) (p : P x), Q (x,, p)
g:= total2asstol P Q: (∑ (x : X) (p : P x), Q (x,, p)) → ∑ y, Q y
(∑ y, Q y) ≃ (∑ (x : X) (p : P x), Q (x,, p))
  split with f.
X: UU
P: X → UU
Q: (∑ y, P y) → UU
f:= total2asstor P Q: (∑ y, Q y) → ∑ (x : X) (p : P x), Q (x,, p)
g:= total2asstol P Q: (∑ (x : X) (p : P x), Q (x,, p)) → ∑ y, Q y
isweq f
  assert (egf : ∏ xpq : _ , (g (f xpq)) = xpq).
X: UU
P: X → UU
Q: (∑ y, P y) → UU
f:= total2asstor P Q: (∑ y, Q y) → ∑ (x : X) (p : P x), Q (x,, p)
g:= total2asstol P Q: (∑ (x : X) (p : P x), Q (x,, p)) → ∑ y, Q y
∏ xpq : ∑ y, Q y, g (f xpq) = xpq
X: UU
P: X → UU
Q: (∑ y, P y) → UU
f:= total2asstor P Q: (∑ y, Q y) → ∑ (x : X) (p : P x), Q (x,, p)
g:= total2asstol P Q: (∑ (x : X) (p : P x), Q (x,, p)) → ∑ y, Q y
egf: ∏ xpq : ∑ y, Q y, g (f xpq) = xpq
isweq f
  intro.
X: UU
P: X → UU
Q: (∑ y, P y) → UU
f:= total2asstor P Q: (∑ y, Q y) → ∑ (x : X) (p : P x), Q (x,, p)
g:= total2asstol P Q: (∑ (x : X) (p : P x), Q (x,, p)) → ∑ y, Q y
xpq: ∑ y, Q y
g (f xpq) = xpq
X: UU
P: X → UU
Q: (∑ y, P y) → UU
f:= total2asstor P Q: (∑ y, Q y) → ∑ (x : X) (p : P x), Q (x,, p)
g:= total2asstol P Q: (∑ (x : X) (p : P x), Q (x,, p)) → ∑ y, Q y
egf: ∏ xpq : ∑ y, Q y, g (f xpq) = xpq
isweq f apply idpath.
X: UU
P: X → UU
Q: (∑ y, P y) → UU
f:= total2asstor P Q: (∑ y, Q y) → ∑ (x : X) (p : P x), Q (x,, p)
g:= total2asstol P Q: (∑ (x : X) (p : P x), Q (x,, p)) → ∑ y, Q y
egf: ∏ xpq : ∑ y, Q y, g (f xpq) = xpq
isweq f
  assert (efg : ∏ xpq : _ , (f (g xpq)) = xpq).
X: UU
P: X → UU
Q: (∑ y, P y) → UU
f:= total2asstor P Q: (∑ y, Q y) → ∑ (x : X) (p : P x), Q (x,, p)
g:= total2asstol P Q: (∑ (x : X) (p : P x), Q (x,, p)) → ∑ y, Q y
egf: ∏ xpq : ∑ y, Q y, g (f xpq) = xpq
∏ xpq : ∑ (x : X) (p : P x), Q (x,, p),
f (g xpq) = xpq
X: UU
P: X → UU
Q: (∑ y, P y) → UU
f:= total2asstor P Q: (∑ y, Q y) → ∑ (x : X) (p : P x), Q (x,, p)
g:= total2asstol P Q: (∑ (x : X) (p : P x), Q (x,, p)) → ∑ y, Q y
egf: ∏ xpq : ∑ y, Q y, g (f xpq) = xpq
efg: ∏ xpq : ∑ (x : X) (p : P x), Q (x,, p), f (g xpq) = xpq
isweq f
  intro.
X: UU
P: X → UU
Q: (∑ y, P y) → UU
f:= total2asstor P Q: (∑ y, Q y) → ∑ (x : X) (p : P x), Q (x,, p)
g:= total2asstol P Q: (∑ (x : X) (p : P x), Q (x,, p)) → ∑ y, Q y
egf: ∏ xpq : ∑ y, Q y, g (f xpq) = xpq
xpq: ∑ (x : X) (p : P x), Q (x,, p)
f (g xpq) = xpq
X: UU
P: X → UU
Q: (∑ y, P y) → UU
f:= total2asstor P Q: (∑ y, Q y) → ∑ (x : X) (p : P x), Q (x,, p)
g:= total2asstol P Q: (∑ (x : X) (p : P x), Q (x,, p)) → ∑ y, Q y
egf: ∏ xpq : ∑ y, Q y, g (f xpq) = xpq
efg: ∏ xpq : ∑ (x : X) (p : P x), Q (x,, p), f (g xpq) = xpq
isweq f apply idpath.
X: UU
P: X → UU
Q: (∑ y, P y) → UU
f:= total2asstor P Q: (∑ y, Q y) → ∑ (x : X) (p : P x), Q (x,, p)
g:= total2asstol P Q: (∑ (x : X) (p : P x), Q (x,, p)) → ∑ y, Q y
egf: ∏ xpq : ∑ y, Q y, g (f xpq) = xpq
efg: ∏ xpq : ∑ (x : X) (p : P x), Q (x,, p), f (g xpq) = xpq
isweq f
  apply (isweq_iso _ _ egf efg).
Defined.

Definition weqtotal2asstol {X : UU} (P : X -> UU) (Q : total2 P -> UU) :
  (∑ x : X, ∑ p : P x, Q (tpair P x p)) ≃ total2 Q
  := invweq (weqtotal2asstor P Q).

(** *** Associativity and commutativity of direct products as weak equivalences *)

Definition weqdirprodasstor (X Y Z : UU) : (X × Y) × Z ≃ X × (Y × Z).
X, Y, Z: UU
(X × Y) × Z ≃ X × Y × Z
Proof.
X, Y, Z: UU
(X × Y) × Z ≃ X × Y × Z
  intros.
X, Y, Z: UU
(X × Y) × Z ≃ X × Y × Z apply weqtotal2asstor.
Defined.

Definition weqdirprodasstol (X Y Z : UU) : X × (Y × Z) ≃ (X × Y) × Z
  := invweq (weqdirprodasstor X Y Z).

Definition weqdirprodcomm (X Y : UU) : X × Y ≃ Y × X.
X, Y: UU
X × Y ≃ Y × X
Proof.
X, Y: UU
X × Y ≃ Y × X
  intros.
X, Y: UU
X × Y ≃ Y × X
  set (f := λ xy : X × Y, make_dirprod (pr2 xy) (pr1 xy)).
X, Y: UU
f:= λ xy : X × Y, make_dirprod (pr2 xy) (pr1 xy): X × Y → Y × X
X × Y ≃ Y × X
  set (g := λ yx : Y × X, make_dirprod (pr2 yx) (pr1 yx)).
X, Y: UU
f:= λ xy : X × Y, make_dirprod (pr2 xy) (pr1 xy): X × Y → Y × X
g:= λ yx : Y × X, make_dirprod (pr2 yx) (pr1 yx): Y × X → X × Y
X × Y ≃ Y × X
  assert (egf : ∏ xy : _, (g (f xy)) = xy).
X, Y: UU
f:= λ xy : X × Y, make_dirprod (pr2 xy) (pr1 xy): X × Y → Y × X
g:= λ yx : Y × X, make_dirprod (pr2 yx) (pr1 yx): Y × X → X × Y
∏ xy : X × Y, g (f xy) = xy
X, Y: UU
f:= λ xy : X × Y, make_dirprod (pr2 xy) (pr1 xy): X × Y → Y × X
g:= λ yx : Y × X, make_dirprod (pr2 yx) (pr1 yx): Y × X → X × Y
egf: ∏ xy : X × Y, g (f xy) = xy
X × Y ≃ Y × X
  intro.
X, Y: UU
f:= λ xy : X × Y, make_dirprod (pr2 xy) (pr1 xy): X × Y → Y × X
g:= λ yx : Y × X, make_dirprod (pr2 yx) (pr1 yx): Y × X → X × Y
xy: X × Y
g (f xy) = xy
X, Y: UU
f:= λ xy : X × Y, make_dirprod (pr2 xy) (pr1 xy): X × Y → Y × X
g:= λ yx : Y × X, make_dirprod (pr2 yx) (pr1 yx): Y × X → X × Y
egf: ∏ xy : X × Y, g (f xy) = xy
X × Y ≃ Y × X induction xy.
X, Y: UU
f:= λ xy : X × Y,
make_dirprod (Preamble.pr2 xy) (Preamble.pr1 xy): X × Y → Y × X
g:= λ yx : Y × X,
make_dirprod (Preamble.pr2 yx) (Preamble.pr1 yx): Y × X → X × Y
pr1: X
pr2: Y
g (f (pr1,, pr2)) = pr1,, pr2
X, Y: UU
f:= λ xy : X × Y, make_dirprod (pr2 xy) (pr1 xy): X × Y → Y × X
g:= λ yx : Y × X, make_dirprod (pr2 yx) (pr1 yx): Y × X → X × Y
egf: ∏ xy : X × Y, g (f xy) = xy
X × Y ≃ Y × X apply idpath.
X, Y: UU
f:= λ xy : X × Y, make_dirprod (pr2 xy) (pr1 xy): X × Y → Y × X
g:= λ yx : Y × X, make_dirprod (pr2 yx) (pr1 yx): Y × X → X × Y
egf: ∏ xy : X × Y, g (f xy) = xy
X × Y ≃ Y × X
  assert (efg : ∏ yx : _, (f (g yx)) = yx).
X, Y: UU
f:= λ xy : X × Y, make_dirprod (pr2 xy) (pr1 xy): X × Y → Y × X
g:= λ yx : Y × X, make_dirprod (pr2 yx) (pr1 yx): Y × X → X × Y
egf: ∏ xy : X × Y, g (f xy) = xy
∏ yx : Y × X, f (g yx) = yx
X, Y: UU
f:= λ xy : X × Y, make_dirprod (pr2 xy) (pr1 xy): X × Y → Y × X
g:= λ yx : Y × X, make_dirprod (pr2 yx) (pr1 yx): Y × X → X × Y
egf: ∏ xy : X × Y, g (f xy) = xy
efg: ∏ yx : Y × X, f (g yx) = yx
X × Y ≃ Y × X
  intro.
X, Y: UU
f:= λ xy : X × Y, make_dirprod (pr2 xy) (pr1 xy): X × Y → Y × X
g:= λ yx : Y × X, make_dirprod (pr2 yx) (pr1 yx): Y × X → X × Y
egf: ∏ xy : X × Y, g (f xy) = xy
yx: Y × X
f (g yx) = yx
X, Y: UU
f:= λ xy : X × Y, make_dirprod (pr2 xy) (pr1 xy): X × Y → Y × X
g:= λ yx : Y × X, make_dirprod (pr2 yx) (pr1 yx): Y × X → X × Y
egf: ∏ xy : X × Y, g (f xy) = xy
efg: ∏ yx : Y × X, f (g yx) = yx
X × Y ≃ Y × X induction yx.
X, Y: UU
f:= λ xy : X × Y,
make_dirprod (Preamble.pr2 xy) (Preamble.pr1 xy): X × Y → Y × X
g:= λ yx : Y × X,
make_dirprod (Preamble.pr2 yx) (Preamble.pr1 yx): Y × X → X × Y
egf: ∏ xy : X × Y, g (f xy) = xy
pr1: Y
pr2: X
f (g (pr1,, pr2)) = pr1,, pr2
X, Y: UU
f:= λ xy : X × Y, make_dirprod (pr2 xy) (pr1 xy): X × Y → Y × X
g:= λ yx : Y × X, make_dirprod (pr2 yx) (pr1 yx): Y × X → X × Y
egf: ∏ xy : X × Y, g (f xy) = xy
efg: ∏ yx : Y × X, f (g yx) = yx
X × Y ≃ Y × X apply idpath.
X, Y: UU
f:= λ xy : X × Y, make_dirprod (pr2 xy) (pr1 xy): X × Y → Y × X
g:= λ yx : Y × X, make_dirprod (pr2 yx) (pr1 yx): Y × X → X × Y
egf: ∏ xy : X × Y, g (f xy) = xy
efg: ∏ yx : Y × X, f (g yx) = yx
X × Y ≃ Y × X
  split with f.
X, Y: UU
f:= λ xy : X × Y, make_dirprod (pr2 xy) (pr1 xy): X × Y → Y × X
g:= λ yx : Y × X, make_dirprod (pr2 yx) (pr1 yx): Y × X → X × Y
egf: ∏ xy : X × Y, g (f xy) = xy
efg: ∏ yx : Y × X, f (g yx) = yx
isweq f apply (isweq_iso _ _ egf efg).
Defined.

Definition weqtotal2dirprodcomm {X Y : UU} (P : X × Y -> UU) :
  (∑ xy : X × Y, P xy) ≃ (∑ xy : Y × X, P (weqdirprodcomm _ _ xy)).
X, Y: UU
P: X × Y → UU
(∑ xy : X × Y, P xy)
≃ (∑ xy : Y × X, P (weqdirprodcomm Y X xy))
Proof.
X, Y: UU
P: X × Y → UU
(∑ xy : X × Y, P xy)
≃ (∑ xy : Y × X, P (weqdirprodcomm Y X xy))
  intros.
X, Y: UU
P: X × Y → UU
(∑ xy : X × Y, P xy)
≃ (∑ xy : Y × X, P (weqdirprodcomm Y X xy))
  use weq_iso.
X, Y: UU
P: X × Y → UU
(∑ xy : X × Y, P xy)
→ ∑ xy : Y × X, P (weqdirprodcomm Y X xy)
X, Y: UU
P: X × Y → UU
(∑ xy : Y × X, P (weqdirprodcomm Y X xy))
→ ∑ xy : X × Y, P xy
X, Y: UU
P: X × Y → UU
∏ x : ∑ xy : X × Y, P xy, ?g (?f x) = x
X, Y: UU
P: X × Y → UU
∏ y : ∑ xy : Y × X, P (weqdirprodcomm Y X xy),
?f (?g y) = y
  -
X, Y: UU
P: X × Y → UU
(∑ xy : X × Y, P xy)
→ ∑ xy : Y × X, P (weqdirprodcomm Y X xy) intros xyp.
X, Y: UU
P: X × Y → UU
xyp: ∑ xy : X × Y, P xy
∑ xy : Y × X, P (weqdirprodcomm Y X xy)
    exact ((pr2 (pr1 xyp),, pr1 (pr1 xyp)),,pr2 xyp).
  -
X, Y: UU
P: X × Y → UU
(∑ xy : Y × X, P (weqdirprodcomm Y X xy))
→ ∑ xy : X × Y, P xy intros yxp.
X, Y: UU
P: X × Y → UU
yxp: ∑ xy : Y × X, P (weqdirprodcomm Y X xy)
∑ xy : X × Y, P xy
    exact (((pr2 (pr1 yxp)),, (pr1 (pr1 yxp))),, pr2 yxp).
  -
X, Y: UU
P: X × Y → UU
∏ x : ∑ xy : X × Y, P xy,
(λ yxp : ∑ xy : Y × X, P (weqdirprodcomm Y X xy),
 (pr2 (pr1 yxp),, pr1 (pr1 yxp)),, pr2 yxp)
  ((λ xyp : ∑ xy : X × Y, P xy,
    (pr2 (pr1 xyp),, pr1 (pr1 xyp)),, pr2 xyp) x) = x intros xyp.
X, Y: UU
P: X × Y → UU
xyp: ∑ xy : X × Y, P xy
(λ yxp : ∑ xy : Y × X, P (weqdirprodcomm Y X xy),
 (pr2 (pr1 yxp),, pr1 (pr1 yxp)),, pr2 yxp)
  ((λ xyp : ∑ xy : X × Y, P xy,
    (pr2 (pr1 xyp),, pr1 (pr1 xyp)),, pr2 xyp) xyp) =
xyp
    apply idpath.
  -
X, Y: UU
P: X × Y → UU
∏ y : ∑ xy : Y × X, P (weqdirprodcomm Y X xy),
(λ xyp : ∑ xy : X × Y, P xy,
 (pr2 (pr1 xyp),, pr1 (pr1 xyp)),, pr2 xyp)
  ((λ yxp : ∑ xy : Y × X, P (weqdirprodcomm Y X xy),
    (pr2 (pr1 yxp),, pr1 (pr1 yxp)),, pr2 yxp) y) = y intros yxp.
X, Y: UU
P: X × Y → UU
yxp: ∑ xy : Y × X, P (weqdirprodcomm Y X xy)
(λ xyp : ∑ xy : X × Y, P xy,
 (pr2 (pr1 xyp),, pr1 (pr1 xyp)),, pr2 xyp)
  ((λ yxp : ∑ xy : Y × X, P (weqdirprodcomm Y X xy),
    (pr2 (pr1 yxp),, pr1 (pr1 yxp)),, pr2 yxp) yxp) =
yxp
    apply idpath.
Defined.

Definition weqtotal2dirprodassoc  {X Y : UU} (P : X × Y -> UU) :
  (∑ xy : X × Y, P xy) ≃ (∑ (x : X) (y : Y), P (x,,y)).
X, Y: UU
P: X × Y → UU
(∑ xy : X × Y, P xy) ≃ (∑ (x : X) (y : Y), P (x,, y))
  intros.
X, Y: UU
P: X × Y → UU
(∑ xy : X × Y, P xy) ≃ (∑ (x : X) (y : Y), P (x,, y))
  use weq_iso.
X, Y: UU
P: X × Y → UU
(∑ xy : X × Y, P xy) → ∑ (x : X) (y : Y), P (x,, y)
X, Y: UU
P: X × Y → UU
(∑ (x : X) (y : Y), P (x,, y)) → ∑ xy : X × Y, P xy
X, Y: UU
P: X × Y → UU
∏ x : ∑ xy : X × Y, P xy, ?g (?f x) = x
X, Y: UU
P: X × Y → UU
∏ y : ∑ (x : X) (y : Y), P (x,, y), ?f (?g y) = y
  -
X, Y: UU
P: X × Y → UU
(∑ xy : X × Y, P xy) → ∑ (x : X) (y : Y), P (x,, y) intros xyp.
X, Y: UU
P: X × Y → UU
xyp: ∑ xy : X × Y, P xy
∑ (x : X) (y : Y), P (x,, y)
    exact (pr1 (pr1 xyp),,pr2 (pr1 xyp),, pr2 xyp).
  -
X, Y: UU
P: X × Y → UU
(∑ (x : X) (y : Y), P (x,, y)) → ∑ xy : X × Y, P xy intros xyp.
X, Y: UU
P: X × Y → UU
xyp: ∑ (x : X) (y : Y), P (x,, y)
∑ xy : X × Y, P xy
    exact (((pr1 xyp),, pr1 (pr2 xyp)),, pr2 (pr2 xyp)).
  -
X, Y: UU
P: X × Y → UU
∏ x : ∑ xy : X × Y, P xy,
(λ xyp : ∑ (x0 : X) (y : Y), P (x0,, y),
 (pr1 xyp,, pr1 (pr2 xyp)),, pr2 (pr2 xyp))
  ((λ xyp : ∑ xy : X × Y, P xy,
    pr1 (pr1 xyp),, pr2 (pr1 xyp),, pr2 xyp) x) = x intros xyp.
X, Y: UU
P: X × Y → UU
xyp: ∑ xy : X × Y, P xy
(λ xyp : ∑ (x : X) (y : Y), P (x,, y),
 (pr1 xyp,, pr1 (pr2 xyp)),, pr2 (pr2 xyp))
  ((λ xyp : ∑ xy : X × Y, P xy,
    pr1 (pr1 xyp),, pr2 (pr1 xyp),, pr2 xyp) xyp) =
xyp
    apply idpath.
  -
X, Y: UU
P: X × Y → UU
∏ y : ∑ (x : X) (y : Y), P (x,, y),
(λ xyp : ∑ xy : X × Y, P xy,
 pr1 (pr1 xyp),, pr2 (pr1 xyp),, pr2 xyp)
  ((λ xyp : ∑ (x : X) (y0 : Y), P (x,, y0),
    (pr1 xyp,, pr1 (pr2 xyp)),, pr2 (pr2 xyp)) y) = y intros xyp.
X, Y: UU
P: X × Y → UU
xyp: ∑ (x : X) (y : Y), P (x,, y)
(λ xyp : ∑ xy : X × Y, P xy,
 pr1 (pr1 xyp),, pr2 (pr1 xyp),, pr2 xyp)
  ((λ xyp : ∑ (x : X) (y : Y), P (x,, y),
    (pr1 xyp,, pr1 (pr2 xyp)),, pr2 (pr2 xyp)) xyp) =
xyp
    apply idpath.
Defined.

Definition weqtotal2dirprodassoc' {X Y : UU} (P : X × Y -> UU) :
  (∑ xy : X × Y, P xy) ≃ (∑ (y : Y) (x : X), P (x,,y)).
X, Y: UU
P: X × Y → UU
(∑ xy : X × Y, P xy) ≃ (∑ (y : Y) (x : X), P (x,, y))
Proof.
X, Y: UU
P: X × Y → UU
(∑ xy : X × Y, P xy) ≃ (∑ (y : Y) (x : X), P (x,, y))
  intros.
X, Y: UU
P: X × Y → UU
(∑ xy : X × Y, P xy) ≃ (∑ (y : Y) (x : X), P (x,, y))
  use weq_iso.
X, Y: UU
P: X × Y → UU
(∑ xy : X × Y, P xy) → ∑ (y : Y) (x : X), P (x,, y)
X, Y: UU
P: X × Y → UU
(∑ (y : Y) (x : X), P (x,, y)) → ∑ xy : X × Y, P xy
X, Y: UU
P: X × Y → UU
∏ x : ∑ xy : X × Y, P xy, ?g (?f x) = x
X, Y: UU
P: X × Y → UU
∏ y : ∑ (y : Y) (x : X), P (x,, y), ?f (?g y) = y
  -
X, Y: UU
P: X × Y → UU
(∑ xy : X × Y, P xy) → ∑ (y : Y) (x : X), P (x,, y) intros xyp.
X, Y: UU
P: X × Y → UU
xyp: ∑ xy : X × Y, P xy
∑ (y : Y) (x : X), P (x,, y)
    exact (pr2 (pr1 xyp),,pr1 (pr1 xyp),,pr2 xyp).
  -
X, Y: UU
P: X × Y → UU
(∑ (y : Y) (x : X), P (x,, y)) → ∑ xy : X × Y, P xy intros yxp.
X, Y: UU
P: X × Y → UU
yxp: ∑ (y : Y) (x : X), P (x,, y)
∑ xy : X × Y, P xy
    exact ((pr1 (pr2 yxp),,pr1 yxp),,pr2 (pr2 yxp)).
  -
X, Y: UU
P: X × Y → UU
∏ x : ∑ xy : X × Y, P xy,
(λ yxp : ∑ (y : Y) (x0 : X), P (x0,, y),
 (pr1 (pr2 yxp),, pr1 yxp),, pr2 (pr2 yxp))
  ((λ xyp : ∑ xy : X × Y, P xy,
    pr2 (pr1 xyp),, pr1 (pr1 xyp),, pr2 xyp) x) = x intros xyp.
X, Y: UU
P: X × Y → UU
xyp: ∑ xy : X × Y, P xy
(λ yxp : ∑ (y : Y) (x : X), P (x,, y),
 (pr1 (pr2 yxp),, pr1 yxp),, pr2 (pr2 yxp))
  ((λ xyp : ∑ xy : X × Y, P xy,
    pr2 (pr1 xyp),, pr1 (pr1 xyp),, pr2 xyp) xyp) =
xyp
    apply idpath.
  -
X, Y: UU
P: X × Y → UU
∏ y : ∑ (y : Y) (x : X), P (x,, y),
(λ xyp : ∑ xy : X × Y, P xy,
 pr2 (pr1 xyp),, pr1 (pr1 xyp),, pr2 xyp)
  ((λ yxp : ∑ (y0 : Y) (x : X), P (x,, y0),
    (pr1 (pr2 yxp),, pr1 yxp),, pr2 (pr2 yxp)) y) = y intros yxp.
X, Y: UU
P: X × Y → UU
yxp: ∑ (y : Y) (x : X), P (x,, y)
(λ xyp : ∑ xy : X × Y, P xy,
 pr2 (pr1 xyp),, pr1 (pr1 xyp),, pr2 xyp)
  ((λ yxp : ∑ (y : Y) (x : X), P (x,, y),
    (pr1 (pr2 yxp),, pr1 yxp),, pr2 (pr2 yxp)) yxp) =
yxp
    apply idpath.
Defined.

Definition weqtotal2comm12 {X} (P Q : X -> UU) :
  (∑ (w : ∑ x, P x), Q (pr1 w)) ≃ (∑ (w : ∑ x, Q x), P (pr1 w)).
X: Type
P, Q: X → UU
(∑ w : ∑ x : X, P x, Q (pr1 w))
≃ (∑ w : ∑ x : X, Q x, P (pr1 w))
Proof.
X: Type
P, Q: X → UU
(∑ w : ∑ x : X, P x, Q (pr1 w))
≃ (∑ w : ∑ x : X, Q x, P (pr1 w))
  intros.
X: Type
P, Q: X → UU
(∑ w : ∑ x : X, P x, Q (pr1 w))
≃ (∑ w : ∑ x : X, Q x, P (pr1 w))
  use weq_iso.
X: Type
P, Q: X → UU
(∑ w : ∑ x : X, P x, Q (pr1 w))
→ ∑ w : ∑ x : X, Q x, P (pr1 w)
X: Type
P, Q: X → UU
(∑ w : ∑ x : X, Q x, P (pr1 w))
→ ∑ w : ∑ x : X, P x, Q (pr1 w)
X: Type
P, Q: X → UU
∏ x : ∑ w : ∑ x : X, P x, Q (pr1 w), ?g (?f x) = x
X: Type
P, Q: X → UU
∏ y : ∑ w : ∑ x : X, Q x, P (pr1 w), ?f (?g y) = y
  -
X: Type
P, Q: X → UU
(∑ w : ∑ x : X, P x, Q (pr1 w))
→ ∑ w : ∑ x : X, Q x, P (pr1 w) intro xpq.
X: Type
P, Q: X → UU
xpq: ∑ w : ∑ x : X, P x, Q (pr1 w)
∑ w : ∑ x : X, Q x, P (pr1 w) exact ((pr1 (pr1 xpq),,pr2 xpq),, pr2 (pr1 xpq)).
  -
X: Type
P, Q: X → UU
(∑ w : ∑ x : X, Q x, P (pr1 w))
→ ∑ w : ∑ x : X, P x, Q (pr1 w) intro xqp.
X: Type
P, Q: X → UU
xqp: ∑ w : ∑ x : X, Q x, P (pr1 w)
∑ w : ∑ x : X, P x, Q (pr1 w) exact ((pr1 (pr1 xqp),, pr2 xqp),, pr2 (pr1 xqp)).
  -
X: Type
P, Q: X → UU
∏ x : ∑ w : ∑ x : X, P x, Q (pr1 w),
(λ xqp : ∑ w : ∑ x0 : X, Q x0, P (pr1 w),
 (pr1 (pr1 xqp),, pr2 xqp),, pr2 (pr1 xqp))
  ((λ xpq : ∑ w : ∑ x0 : X, P x0, Q (pr1 w),
    (pr1 (pr1 xpq),, pr2 xpq),, pr2 (pr1 xpq)) x) = x intro.
X: Type
P, Q: X → UU
x: ∑ w : ∑ x : X, P x, Q (pr1 w)
(λ xqp : ∑ w : ∑ x : X, Q x, P (pr1 w),
 (pr1 (pr1 xqp),, pr2 xqp),, pr2 (pr1 xqp))
  ((λ xpq : ∑ w : ∑ x : X, P x, Q (pr1 w),
    (pr1 (pr1 xpq),, pr2 xpq),, pr2 (pr1 xpq)) x) = x apply idpath.
  -
X: Type
P, Q: X → UU
∏ y : ∑ w : ∑ x : X, Q x, P (pr1 w),
(λ xpq : ∑ w : ∑ x : X, P x, Q (pr1 w),
 (pr1 (pr1 xpq),, pr2 xpq),, pr2 (pr1 xpq))
  ((λ xqp : ∑ w : ∑ x : X, Q x, P (pr1 w),
    (pr1 (pr1 xqp),, pr2 xqp),, pr2 (pr1 xqp)) y) = y intro.
X: Type
P, Q: X → UU
y: ∑ w : ∑ x : X, Q x, P (pr1 w)
(λ xpq : ∑ w : ∑ x : X, P x, Q (pr1 w),
 (pr1 (pr1 xpq),, pr2 xpq),, pr2 (pr1 xpq))
  ((λ xqp : ∑ w : ∑ x : X, Q x, P (pr1 w),
    (pr1 (pr1 xqp),, pr2 xqp),, pr2 (pr1 xqp)) y) = y apply idpath.
Defined.

(** ** Binary coproducts and their basic properties *)

(** Binary coproducts have not been introduced or used earlier except for the
lines in the Preamble.v that define [ coprod ] and [ ⨿ ] as a notation for
the inductive type family [ sum ] that is defined in Coq.Init. *)

(** *** Distributivity of coproducts and direct products as a weak equivalence *)

Definition rdistrtocoprod (X Y Z : UU) :
  X × (Y ⨿ Z) -> (X × Y) ⨿ (X × Z).
X, Y, Z: UU
X × Y ⨿ Z → (X × Y) ⨿ (X × Z)
Proof.
X, Y, Z: UU
X × Y ⨿ Z → (X × Y) ⨿ (X × Z)
  intros X0.
X, Y, Z: UU
X0: X × Y ⨿ Z
(X × Y) ⨿ (X × Z)
  induction X0 as [ t x ].
X, Y, Z: UU
t: X
x: Y ⨿ Z
(X × Y) ⨿ (X × Z) induction x as [ y | z ].
X, Y, Z: UU
t: X
y: Y
(X × Y) ⨿ (X × Z)
X, Y, Z: UU
t: X
z: Z
(X × Y) ⨿ (X × Z)
  apply (ii1 (make_dirprod t y)).
X, Y, Z: UU
t: X
z: Z
(X × Y) ⨿ (X × Z)
  apply (ii2 (make_dirprod t z)).
Defined.


Definition rdistrtoprod (X Y Z : UU) : (X × Y) ⨿ (X × Z) -> X × (Y ⨿ Z).
X, Y, Z: UU
(X × Y) ⨿ (X × Z) → X × Y ⨿ Z
Proof.
X, Y, Z: UU
(X × Y) ⨿ (X × Z) → X × Y ⨿ Z
  intros X0.
X, Y, Z: UU
X0: (X × Y) ⨿ (X × Z)
X × Y ⨿ Z
  induction X0 as [ d | d ].
X, Y, Z: UU
d: X × Y
X × Y ⨿ Z
X, Y, Z: UU
d: X × Z
X × Y ⨿ Z induction d as [ t x ].
X, Y, Z: UU
t: X
x: Y
X × Y ⨿ Z
X, Y, Z: UU
d: X × Z
X × Y ⨿ Z
  apply (make_dirprod t (ii1 x)).
X, Y, Z: UU
d: X × Z
X × Y ⨿ Z
  induction d as [ t x ].
X, Y, Z: UU
t: X
x: Z
X × Y ⨿ Z apply (make_dirprod t (ii2 x)).
Defined.


Theorem isweqrdistrtoprod (X Y Z : UU) : isweq (rdistrtoprod X Y Z).
X, Y, Z: UU
isweq (rdistrtoprod X Y Z)
Proof.
X, Y, Z: UU
isweq (rdistrtoprod X Y Z)
  intros.
X, Y, Z: UU
isweq (rdistrtoprod X Y Z)
  set (f := rdistrtoprod X Y Z).
X, Y, Z: UU
f:= rdistrtoprod X Y Z: (X × Y) ⨿ (X × Z) → X × Y ⨿ Z
isweq f set (g := rdistrtocoprod X Y Z).
X, Y, Z: UU
f:= rdistrtoprod X Y Z: (X × Y) ⨿ (X × Z) → X × Y ⨿ Z
g:= rdistrtocoprod X Y Z: X × Y ⨿ Z → (X × Y) ⨿ (X × Z)
isweq f

  assert (egf: ∏ a, (g (f a)) = a).
X, Y, Z: UU
f:= rdistrtoprod X Y Z: (X × Y) ⨿ (X × Z) → X × Y ⨿ Z
g:= rdistrtocoprod X Y Z: X × Y ⨿ Z → (X × Y) ⨿ (X × Z)
∏ a : (X × Y) ⨿ (X × Z), g (f a) = a
X, Y, Z: UU
f:= rdistrtoprod X Y Z: (X × Y) ⨿ (X × Z) → X × Y ⨿ Z
g:= rdistrtocoprod X Y Z: X × Y ⨿ Z → (X × Y) ⨿ (X × Z)
egf: ∏ a : (X × Y) ⨿ (X × Z), g (f a) = a
isweq f
  intro.
X, Y, Z: UU
f:= rdistrtoprod X Y Z: (X × Y) ⨿ (X × Z) → X × Y ⨿ Z
g:= rdistrtocoprod X Y Z: X × Y ⨿ Z → (X × Y) ⨿ (X × Z)
a: (X × Y) ⨿ (X × Z)
g (f a) = a
X, Y, Z: UU
f:= rdistrtoprod X Y Z: (X × Y) ⨿ (X × Z) → X × Y ⨿ Z
g:= rdistrtocoprod X Y Z: X × Y ⨿ Z → (X × Y) ⨿ (X × Z)
egf: ∏ a : (X × Y) ⨿ (X × Z), g (f a) = a
isweq f induction a as [ d | d ].
X, Y, Z: UU
f:= rdistrtoprod X Y Z: (X × Y) ⨿ (X × Z) → X × Y ⨿ Z
g:= rdistrtocoprod X Y Z: X × Y ⨿ Z → (X × Y) ⨿ (X × Z)
d: X × Y
g (f (inl d)) = inl d
X, Y, Z: UU
f:= rdistrtoprod X Y Z: (X × Y) ⨿ (X × Z) → X × Y ⨿ Z
g:= rdistrtocoprod X Y Z: X × Y ⨿ Z → (X × Y) ⨿ (X × Z)
d: X × Z
g (f (inr d)) = inr d
X, Y, Z: UU
f:= rdistrtoprod X Y Z: (X × Y) ⨿ (X × Z) → X × Y ⨿ Z
g:= rdistrtocoprod X Y Z: X × Y ⨿ Z → (X × Y) ⨿ (X × Z)
egf: ∏ a : (X × Y) ⨿ (X × Z), g (f a) = a
isweq f induction d.
X, Y, Z: UU
f:= rdistrtoprod X Y Z: (X × Y) ⨿ (X × Z) → X × Y ⨿ Z
g:= rdistrtocoprod X Y Z: X × Y ⨿ Z → (X × Y) ⨿ (X × Z)
pr1: X
pr2: Y
g (f (inl (pr1,, pr2))) = inl (pr1,, pr2)
X, Y, Z: UU
f:= rdistrtoprod X Y Z: (X × Y) ⨿ (X × Z) → X × Y ⨿ Z
g:= rdistrtocoprod X Y Z: X × Y ⨿ Z → (X × Y) ⨿ (X × Z)
d: X × Z
g (f (inr d)) = inr d
X, Y, Z: UU
f:= rdistrtoprod X Y Z: (X × Y) ⨿ (X × Z) → X × Y ⨿ Z
g:= rdistrtocoprod X Y Z: X × Y ⨿ Z → (X × Y) ⨿ (X × Z)
egf: ∏ a : (X × Y) ⨿ (X × Z), g (f a) = a
isweq f apply idpath.
X, Y, Z: UU
f:= rdistrtoprod X Y Z: (X × Y) ⨿ (X × Z) → X × Y ⨿ Z
g:= rdistrtocoprod X Y Z: X × Y ⨿ Z → (X × Y) ⨿ (X × Z)
d: X × Z
g (f (inr d)) = inr d
X, Y, Z: UU
f:= rdistrtoprod X Y Z: (X × Y) ⨿ (X × Z) → X × Y ⨿ Z
g:= rdistrtocoprod X Y Z: X × Y ⨿ Z → (X × Y) ⨿ (X × Z)
egf: ∏ a : (X × Y) ⨿ (X × Z), g (f a) = a
isweq f induction d.
X, Y, Z: UU
f:= rdistrtoprod X Y Z: (X × Y) ⨿ (X × Z) → X × Y ⨿ Z
g:= rdistrtocoprod X Y Z: X × Y ⨿ Z → (X × Y) ⨿ (X × Z)
pr1: X
pr2: Z
g (f (inr (pr1,, pr2))) = inr (pr1,, pr2)
X, Y, Z: UU
f:= rdistrtoprod X Y Z: (X × Y) ⨿ (X × Z) → X × Y ⨿ Z
g:= rdistrtocoprod X Y Z: X × Y ⨿ Z → (X × Y) ⨿ (X × Z)
egf: ∏ a : (X × Y) ⨿ (X × Z), g (f a) = a
isweq f
  apply idpath.
X, Y, Z: UU
f:= rdistrtoprod X Y Z: (X × Y) ⨿ (X × Z) → X × Y ⨿ Z
g:= rdistrtocoprod X Y Z: X × Y ⨿ Z → (X × Y) ⨿ (X × Z)
egf: ∏ a : (X × Y) ⨿ (X × Z), g (f a) = a
isweq f

  assert (efg: ∏ a, (f (g a)) = a).
X, Y, Z: UU
f:= rdistrtoprod X Y Z: (X × Y) ⨿ (X × Z) → X × Y ⨿ Z
g:= rdistrtocoprod X Y Z: X × Y ⨿ Z → (X × Y) ⨿ (X × Z)
egf: ∏ a : (X × Y) ⨿ (X × Z), g (f a) = a
∏ a : X × Y ⨿ Z, f (g a) = a
X, Y, Z: UU
f:= rdistrtoprod X Y Z: (X × Y) ⨿ (X × Z) → X × Y ⨿ Z
g:= rdistrtocoprod X Y Z: X × Y ⨿ Z → (X × Y) ⨿ (X × Z)
egf: ∏ a : (X × Y) ⨿ (X × Z), g (f a) = a
efg: ∏ a : X × Y ⨿ Z, f (g a) = a
isweq f intro.
X, Y, Z: UU
f:= rdistrtoprod X Y Z: (X × Y) ⨿ (X × Z) → X × Y ⨿ Z
g:= rdistrtocoprod X Y Z: X × Y ⨿ Z → (X × Y) ⨿ (X × Z)
egf: ∏ a : (X × Y) ⨿ (X × Z), g (f a) = a
a: X × Y ⨿ Z
f (g a) = a
X, Y, Z: UU
f:= rdistrtoprod X Y Z: (X × Y) ⨿ (X × Z) → X × Y ⨿ Z
g:= rdistrtocoprod X Y Z: X × Y ⨿ Z → (X × Y) ⨿ (X × Z)
egf: ∏ a : (X × Y) ⨿ (X × Z), g (f a) = a
efg: ∏ a : X × Y ⨿ Z, f (g a) = a
isweq f induction a as [ t x ].
X, Y, Z: UU
f:= rdistrtoprod X Y Z: (X × Y) ⨿ (X × Z) → X × Y ⨿ Z
g:= rdistrtocoprod X Y Z: X × Y ⨿ Z → (X × Y) ⨿ (X × Z)
egf: ∏ a : (X × Y) ⨿ (X × Z), g (f a) = a
t: X
x: Y ⨿ Z
f (g (t,, x)) = t,, x
X, Y, Z: UU
f:= rdistrtoprod X Y Z: (X × Y) ⨿ (X × Z) → X × Y ⨿ Z
g:= rdistrtocoprod X Y Z: X × Y ⨿ Z → (X × Y) ⨿ (X × Z)
egf: ∏ a : (X × Y) ⨿ (X × Z), g (f a) = a
efg: ∏ a : X × Y ⨿ Z, f (g a) = a
isweq f
  induction x.
X, Y, Z: UU
f:= rdistrtoprod X Y Z: (X × Y) ⨿ (X × Z) → X × Y ⨿ Z
g:= rdistrtocoprod X Y Z: X × Y ⨿ Z → (X × Y) ⨿ (X × Z)
egf: ∏ a : (X × Y) ⨿ (X × Z), g (f a) = a
t: X
a: Y
f (g (t,, inl a)) = t,, inl a
X, Y, Z: UU
f:= rdistrtoprod X Y Z: (X × Y) ⨿ (X × Z) → X × Y ⨿ Z
g:= rdistrtocoprod X Y Z: X × Y ⨿ Z → (X × Y) ⨿ (X × Z)
egf: ∏ a : (X × Y) ⨿ (X × Z), g (f a) = a
t: X
b: Z
f (g (t,, inr b)) = t,, inr b
X, Y, Z: UU
f:= rdistrtoprod X Y Z: (X × Y) ⨿ (X × Z) → X × Y ⨿ Z
g:= rdistrtocoprod X Y Z: X × Y ⨿ Z → (X × Y) ⨿ (X × Z)
egf: ∏ a : (X × Y) ⨿ (X × Z), g (f a) = a
efg: ∏ a : X × Y ⨿ Z, f (g a) = a
isweq f apply idpath.
X, Y, Z: UU
f:= rdistrtoprod X Y Z: (X × Y) ⨿ (X × Z) → X × Y ⨿ Z
g:= rdistrtocoprod X Y Z: X × Y ⨿ Z → (X × Y) ⨿ (X × Z)
egf: ∏ a : (X × Y) ⨿ (X × Z), g (f a) = a
t: X
b: Z
f (g (t,, inr b)) = t,, inr b
X, Y, Z: UU
f:= rdistrtoprod X Y Z: (X × Y) ⨿ (X × Z) → X × Y ⨿ Z
g:= rdistrtocoprod X Y Z: X × Y ⨿ Z → (X × Y) ⨿ (X × Z)
egf: ∏ a : (X × Y) ⨿ (X × Z), g (f a) = a
efg: ∏ a : X × Y ⨿ Z, f (g a) = a
isweq f apply idpath.
X, Y, Z: UU
f:= rdistrtoprod X Y Z: (X × Y) ⨿ (X × Z) → X × Y ⨿ Z
g:= rdistrtocoprod X Y Z: X × Y ⨿ Z → (X × Y) ⨿ (X × Z)
egf: ∏ a : (X × Y) ⨿ (X × Z), g (f a) = a
efg: ∏ a : X × Y ⨿ Z, f (g a) = a
isweq f

  apply (isweq_iso f g egf efg).
Defined.

Definition weqrdistrtoprod (X Y Z : UU) := make_weq _ (isweqrdistrtoprod X Y Z).

Corollary isweqrdistrtocoprod (X Y Z : UU) : isweq (rdistrtocoprod X Y Z).
X, Y, Z: UU
isweq (rdistrtocoprod X Y Z)
Proof.
X, Y, Z: UU
isweq (rdistrtocoprod X Y Z)
  intros.
X, Y, Z: UU
isweq (rdistrtocoprod X Y Z) apply (isweqinvmap (weqrdistrtoprod X Y Z)).
Defined.

Definition weqrdistrtocoprod (X Y Z : UU)
  := make_weq _ (isweqrdistrtocoprod X Y Z).


(** *** Total space of a family over a coproduct *)

Definition fromtotal2overcoprod {X Y : UU} (P : X ⨿ Y -> UU) (xyp : total2 P) :
  coprod (∑ x : X, P (ii1 x)) (∑ y : Y, P (ii2 y)).
X, Y: UU
P: X ⨿ Y → UU
xyp: ∑ y, P y
(∑ x : X, P (inl x)) ⨿ (∑ y : Y, P (inr y))
Proof.
X, Y: UU
P: X ⨿ Y → UU
xyp: ∑ y, P y
(∑ x : X, P (inl x)) ⨿ (∑ y : Y, P (inr y))
  intros.
X, Y: UU
P: X ⨿ Y → UU
xyp: ∑ y, P y
(∑ x : X, P (inl x)) ⨿ (∑ y : Y, P (inr y))
  set (PX := λ x : X, P (ii1 x)).
X, Y: UU
P: X ⨿ Y → UU
xyp: ∑ y, P y
PX:= λ x : X, P (inl x): X → UU
(∑ y, PX y) ⨿ (∑ y : Y, P (inr y)) set (PY := λ y : Y, P (ii2 y)).
X, Y: UU
P: X ⨿ Y → UU
xyp: ∑ y, P y
PX:= λ x : X, P (inl x): X → UU
PY:= λ y : Y, P (inr y): Y → UU
(∑ y, PX y) ⨿ (∑ y, PY y)
  induction xyp as [ xy p ].
X, Y: UU
P: X ⨿ Y → UU
xy: X ⨿ Y
p: P xy
PX:= λ x : X, P (inl x): X → UU
PY:= λ y : Y, P (inr y): Y → UU
(∑ y, PX y) ⨿ (∑ y, PY y) induction xy as [ x | y ].
X, Y: UU
P: X ⨿ Y → UU
x: X
p: P (inl x)
PX:= λ x : X, P (inl x): X → UU
PY:= λ y : Y, P (inr y): Y → UU
(∑ y, PX y) ⨿ (∑ y, PY y)
X, Y: UU
P: X ⨿ Y → UU
y: Y
p: P (inr y)
PX:= λ x : X, P (inl x): X → UU
PY:= λ y : Y, P (inr y): Y → UU
(∑ y, PX y) ⨿ (∑ y, PY y)
  apply (ii1 (tpair PX x p)).
X, Y: UU
P: X ⨿ Y → UU
y: Y
p: P (inr y)
PX:= λ x : X, P (inl x): X → UU
PY:= λ y : Y, P (inr y): Y → UU
(∑ y, PX y) ⨿ (∑ y, PY y) apply (ii2 (tpair PY y p)).
Defined.

Definition tototal2overcoprod {X Y : UU} (P : X ⨿ Y -> UU)
           (xpyp : coprod (∑ x : X, P (ii1 x)) (∑ y : Y, P (ii2 y))) : total2 P.
X, Y: UU
P: X ⨿ Y → UU
xpyp: (∑ x : X, P (inl x)) ⨿ (∑ y : Y, P (inr y))
∑ y, P y
Proof.
X, Y: UU
P: X ⨿ Y → UU
xpyp: (∑ x : X, P (inl x)) ⨿ (∑ y : Y, P (inr y))
∑ y, P y
  intros.
X, Y: UU
P: X ⨿ Y → UU
xpyp: (∑ x : X, P (inl x)) ⨿ (∑ y : Y, P (inr y))
∑ y, P y
  induction xpyp as [ xp | yp ].
X, Y: UU
P: X ⨿ Y → UU
xp: ∑ x : X, P (inl x)
∑ y, P y
X, Y: UU
P: X ⨿ Y → UU
yp: ∑ y : Y, P (inr y)
∑ y, P y induction xp as [ x p ].
X, Y: UU
P: X ⨿ Y → UU
x: X
p: P (inl x)
∑ y, P y
X, Y: UU
P: X ⨿ Y → UU
yp: ∑ y : Y, P (inr y)
∑ y, P y
  apply (tpair P (ii1 x) p).
X, Y: UU
P: X ⨿ Y → UU
yp: ∑ y : Y, P (inr y)
∑ y, P y
  induction yp as [ y p ].
X, Y: UU
P: X ⨿ Y → UU
y: Y
p: P (inr y)
∑ y, P y apply (tpair P (ii2 y) p).
Defined.

Theorem weqtotal2overcoprod {X Y : UU} (P : X ⨿ Y -> UU) :
  (∑ xy, P xy) ≃ (∑ x : X, P (ii1 x)) ⨿ (∑ y : Y, P (ii2 y)).
X, Y: UU
P: X ⨿ Y → UU
(∑ xy : X ⨿ Y, P xy)
≃ (∑ x : X, P (inl x)) ⨿ (∑ y : Y, P (inr y))
Proof.
X, Y: UU
P: X ⨿ Y → UU
(∑ xy : X ⨿ Y, P xy)
≃ (∑ x : X, P (inl x)) ⨿ (∑ y : Y, P (inr y))
  intros.
X, Y: UU
P: X ⨿ Y → UU
(∑ xy : X ⨿ Y, P xy)
≃ (∑ x : X, P (inl x)) ⨿ (∑ y : Y, P (inr y))
  set (f := fromtotal2overcoprod P).
X, Y: UU
P: X ⨿ Y → UU
f:= fromtotal2overcoprod P: (∑ y, P y)
→ (∑ x : X, P (inl x)) ⨿ (∑ y : Y, P (inr y))
(∑ xy : X ⨿ Y, P xy)
≃ (∑ x : X, P (inl x)) ⨿ (∑ y : Y, P (inr y)) set (g := tototal2overcoprod P).
X, Y: UU
P: X ⨿ Y → UU
f:= fromtotal2overcoprod P: (∑ y, P y)
→ (∑ x : X, P (inl x)) ⨿ (∑ y : Y, P (inr y))
g:= tototal2overcoprod P: (∑ x : X, P (inl x)) ⨿ (∑ y : Y, P (inr y))
→ ∑ y, P y
(∑ xy : X ⨿ Y, P xy)
≃ (∑ x : X, P (inl x)) ⨿ (∑ y : Y, P (inr y))
  split with f.
X, Y: UU
P: X ⨿ Y → UU
f:= fromtotal2overcoprod P: (∑ y, P y)
→ (∑ x : X, P (inl x)) ⨿ (∑ y : Y, P (inr y))
g:= tototal2overcoprod P: (∑ x : X, P (inl x)) ⨿ (∑ y : Y, P (inr y))
→ ∑ y, P y
isweq f
  assert (egf : ∏ a : _ , (g (f a)) = a).
X, Y: UU
P: X ⨿ Y → UU
f:= fromtotal2overcoprod P: (∑ y, P y)
→ (∑ x : X, P (inl x)) ⨿ (∑ y : Y, P (inr y))
g:= tototal2overcoprod P: (∑ x : X, P (inl x)) ⨿ (∑ y : Y, P (inr y))
→ ∑ y, P y
∏ a : ∑ y, P y, g (f a) = a
X, Y: UU
P: X ⨿ Y → UU
f:= fromtotal2overcoprod P: (∑ y, P y)
→ (∑ x : X, P (inl x)) ⨿ (∑ y : Y, P (inr y))
g:= tototal2overcoprod P: (∑ x : X, P (inl x)) ⨿ (∑ y : Y, P (inr y))
→ ∑ y, P y
egf: ∏ a : ∑ y, P y, g (f a) = a
isweq f
  {
X, Y: UU
P: X ⨿ Y → UU
f:= fromtotal2overcoprod P: (∑ y, P y)
→ (∑ x : X, P (inl x)) ⨿ (∑ y : Y, P (inr y))
g:= tototal2overcoprod P: (∑ x : X, P (inl x)) ⨿ (∑ y : Y, P (inr y))
→ ∑ y, P y
∏ a : ∑ y, P y, g (f a) = a intro a.
X, Y: UU
P: X ⨿ Y → UU
f:= fromtotal2overcoprod P: (∑ y, P y)
→ (∑ x : X, P (inl x)) ⨿ (∑ y : Y, P (inr y))
g:= tototal2overcoprod P: (∑ x : X, P (inl x)) ⨿ (∑ y : Y, P (inr y))
→ ∑ y, P y
a: ∑ y, P y
g (f a) = a
    induction a as [ xy p ].
X, Y: UU
P: X ⨿ Y → UU
f:= fromtotal2overcoprod P: (∑ y, P y)
→ (∑ x : X, P (inl x)) ⨿ (∑ y : Y, P (inr y))
g:= tototal2overcoprod P: (∑ x : X, P (inl x)) ⨿ (∑ y : Y, P (inr y))
→ ∑ y, P y
xy: X ⨿ Y
p: P xy
g (f (xy,, p)) = xy,, p
    induction xy as [ x | y ].
X, Y: UU
P: X ⨿ Y → UU
f:= fromtotal2overcoprod P: (∑ y, P y)
→ (∑ x : X, P (inl x)) ⨿ (∑ y : Y, P (inr y))
g:= tototal2overcoprod P: (∑ x : X, P (inl x)) ⨿ (∑ y : Y, P (inr y))
→ ∑ y, P y
x: X
p: P (inl x)
g (f (inl x,, p)) = inl x,, p
X, Y: UU
P: X ⨿ Y → UU
f:= fromtotal2overcoprod P: (∑ y, P y)
→ (∑ x : X, P (inl x)) ⨿ (∑ y : Y, P (inr y))
g:= tototal2overcoprod P: (∑ x : X, P (inl x)) ⨿ (∑ y : Y, P (inr y))
→ ∑ y, P y
y: Y
p: P (inr y)
g (f (inr y,, p)) = inr y,, p
    simpl.
X, Y: UU
P: X ⨿ Y → UU
f:= fromtotal2overcoprod P: (∑ y, P y)
→ (∑ x : X, P (inl x)) ⨿ (∑ y : Y, P (inr y))
g:= tototal2overcoprod P: (∑ x : X, P (inl x)) ⨿ (∑ y : Y, P (inr y))
→ ∑ y, P y
x: X
p: P (inl x)
inl x,, p = inl x,, p
X, Y: UU
P: X ⨿ Y → UU
f:= fromtotal2overcoprod P: (∑ y, P y)
→ (∑ x : X, P (inl x)) ⨿ (∑ y : Y, P (inr y))
g:= tototal2overcoprod P: (∑ x : X, P (inl x)) ⨿ (∑ y : Y, P (inr y))
→ ∑ y, P y
y: Y
p: P (inr y)
g (f (inr y,, p)) = inr y,, p
    apply idpath.
X, Y: UU
P: X ⨿ Y → UU
f:= fromtotal2overcoprod P: (∑ y, P y)
→ (∑ x : X, P (inl x)) ⨿ (∑ y : Y, P (inr y))
g:= tototal2overcoprod P: (∑ x : X, P (inl x)) ⨿ (∑ y : Y, P (inr y))
→ ∑ y, P y
y: Y
p: P (inr y)
g (f (inr y,, p)) = inr y,, p
    simpl.
X, Y: UU
P: X ⨿ Y → UU
f:= fromtotal2overcoprod P: (∑ y, P y)
→ (∑ x : X, P (inl x)) ⨿ (∑ y : Y, P (inr y))
g:= tototal2overcoprod P: (∑ x : X, P (inl x)) ⨿ (∑ y : Y, P (inr y))
→ ∑ y, P y
y: Y
p: P (inr y)
inr y,, p = inr y,, p
    apply idpath. }
X, Y: UU
P: X ⨿ Y → UU
f:= fromtotal2overcoprod P: (∑ y, P y)
→ (∑ x : X, P (inl x)) ⨿ (∑ y : Y, P (inr y))
g:= tototal2overcoprod P: (∑ x : X, P (inl x)) ⨿ (∑ y : Y, P (inr y))
→ ∑ y, P y
egf: ∏ a : ∑ y, P y, g (f a) = a
isweq f
  assert (efg : ∏ a : _ , (f (g a)) = a).
X, Y: UU
P: X ⨿ Y → UU
f:= fromtotal2overcoprod P: (∑ y, P y)
→ (∑ x : X, P (inl x)) ⨿ (∑ y : Y, P (inr y))
g:= tototal2overcoprod P: (∑ x : X, P (inl x)) ⨿ (∑ y : Y, P (inr y))
→ ∑ y, P y
egf: ∏ a : ∑ y, P y, g (f a) = a
∏ a : (∑ x : X, P (inl x)) ⨿ (∑ y : Y, P (inr y)),
f (g a) = a
X, Y: UU
P: X ⨿ Y → UU
f:= fromtotal2overcoprod P: (∑ y, P y)
→ (∑ x : X, P (inl x)) ⨿ (∑ y : Y, P (inr y))
g:= tototal2overcoprod P: (∑ x : X, P (inl x)) ⨿ (∑ y : Y, P (inr y))
→ ∑ y, P y
egf: ∏ a : ∑ y, P y, g (f a) = a
efg: ∏ a : (∑ x : X, P (inl x)) ⨿ (∑ y : Y, P (inr y)), f (g a) = a
isweq f
  {
X, Y: UU
P: X ⨿ Y → UU
f:= fromtotal2overcoprod P: (∑ y, P y)
→ (∑ x : X, P (inl x)) ⨿ (∑ y : Y, P (inr y))
g:= tototal2overcoprod P: (∑ x : X, P (inl x)) ⨿ (∑ y : Y, P (inr y))
→ ∑ y, P y
egf: ∏ a : ∑ y, P y, g (f a) = a
∏ a : (∑ x : X, P (inl x)) ⨿ (∑ y : Y, P (inr y)),
f (g a) = a intro a.
X, Y: UU
P: X ⨿ Y → UU
f:= fromtotal2overcoprod P: (∑ y, P y)
→ (∑ x : X, P (inl x)) ⨿ (∑ y : Y, P (inr y))
g:= tototal2overcoprod P: (∑ x : X, P (inl x)) ⨿ (∑ y : Y, P (inr y))
→ ∑ y, P y
egf: ∏ a : ∑ y, P y, g (f a) = a
a: (∑ x : X, P (inl x)) ⨿ (∑ y : Y, P (inr y))
f (g a) = a
    induction a as [ xp | yp ].
X, Y: UU
P: X ⨿ Y → UU
f:= fromtotal2overcoprod P: (∑ y, P y)
→ (∑ x : X, P (inl x)) ⨿ (∑ y : Y, P (inr y))
g:= tototal2overcoprod P: (∑ x : X, P (inl x)) ⨿ (∑ y : Y, P (inr y))
→ ∑ y, P y
egf: ∏ a : ∑ y, P y, g (f a) = a
xp: ∑ x : X, P (inl x)
f (g (inl xp)) = inl xp
X, Y: UU
P: X ⨿ Y → UU
f:= fromtotal2overcoprod P: (∑ y, P y)
→ (∑ x : X, P (inl x)) ⨿ (∑ y : Y, P (inr y))
g:= tototal2overcoprod P: (∑ x : X, P (inl x)) ⨿ (∑ y : Y, P (inr y))
→ ∑ y, P y
egf: ∏ a : ∑ y, P y, g (f a) = a
yp: ∑ y : Y, P (inr y)
f (g (inr yp)) = inr yp
    induction xp as [ x p ].
X, Y: UU
P: X ⨿ Y → UU
f:= fromtotal2overcoprod P: (∑ y, P y)
→ (∑ x : X, P (inl x)) ⨿ (∑ y : Y, P (inr y))
g:= tototal2overcoprod P: (∑ x : X, P (inl x)) ⨿ (∑ y : Y, P (inr y))
→ ∑ y, P y
egf: ∏ a : ∑ y, P y, g (f a) = a
x: X
p: P (inl x)
f (g (inl (x,, p))) = inl (x,, p)
X, Y: UU
P: X ⨿ Y → UU
f:= fromtotal2overcoprod P: (∑ y, P y)
→ (∑ x : X, P (inl x)) ⨿ (∑ y : Y, P (inr y))
g:= tototal2overcoprod P: (∑ x : X, P (inl x)) ⨿ (∑ y : Y, P (inr y))
→ ∑ y, P y
egf: ∏ a : ∑ y, P y, g (f a) = a
yp: ∑ y : Y, P (inr y)
f (g (inr yp)) = inr yp
    simpl.
X, Y: UU
P: X ⨿ Y → UU
f:= fromtotal2overcoprod P: (∑ y, P y)
→ (∑ x : X, P (inl x)) ⨿ (∑ y : Y, P (inr y))
g:= tototal2overcoprod P: (∑ x : X, P (inl x)) ⨿ (∑ y : Y, P (inr y))
→ ∑ y, P y
egf: ∏ a : ∑ y, P y, g (f a) = a
x: X
p: P (inl x)
inl (x,, p) = inl (x,, p)
X, Y: UU
P: X ⨿ Y → UU
f:= fromtotal2overcoprod P: (∑ y, P y)
→ (∑ x : X, P (inl x)) ⨿ (∑ y : Y, P (inr y))
g:= tototal2overcoprod P: (∑ x : X, P (inl x)) ⨿ (∑ y : Y, P (inr y))
→ ∑ y, P y
egf: ∏ a : ∑ y, P y, g (f a) = a
yp: ∑ y : Y, P (inr y)
f (g (inr yp)) = inr yp
    apply idpath.
X, Y: UU
P: X ⨿ Y → UU
f:= fromtotal2overcoprod P: (∑ y, P y)
→ (∑ x : X, P (inl x)) ⨿ (∑ y : Y, P (inr y))
g:= tototal2overcoprod P: (∑ x : X, P (inl x)) ⨿ (∑ y : Y, P (inr y))
→ ∑ y, P y
egf: ∏ a : ∑ y, P y, g (f a) = a
yp: ∑ y : Y, P (inr y)
f (g (inr yp)) = inr yp
    induction yp as [ y p ].
X, Y: UU
P: X ⨿ Y → UU
f:= fromtotal2overcoprod P: (∑ y, P y)
→ (∑ x : X, P (inl x)) ⨿ (∑ y : Y, P (inr y))
g:= tototal2overcoprod P: (∑ x : X, P (inl x)) ⨿ (∑ y : Y, P (inr y))
→ ∑ y, P y
egf: ∏ a : ∑ y, P y, g (f a) = a
y: Y
p: P (inr y)
f (g (inr (y,, p))) = inr (y,, p)
    apply idpath. }
X, Y: UU
P: X ⨿ Y → UU
f:= fromtotal2overcoprod P: (∑ y, P y)
→ (∑ x : X, P (inl x)) ⨿ (∑ y : Y, P (inr y))
g:= tototal2overcoprod P: (∑ x : X, P (inl x)) ⨿ (∑ y : Y, P (inr y))
→ ∑ y, P y
egf: ∏ a : ∑ y, P y, g (f a) = a
efg: ∏ a : (∑ x : X, P (inl x)) ⨿ (∑ y : Y, P (inr y)), f (g a) = a
isweq f
  apply (isweq_iso _ _ egf efg).
Defined.

(** *** Pairwise sum of functions, coproduct associativity and commutativity  *)

Definition sumofmaps {X Y Z : UU} (fx : X -> Z)(fy : Y -> Z) :
  (X ⨿ Y) -> Z := λ xy : _, match xy with ii1 x => fx x | ii2 y => fy y end.

Definition coprodasstor (X Y Z : UU) : (X ⨿ Y) ⨿ Z -> X ⨿ (Y ⨿ Z).
X, Y, Z: UU
X ⨿ Y ⨿ Z → X ⨿ (Y ⨿ Z)
Proof.
X, Y, Z: UU
X ⨿ Y ⨿ Z → X ⨿ (Y ⨿ Z)
  intros X0.
X, Y, Z: UU
X0: X ⨿ Y ⨿ Z
X ⨿ (Y ⨿ Z)
  induction X0 as [ c | z ].
X, Y, Z: UU
c: X ⨿ Y
X ⨿ (Y ⨿ Z)
X, Y, Z: UU
z: Z
X ⨿ (Y ⨿ Z) induction c as [ x | y ].
X, Y, Z: UU
x: X
X ⨿ (Y ⨿ Z)
X, Y, Z: UU
y: Y
X ⨿ (Y ⨿ Z)
X, Y, Z: UU
z: Z
X ⨿ (Y ⨿ Z)
  apply (ii1 x).
X, Y, Z: UU
y: Y
X ⨿ (Y ⨿ Z)
X, Y, Z: UU
z: Z
X ⨿ (Y ⨿ Z) apply (ii2 (ii1 y)).
X, Y, Z: UU
z: Z
X ⨿ (Y ⨿ Z) apply (ii2 (ii2 z)).
Defined.

Definition coprodasstol (X Y Z : UU): X ⨿ (Y ⨿ Z) -> (X ⨿ Y) ⨿ Z.
X, Y, Z: UU
X ⨿ (Y ⨿ Z) → X ⨿ Y ⨿ Z
Proof.
X, Y, Z: UU
X ⨿ (Y ⨿ Z) → X ⨿ Y ⨿ Z
  intros X0.
X, Y, Z: UU
X0: X ⨿ (Y ⨿ Z)
X ⨿ Y ⨿ Z
  induction X0 as [ x | c ].
X, Y, Z: UU
x: X
X ⨿ Y ⨿ Z
X, Y, Z: UU
c: Y ⨿ Z
X ⨿ Y ⨿ Z apply (ii1 (ii1 x)).
X, Y, Z: UU
c: Y ⨿ Z
X ⨿ Y ⨿ Z induction c as [ y | z ].
X, Y, Z: UU
y: Y
X ⨿ Y ⨿ Z
X, Y, Z: UU
z: Z
X ⨿ Y ⨿ Z
  apply (ii1 (ii2 y)).
X, Y, Z: UU
z: Z
X ⨿ Y ⨿ Z apply (ii2 z).
Defined.

Definition sumofmaps_assoc_left {X Y Z T : UU} (f : X -> T) (g : Y -> T)
           (h : Z -> T) :
  sumofmaps (sumofmaps f g) h ∘ coprodasstol _ _ _ ~ sumofmaps f (sumofmaps g h).
X, Y, Z, T: UU
f: X → T
g: Y → T
h: Z → T
sumofmaps (sumofmaps f g) h ∘ coprodasstol X Y Z ~
sumofmaps f (sumofmaps g h)
Proof.
X, Y, Z, T: UU
f: X → T
g: Y → T
h: Z → T
sumofmaps (sumofmaps f g) h ∘ coprodasstol X Y Z ~
sumofmaps f (sumofmaps g h)
  intros.
X, Y, Z, T: UU
f: X → T
g: Y → T
h: Z → T
sumofmaps (sumofmaps f g) h ∘ coprodasstol X Y Z ~
sumofmaps f (sumofmaps g h) intros [x|[y|z]]; apply idpath.
Defined.

Definition sumofmaps_assoc_right {X Y Z T : UU} (f : X -> T) (g : Y -> T)
           (h : Z -> T) :
  sumofmaps f (sumofmaps g h) ∘ coprodasstor _ _ _ ~ sumofmaps (sumofmaps f g) h.
X, Y, Z, T: UU
f: X → T
g: Y → T
h: Z → T
sumofmaps f (sumofmaps g h) ∘ coprodasstor X Y Z ~
sumofmaps (sumofmaps f g) h
Proof.
X, Y, Z, T: UU
f: X → T
g: Y → T
h: Z → T
sumofmaps f (sumofmaps g h) ∘ coprodasstor X Y Z ~
sumofmaps (sumofmaps f g) h
  intros.
X, Y, Z, T: UU
f: X → T
g: Y → T
h: Z → T
sumofmaps f (sumofmaps g h) ∘ coprodasstor X Y Z ~
sumofmaps (sumofmaps f g) h intros [[x|y]|z]; apply idpath.
Defined.

Theorem isweqcoprodasstor (X Y Z : UU): isweq (coprodasstor X Y Z).
X, Y, Z: UU
isweq (coprodasstor X Y Z)
Proof.
X, Y, Z: UU
isweq (coprodasstor X Y Z)
  intros.
X, Y, Z: UU
isweq (coprodasstor X Y Z) set (f := coprodasstor X Y Z).
X, Y, Z: UU
f:= coprodasstor X Y Z: X ⨿ Y ⨿ Z → X ⨿ (Y ⨿ Z)
isweq f set (g := coprodasstol X Y Z).
X, Y, Z: UU
f:= coprodasstor X Y Z: X ⨿ Y ⨿ Z → X ⨿ (Y ⨿ Z)
g:= coprodasstol X Y Z: X ⨿ (Y ⨿ Z) → X ⨿ Y ⨿ Z
isweq f
  assert (egf : ∏ xyz, (g (f xyz)) = xyz).
X, Y, Z: UU
f:= coprodasstor X Y Z: X ⨿ Y ⨿ Z → X ⨿ (Y ⨿ Z)
g:= coprodasstol X Y Z: X ⨿ (Y ⨿ Z) → X ⨿ Y ⨿ Z
∏ xyz : X ⨿ Y ⨿ Z, g (f xyz) = xyz
X, Y, Z: UU
f:= coprodasstor X Y Z: X ⨿ Y ⨿ Z → X ⨿ (Y ⨿ Z)
g:= coprodasstol X Y Z: X ⨿ (Y ⨿ Z) → X ⨿ Y ⨿ Z
egf: ∏ xyz : X ⨿ Y ⨿ Z, g (f xyz) = xyz
isweq f
  intro xyz.
X, Y, Z: UU
f:= coprodasstor X Y Z: X ⨿ Y ⨿ Z → X ⨿ (Y ⨿ Z)
g:= coprodasstol X Y Z: X ⨿ (Y ⨿ Z) → X ⨿ Y ⨿ Z
xyz: X ⨿ Y ⨿ Z
g (f xyz) = xyz
X, Y, Z: UU
f:= coprodasstor X Y Z: X ⨿ Y ⨿ Z → X ⨿ (Y ⨿ Z)
g:= coprodasstol X Y Z: X ⨿ (Y ⨿ Z) → X ⨿ Y ⨿ Z
egf: ∏ xyz : X ⨿ Y ⨿ Z, g (f xyz) = xyz
isweq f induction xyz as [ c | z ].
X, Y, Z: UU
f:= coprodasstor X Y Z: X ⨿ Y ⨿ Z → X ⨿ (Y ⨿ Z)
g:= coprodasstol X Y Z: X ⨿ (Y ⨿ Z) → X ⨿ Y ⨿ Z
c: X ⨿ Y
g (f (inl c)) = inl c
X, Y, Z: UU
f:= coprodasstor X Y Z: X ⨿ Y ⨿ Z → X ⨿ (Y ⨿ Z)
g:= coprodasstol X Y Z: X ⨿ (Y ⨿ Z) → X ⨿ Y ⨿ Z
z: Z
g (f (inr z)) = inr z
X, Y, Z: UU
f:= coprodasstor X Y Z: X ⨿ Y ⨿ Z → X ⨿ (Y ⨿ Z)
g:= coprodasstol X Y Z: X ⨿ (Y ⨿ Z) → X ⨿ Y ⨿ Z
egf: ∏ xyz : X ⨿ Y ⨿ Z, g (f xyz) = xyz
isweq f  induction c.
X, Y, Z: UU
f:= coprodasstor X Y Z: X ⨿ Y ⨿ Z → X ⨿ (Y ⨿ Z)
g:= coprodasstol X Y Z: X ⨿ (Y ⨿ Z) → X ⨿ Y ⨿ Z
a: X
g (f (inl (inl a))) = inl (inl a)
X, Y, Z: UU
f:= coprodasstor X Y Z: X ⨿ Y ⨿ Z → X ⨿ (Y ⨿ Z)
g:= coprodasstol X Y Z: X ⨿ (Y ⨿ Z) → X ⨿ Y ⨿ Z
b: Y
g (f (inl (inr b))) = inl (inr b)
X, Y, Z: UU
f:= coprodasstor X Y Z: X ⨿ Y ⨿ Z → X ⨿ (Y ⨿ Z)
g:= coprodasstol X Y Z: X ⨿ (Y ⨿ Z) → X ⨿ Y ⨿ Z
z: Z
g (f (inr z)) = inr z
X, Y, Z: UU
f:= coprodasstor X Y Z: X ⨿ Y ⨿ Z → X ⨿ (Y ⨿ Z)
g:= coprodasstol X Y Z: X ⨿ (Y ⨿ Z) → X ⨿ Y ⨿ Z
egf: ∏ xyz : X ⨿ Y ⨿ Z, g (f xyz) = xyz
isweq f
  apply idpath.
X, Y, Z: UU
f:= coprodasstor X Y Z: X ⨿ Y ⨿ Z → X ⨿ (Y ⨿ Z)
g:= coprodasstol X Y Z: X ⨿ (Y ⨿ Z) → X ⨿ Y ⨿ Z
b: Y
g (f (inl (inr b))) = inl (inr b)
X, Y, Z: UU
f:= coprodasstor X Y Z: X ⨿ Y ⨿ Z → X ⨿ (Y ⨿ Z)
g:= coprodasstol X Y Z: X ⨿ (Y ⨿ Z) → X ⨿ Y ⨿ Z
z: Z
g (f (inr z)) = inr z
X, Y, Z: UU
f:= coprodasstor X Y Z: X ⨿ Y ⨿ Z → X ⨿ (Y ⨿ Z)
g:= coprodasstol X Y Z: X ⨿ (Y ⨿ Z) → X ⨿ Y ⨿ Z
egf: ∏ xyz : X ⨿ Y ⨿ Z, g (f xyz) = xyz
isweq f apply idpath.
X, Y, Z: UU
f:= coprodasstor X Y Z: X ⨿ Y ⨿ Z → X ⨿ (Y ⨿ Z)
g:= coprodasstol X Y Z: X ⨿ (Y ⨿ Z) → X ⨿ Y ⨿ Z
z: Z
g (f (inr z)) = inr z
X, Y, Z: UU
f:= coprodasstor X Y Z: X ⨿ Y ⨿ Z → X ⨿ (Y ⨿ Z)
g:= coprodasstol X Y Z: X ⨿ (Y ⨿ Z) → X ⨿ Y ⨿ Z
egf: ∏ xyz : X ⨿ Y ⨿ Z, g (f xyz) = xyz
isweq f apply idpath.
X, Y, Z: UU
f:= coprodasstor X Y Z: X ⨿ Y ⨿ Z → X ⨿ (Y ⨿ Z)
g:= coprodasstol X Y Z: X ⨿ (Y ⨿ Z) → X ⨿ Y ⨿ Z
egf: ∏ xyz : X ⨿ Y ⨿ Z, g (f xyz) = xyz
isweq f
  assert (efg : ∏ xyz, (f (g xyz)) = xyz).
X, Y, Z: UU
f:= coprodasstor X Y Z: X ⨿ Y ⨿ Z → X ⨿ (Y ⨿ Z)
g:= coprodasstol X Y Z: X ⨿ (Y ⨿ Z) → X ⨿ Y ⨿ Z
egf: ∏ xyz : X ⨿ Y ⨿ Z, g (f xyz) = xyz
∏ xyz : X ⨿ (Y ⨿ Z), f (g xyz) = xyz
X, Y, Z: UU
f:= coprodasstor X Y Z: X ⨿ Y ⨿ Z → X ⨿ (Y ⨿ Z)
g:= coprodasstol X Y Z: X ⨿ (Y ⨿ Z) → X ⨿ Y ⨿ Z
egf: ∏ xyz : X ⨿ Y ⨿ Z, g (f xyz) = xyz
efg: ∏ xyz : X ⨿ (Y ⨿ Z), f (g xyz) = xyz
isweq f intro xyz.
X, Y, Z: UU
f:= coprodasstor X Y Z: X ⨿ Y ⨿ Z → X ⨿ (Y ⨿ Z)
g:= coprodasstol X Y Z: X ⨿ (Y ⨿ Z) → X ⨿ Y ⨿ Z
egf: ∏ xyz : X ⨿ Y ⨿ Z, g (f xyz) = xyz
xyz: X ⨿ (Y ⨿ Z)
f (g xyz) = xyz
X, Y, Z: UU
f:= coprodasstor X Y Z: X ⨿ Y ⨿ Z → X ⨿ (Y ⨿ Z)
g:= coprodasstol X Y Z: X ⨿ (Y ⨿ Z) → X ⨿ Y ⨿ Z
egf: ∏ xyz : X ⨿ Y ⨿ Z, g (f xyz) = xyz
efg: ∏ xyz : X ⨿ (Y ⨿ Z), f (g xyz) = xyz
isweq f
  induction xyz as [ x | c ].
X, Y, Z: UU
f:= coprodasstor X Y Z: X ⨿ Y ⨿ Z → X ⨿ (Y ⨿ Z)
g:= coprodasstol X Y Z: X ⨿ (Y ⨿ Z) → X ⨿ Y ⨿ Z
egf: ∏ xyz : X ⨿ Y ⨿ Z, g (f xyz) = xyz
x: X
f (g (inl x)) = inl x
X, Y, Z: UU
f:= coprodasstor X Y Z: X ⨿ Y ⨿ Z → X ⨿ (Y ⨿ Z)
g:= coprodasstol X Y Z: X ⨿ (Y ⨿ Z) → X ⨿ Y ⨿ Z
egf: ∏ xyz : X ⨿ Y ⨿ Z, g (f xyz) = xyz
c: Y ⨿ Z
f (g (inr c)) = inr c
X, Y, Z: UU
f:= coprodasstor X Y Z: X ⨿ Y ⨿ Z → X ⨿ (Y ⨿ Z)
g:= coprodasstol X Y Z: X ⨿ (Y ⨿ Z) → X ⨿ Y ⨿ Z
egf: ∏ xyz : X ⨿ Y ⨿ Z, g (f xyz) = xyz
efg: ∏ xyz : X ⨿ (Y ⨿ Z), f (g xyz) = xyz
isweq f  apply idpath.
X, Y, Z: UU
f:= coprodasstor X Y Z: X ⨿ Y ⨿ Z → X ⨿ (Y ⨿ Z)
g:= coprodasstol X Y Z: X ⨿ (Y ⨿ Z) → X ⨿ Y ⨿ Z
egf: ∏ xyz : X ⨿ Y ⨿ Z, g (f xyz) = xyz
c: Y ⨿ Z
f (g (inr c)) = inr c
X, Y, Z: UU
f:= coprodasstor X Y Z: X ⨿ Y ⨿ Z → X ⨿ (Y ⨿ Z)
g:= coprodasstol X Y Z: X ⨿ (Y ⨿ Z) → X ⨿ Y ⨿ Z
egf: ∏ xyz : X ⨿ Y ⨿ Z, g (f xyz) = xyz
efg: ∏ xyz : X ⨿ (Y ⨿ Z), f (g xyz) = xyz
isweq f induction c.
X, Y, Z: UU
f:= coprodasstor X Y Z: X ⨿ Y ⨿ Z → X ⨿ (Y ⨿ Z)
g:= coprodasstol X Y Z: X ⨿ (Y ⨿ Z) → X ⨿ Y ⨿ Z
egf: ∏ xyz : X ⨿ Y ⨿ Z, g (f xyz) = xyz
a: Y
f (g (inr (inl a))) = inr (inl a)
X, Y, Z: UU
f:= coprodasstor X Y Z: X ⨿ Y ⨿ Z → X ⨿ (Y ⨿ Z)
g:= coprodasstol X Y Z: X ⨿ (Y ⨿ Z) → X ⨿ Y ⨿ Z
egf: ∏ xyz : X ⨿ Y ⨿ Z, g (f xyz) = xyz
b: Z
f (g (inr (inr b))) = inr (inr b)
X, Y, Z: UU
f:= coprodasstor X Y Z: X ⨿ Y ⨿ Z → X ⨿ (Y ⨿ Z)
g:= coprodasstol X Y Z: X ⨿ (Y ⨿ Z) → X ⨿ Y ⨿ Z
egf: ∏ xyz : X ⨿ Y ⨿ Z, g (f xyz) = xyz
efg: ∏ xyz : X ⨿ (Y ⨿ Z), f (g xyz) = xyz
isweq f
  apply idpath.
X, Y, Z: UU
f:= coprodasstor X Y Z: X ⨿ Y ⨿ Z → X ⨿ (Y ⨿ Z)
g:= coprodasstol X Y Z: X ⨿ (Y ⨿ Z) → X ⨿ Y ⨿ Z
egf: ∏ xyz : X ⨿ Y ⨿ Z, g (f xyz) = xyz
b: Z
f (g (inr (inr b))) = inr (inr b)
X, Y, Z: UU
f:= coprodasstor X Y Z: X ⨿ Y ⨿ Z → X ⨿ (Y ⨿ Z)
g:= coprodasstol X Y Z: X ⨿ (Y ⨿ Z) → X ⨿ Y ⨿ Z
egf: ∏ xyz : X ⨿ Y ⨿ Z, g (f xyz) = xyz
efg: ∏ xyz : X ⨿ (Y ⨿ Z), f (g xyz) = xyz
isweq f apply idpath.
X, Y, Z: UU
f:= coprodasstor X Y Z: X ⨿ Y ⨿ Z → X ⨿ (Y ⨿ Z)
g:= coprodasstol X Y Z: X ⨿ (Y ⨿ Z) → X ⨿ Y ⨿ Z
egf: ∏ xyz : X ⨿ Y ⨿ Z, g (f xyz) = xyz
efg: ∏ xyz : X ⨿ (Y ⨿ Z), f (g xyz) = xyz
isweq f
  apply (isweq_iso f g egf efg).
Defined.

Definition weqcoprodasstor (X Y Z : UU) := make_weq _ (isweqcoprodasstor X Y Z).

Corollary isweqcoprodasstol (X Y Z : UU) : isweq (coprodasstol X Y Z).
X, Y, Z: UU
isweq (coprodasstol X Y Z)
Proof.
X, Y, Z: UU
isweq (coprodasstol X Y Z)
  intros.
X, Y, Z: UU
isweq (coprodasstol X Y Z) apply (isweqinvmap (weqcoprodasstor X Y Z)).
Defined.

Definition weqcoprodasstol (X Y Z : UU) := make_weq _ (isweqcoprodasstol X Y Z).

Definition coprodcomm (X Y : UU) : X ⨿ Y -> Y ⨿ X
  := λ xy : _, match xy with ii1 x => ii2 x | ii2 y => ii1 y end.

Theorem isweqcoprodcomm (X Y : UU) : isweq (coprodcomm X Y).
X, Y: UU
isweq (coprodcomm X Y)
Proof.
X, Y: UU
isweq (coprodcomm X Y)
  intros.
X, Y: UU
isweq (coprodcomm X Y)
  set (f := coprodcomm X Y).
X, Y: UU
f:= coprodcomm X Y: X ⨿ Y → Y ⨿ X
isweq f set (g := coprodcomm Y X).
X, Y: UU
f:= coprodcomm X Y: X ⨿ Y → Y ⨿ X
g:= coprodcomm Y X: Y ⨿ X → X ⨿ Y
isweq f
  assert (egf : ∏ xy : _, (g (f xy)) = xy).
X, Y: UU
f:= coprodcomm X Y: X ⨿ Y → Y ⨿ X
g:= coprodcomm Y X: Y ⨿ X → X ⨿ Y
∏ xy : X ⨿ Y, g (f xy) = xy
X, Y: UU
f:= coprodcomm X Y: X ⨿ Y → Y ⨿ X
g:= coprodcomm Y X: Y ⨿ X → X ⨿ Y
egf: ∏ xy : X ⨿ Y, g (f xy) = xy
isweq f intro.
X, Y: UU
f:= coprodcomm X Y: X ⨿ Y → Y ⨿ X
g:= coprodcomm Y X: Y ⨿ X → X ⨿ Y
xy: X ⨿ Y
g (f xy) = xy
X, Y: UU
f:= coprodcomm X Y: X ⨿ Y → Y ⨿ X
g:= coprodcomm Y X: Y ⨿ X → X ⨿ Y
egf: ∏ xy : X ⨿ Y, g (f xy) = xy
isweq f
  induction xy.
X, Y: UU
f:= coprodcomm X Y: X ⨿ Y → Y ⨿ X
g:= coprodcomm Y X: Y ⨿ X → X ⨿ Y
a: X
g (f (inl a)) = inl a
X, Y: UU
f:= coprodcomm X Y: X ⨿ Y → Y ⨿ X
g:= coprodcomm Y X: Y ⨿ X → X ⨿ Y
b: Y
g (f (inr b)) = inr b
X, Y: UU
f:= coprodcomm X Y: X ⨿ Y → Y ⨿ X
g:= coprodcomm Y X: Y ⨿ X → X ⨿ Y
egf: ∏ xy : X ⨿ Y, g (f xy) = xy
isweq f apply idpath.
X, Y: UU
f:= coprodcomm X Y: X ⨿ Y → Y ⨿ X
g:= coprodcomm Y X: Y ⨿ X → X ⨿ Y
b: Y
g (f (inr b)) = inr b
X, Y: UU
f:= coprodcomm X Y: X ⨿ Y → Y ⨿ X
g:= coprodcomm Y X: Y ⨿ X → X ⨿ Y
egf: ∏ xy : X ⨿ Y, g (f xy) = xy
isweq f apply idpath.
X, Y: UU
f:= coprodcomm X Y: X ⨿ Y → Y ⨿ X
g:= coprodcomm Y X: Y ⨿ X → X ⨿ Y
egf: ∏ xy : X ⨿ Y, g (f xy) = xy
isweq f
  assert (efg : ∏ yx : _, (f (g yx)) = yx).
X, Y: UU
f:= coprodcomm X Y: X ⨿ Y → Y ⨿ X
g:= coprodcomm Y X: Y ⨿ X → X ⨿ Y
egf: ∏ xy : X ⨿ Y, g (f xy) = xy
∏ yx : Y ⨿ X, f (g yx) = yx
X, Y: UU
f:= coprodcomm X Y: X ⨿ Y → Y ⨿ X
g:= coprodcomm Y X: Y ⨿ X → X ⨿ Y
egf: ∏ xy : X ⨿ Y, g (f xy) = xy
efg: ∏ yx : Y ⨿ X, f (g yx) = yx
isweq f intro.
X, Y: UU
f:= coprodcomm X Y: X ⨿ Y → Y ⨿ X
g:= coprodcomm Y X: Y ⨿ X → X ⨿ Y
egf: ∏ xy : X ⨿ Y, g (f xy) = xy
yx: Y ⨿ X
f (g yx) = yx
X, Y: UU
f:= coprodcomm X Y: X ⨿ Y → Y ⨿ X
g:= coprodcomm Y X: Y ⨿ X → X ⨿ Y
egf: ∏ xy : X ⨿ Y, g (f xy) = xy
efg: ∏ yx : Y ⨿ X, f (g yx) = yx
isweq f
  induction yx.
X, Y: UU
f:= coprodcomm X Y: X ⨿ Y → Y ⨿ X
g:= coprodcomm Y X: Y ⨿ X → X ⨿ Y
egf: ∏ xy : X ⨿ Y, g (f xy) = xy
a: Y
f (g (inl a)) = inl a
X, Y: UU
f:= coprodcomm X Y: X ⨿ Y → Y ⨿ X
g:= coprodcomm Y X: Y ⨿ X → X ⨿ Y
egf: ∏ xy : X ⨿ Y, g (f xy) = xy
b: X
f (g (inr b)) = inr b
X, Y: UU
f:= coprodcomm X Y: X ⨿ Y → Y ⨿ X
g:= coprodcomm Y X: Y ⨿ X → X ⨿ Y
egf: ∏ xy : X ⨿ Y, g (f xy) = xy
efg: ∏ yx : Y ⨿ X, f (g yx) = yx
isweq f apply idpath.
X, Y: UU
f:= coprodcomm X Y: X ⨿ Y → Y ⨿ X
g:= coprodcomm Y X: Y ⨿ X → X ⨿ Y
egf: ∏ xy : X ⨿ Y, g (f xy) = xy
b: X
f (g (inr b)) = inr b
X, Y: UU
f:= coprodcomm X Y: X ⨿ Y → Y ⨿ X
g:= coprodcomm Y X: Y ⨿ X → X ⨿ Y
egf: ∏ xy : X ⨿ Y, g (f xy) = xy
efg: ∏ yx : Y ⨿ X, f (g yx) = yx
isweq f apply idpath.
X, Y: UU
f:= coprodcomm X Y: X ⨿ Y → Y ⨿ X
g:= coprodcomm Y X: Y ⨿ X → X ⨿ Y
egf: ∏ xy : X ⨿ Y, g (f xy) = xy
efg: ∏ yx : Y ⨿ X, f (g yx) = yx
isweq f
  apply (isweq_iso f g egf efg).
Defined.

Definition weqcoprodcomm (X Y : UU) := make_weq _ (isweqcoprodcomm X Y).

(** *** Coproduct with a "negative" type *)

Theorem isweqii1withneg (X : UU) {Y : UU} (nf : Y -> empty) : isweq (@ii1 X Y).
X, Y: UU
nf: Y → ∅
isweq inl
Proof.
X, Y: UU
nf: Y → ∅
isweq inl
  intros.
X, Y: UU
nf: Y → ∅
isweq inl
  set (f := @ii1 X Y).
X, Y: UU
nf: Y → ∅
f:= inl: X → X ⨿ Y
isweq f
  set (g := λ xy : X ⨿ Y, match xy with
                          | ii1 x => x
                          | ii2 y => fromempty (nf y)
                          end).
X, Y: UU
nf: Y → ∅
f:= inl: X → X ⨿ Y
g:= λ xy : X ⨿ Y,
match xy with
| inl x => x
| inr y => fromempty (nf y)
end: X ⨿ Y → X
isweq f
  assert (egf : ∏ x : X, (g (f x)) = x).
X, Y: UU
nf: Y → ∅
f:= inl: X → X ⨿ Y
g:= λ xy : X ⨿ Y,
match xy with
| inl x => x
| inr y => fromempty (nf y)
end: X ⨿ Y → X
∏ x : X, g (f x) = x
X, Y: UU
nf: Y → ∅
f:= inl: X → X ⨿ Y
g:= λ xy : X ⨿ Y,
match xy with
| inl x => x
| inr y => fromempty (nf y)
end: X ⨿ Y → X
egf: ∏ x : X, g (f x) = x
isweq f intro.
X, Y: UU
nf: Y → ∅
f:= inl: X → X ⨿ Y
g:= λ xy : X ⨿ Y,
match xy with
| inl x => x
| inr y => fromempty (nf y)
end: X ⨿ Y → X
x: X
g (f x) = x
X, Y: UU
nf: Y → ∅
f:= inl: X → X ⨿ Y
g:= λ xy : X ⨿ Y,
match xy with
| inl x => x
| inr y => fromempty (nf y)
end: X ⨿ Y → X
egf: ∏ x : X, g (f x) = x
isweq f apply idpath.
X, Y: UU
nf: Y → ∅
f:= inl: X → X ⨿ Y
g:= λ xy : X ⨿ Y,
match xy with
| inl x => x
| inr y => fromempty (nf y)
end: X ⨿ Y → X
egf: ∏ x : X, g (f x) = x
isweq f
  assert (efg : ∏ xy : X ⨿ Y, (f (g xy)) = xy).
X, Y: UU
nf: Y → ∅
f:= inl: X → X ⨿ Y
g:= λ xy : X ⨿ Y,
match xy with
| inl x => x
| inr y => fromempty (nf y)
end: X ⨿ Y → X
egf: ∏ x : X, g (f x) = x
∏ xy : X ⨿ Y, f (g xy) = xy
X, Y: UU
nf: Y → ∅
f:= inl: X → X ⨿ Y
g:= λ xy : X ⨿ Y,
match xy with
| inl x => x
| inr y => fromempty (nf y)
end: X ⨿ Y → X
egf: ∏ x : X, g (f x) = x
efg: ∏ xy : X ⨿ Y, f (g xy) = xy
isweq f intro.
X, Y: UU
nf: Y → ∅
f:= inl: X → X ⨿ Y
g:= λ xy : X ⨿ Y,
match xy with
| inl x => x
| inr y => fromempty (nf y)
end: X ⨿ Y → X
egf: ∏ x : X, g (f x) = x
xy: X ⨿ Y
f (g xy) = xy
X, Y: UU
nf: Y → ∅
f:= inl: X → X ⨿ Y
g:= λ xy : X ⨿ Y,
match xy with
| inl x => x
| inr y => fromempty (nf y)
end: X ⨿ Y → X
egf: ∏ x : X, g (f x) = x
efg: ∏ xy : X ⨿ Y, f (g xy) = xy
isweq f
  induction xy as [ x | y ].
X, Y: UU
nf: Y → ∅
f:= inl: X → X ⨿ Y
g:= λ xy : X ⨿ Y,
match xy with
| inl x => x
| inr y => fromempty (nf y)
end: X ⨿ Y → X
egf: ∏ x : X, g (f x) = x
x: X
f (g (inl x)) = inl x
X, Y: UU
nf: Y → ∅
f:= inl: X → X ⨿ Y
g:= λ xy : X ⨿ Y,
match xy with
| inl x => x
| inr y => fromempty (nf y)
end: X ⨿ Y → X
egf: ∏ x : X, g (f x) = x
y: Y
f (g (inr y)) = inr y
X, Y: UU
nf: Y → ∅
f:= inl: X → X ⨿ Y
g:= λ xy : X ⨿ Y,
match xy with
| inl x => x
| inr y => fromempty (nf y)
end: X ⨿ Y → X
egf: ∏ x : X, g (f x) = x
efg: ∏ xy : X ⨿ Y, f (g xy) = xy
isweq f apply idpath.
X, Y: UU
nf: Y → ∅
f:= inl: X → X ⨿ Y
g:= λ xy : X ⨿ Y,
match xy with
| inl x => x
| inr y => fromempty (nf y)
end: X ⨿ Y → X
egf: ∏ x : X, g (f x) = x
y: Y
f (g (inr y)) = inr y
X, Y: UU
nf: Y → ∅
f:= inl: X → X ⨿ Y
g:= λ xy : X ⨿ Y,
match xy with
| inl x => x
| inr y => fromempty (nf y)
end: X ⨿ Y → X
egf: ∏ x : X, g (f x) = x
efg: ∏ xy : X ⨿ Y, f (g xy) = xy
isweq f apply (fromempty (nf y)).
X, Y: UU
nf: Y → ∅
f:= inl: X → X ⨿ Y
g:= λ xy : X ⨿ Y,
match xy with
| inl x => x
| inr y => fromempty (nf y)
end: X ⨿ Y → X
egf: ∏ x : X, g (f x) = x
efg: ∏ xy : X ⨿ Y, f (g xy) = xy
isweq f
  apply (isweq_iso f g egf efg).
Defined.

Definition weqii1withneg (X : UU) {Y : UU} (nf : ¬ Y)
  := make_weq _ (isweqii1withneg X nf).

Theorem isweqii2withneg {X : UU} (Y : UU) (nf : X -> empty) : isweq (@ii2 X Y).
X, Y: UU
nf: X → ∅
isweq inr
Proof.
X, Y: UU
nf: X → ∅
isweq inr
  intros.
X, Y: UU
nf: X → ∅
isweq inr
  set (f:= @ii2 X Y).
X, Y: UU
nf: X → ∅
f:= inr: Y → X ⨿ Y
isweq f
  set (g:= λ xy : X ⨿ Y, match xy with
                         | ii1 x => fromempty (nf x)
                         | ii2 y => y
                         end).
X, Y: UU
nf: X → ∅
f:= inr: Y → X ⨿ Y
g:= λ xy : X ⨿ Y,
match xy with
| inl x => fromempty (nf x)
| inr y => y
end: X ⨿ Y → Y
isweq f
  assert (egf : ∏ y : Y, (g (f y)) = y).
X, Y: UU
nf: X → ∅
f:= inr: Y → X ⨿ Y
g:= λ xy : X ⨿ Y,
match xy with
| inl x => fromempty (nf x)
| inr y => y
end: X ⨿ Y → Y
∏ y : Y, g (f y) = y
X, Y: UU
nf: X → ∅
f:= inr: Y → X ⨿ Y
g:= λ xy : X ⨿ Y,
match xy with
| inl x => fromempty (nf x)
| inr y => y
end: X ⨿ Y → Y
egf: ∏ y : Y, g (f y) = y
isweq f intro.
X, Y: UU
nf: X → ∅
f:= inr: Y → X ⨿ Y
g:= λ xy : X ⨿ Y,
match xy with
| inl x => fromempty (nf x)
| inr y => y
end: X ⨿ Y → Y
y: Y
g (f y) = y
X, Y: UU
nf: X → ∅
f:= inr: Y → X ⨿ Y
g:= λ xy : X ⨿ Y,
match xy with
| inl x => fromempty (nf x)
| inr y => y
end: X ⨿ Y → Y
egf: ∏ y : Y, g (f y) = y
isweq f apply idpath.
X, Y: UU
nf: X → ∅
f:= inr: Y → X ⨿ Y
g:= λ xy : X ⨿ Y,
match xy with
| inl x => fromempty (nf x)
| inr y => y
end: X ⨿ Y → Y
egf: ∏ y : Y, g (f y) = y
isweq f
  assert (efg : ∏ xy : X ⨿ Y, (f (g xy)) = xy).
X, Y: UU
nf: X → ∅
f:= inr: Y → X ⨿ Y
g:= λ xy : X ⨿ Y,
match xy with
| inl x => fromempty (nf x)
| inr y => y
end: X ⨿ Y → Y
egf: ∏ y : Y, g (f y) = y
∏ xy : X ⨿ Y, f (g xy) = xy
X, Y: UU
nf: X → ∅
f:= inr: Y → X ⨿ Y
g:= λ xy : X ⨿ Y,
match xy with
| inl x => fromempty (nf x)
| inr y => y
end: X ⨿ Y → Y
egf: ∏ y : Y, g (f y) = y
efg: ∏ xy : X ⨿ Y, f (g xy) = xy
isweq f intro.
X, Y: UU
nf: X → ∅
f:= inr: Y → X ⨿ Y
g:= λ xy : X ⨿ Y,
match xy with
| inl x => fromempty (nf x)
| inr y => y
end: X ⨿ Y → Y
egf: ∏ y : Y, g (f y) = y
xy: X ⨿ Y
f (g xy) = xy
X, Y: UU
nf: X → ∅
f:= inr: Y → X ⨿ Y
g:= λ xy : X ⨿ Y,
match xy with
| inl x => fromempty (nf x)
| inr y => y
end: X ⨿ Y → Y
egf: ∏ y : Y, g (f y) = y
efg: ∏ xy : X ⨿ Y, f (g xy) = xy
isweq f
  induction xy as [ x | y ].
X, Y: UU
nf: X → ∅
f:= inr: Y → X ⨿ Y
g:= λ xy : X ⨿ Y,
match xy with
| inl x => fromempty (nf x)
| inr y => y
end: X ⨿ Y → Y
egf: ∏ y : Y, g (f y) = y
x: X
f (g (inl x)) = inl x
X, Y: UU
nf: X → ∅
f:= inr: Y → X ⨿ Y
g:= λ xy : X ⨿ Y,
match xy with
| inl x => fromempty (nf x)
| inr y => y
end: X ⨿ Y → Y
egf: ∏ y : Y, g (f y) = y
y: Y
f (g (inr y)) = inr y
X, Y: UU
nf: X → ∅
f:= inr: Y → X ⨿ Y
g:= λ xy : X ⨿ Y,
match xy with
| inl x => fromempty (nf x)
| inr y => y
end: X ⨿ Y → Y
egf: ∏ y : Y, g (f y) = y
efg: ∏ xy : X ⨿ Y, f (g xy) = xy
isweq f apply (fromempty (nf x)).
X, Y: UU
nf: X → ∅
f:= inr: Y → X ⨿ Y
g:= λ xy : X ⨿ Y,
match xy with
| inl x => fromempty (nf x)
| inr y => y
end: X ⨿ Y → Y
egf: ∏ y : Y, g (f y) = y
y: Y
f (g (inr y)) = inr y
X, Y: UU
nf: X → ∅
f:= inr: Y → X ⨿ Y
g:= λ xy : X ⨿ Y,
match xy with
| inl x => fromempty (nf x)
| inr y => y
end: X ⨿ Y → Y
egf: ∏ y : Y, g (f y) = y
efg: ∏ xy : X ⨿ Y, f (g xy) = xy
isweq f apply idpath.
X, Y: UU
nf: X → ∅
f:= inr: Y → X ⨿ Y
g:= λ xy : X ⨿ Y,
match xy with
| inl x => fromempty (nf x)
| inr y => y
end: X ⨿ Y → Y
egf: ∏ y : Y, g (f y) = y
efg: ∏ xy : X ⨿ Y, f (g xy) = xy
isweq f
  apply (isweq_iso f g egf efg).
Defined.

Definition weqii2withneg {X : UU} (Y : UU) (nf : ¬ X)
  := make_weq _ (isweqii2withneg Y nf).

(** *** Coproduct of two functions *)

Definition coprodf {X Y X' Y' : UU} (f : X -> X') (g : Y-> Y') : X ⨿ Y -> X' ⨿ Y'
  := λ xy: X ⨿ Y,
           match xy with
           | ii1 x => ii1 (f x)
           | ii2 y => ii2 (g y)
           end.

Definition coprodf1 {X Y X' : UU} : (X -> X') -> X ⨿ Y -> X' ⨿ Y.
X, Y, X': UU
(X → X') → X ⨿ Y → X' ⨿ Y
Proof.
X, Y, X': UU
(X → X') → X ⨿ Y → X' ⨿ Y
  intros f.
X, Y, X': UU
f: X → X'
X ⨿ Y → X' ⨿ Y exact (coprodf f (idfun Y)).
Defined.

Definition coprodf2 {X Y Y' : UU} : (Y -> Y') -> X ⨿ Y -> X ⨿ Y'.
X, Y, Y': UU
(Y → Y') → X ⨿ Y → X ⨿ Y'
Proof.
X, Y, Y': UU
(Y → Y') → X ⨿ Y → X ⨿ Y'
  intros g.
X, Y, Y': UU
g: Y → Y'
X ⨿ Y → X ⨿ Y' exact (coprodf (idfun X) g).
Defined.

Definition homotcoprodfcomp {X X' Y Y' Z Z' : UU} (f : X -> Y)
           (f' : X' -> Y') (g : Y -> Z) (g' : Y' -> Z') :
  homot (funcomp (coprodf f f') (coprodf g g'))
        (coprodf (funcomp f g) (funcomp f' g')).
X, X', Y, Y', Z, Z': UU
f: X → Y
f': X' → Y'
g: Y → Z
g': Y' → Z'
coprodf g g' ∘ coprodf f f' ~
coprodf (g ∘ f) (g' ∘ f')
Proof.
X, X', Y, Y', Z, Z': UU
f: X → Y
f': X' → Y'
g: Y → Z
g': Y' → Z'
coprodf g g' ∘ coprodf f f' ~
coprodf (g ∘ f) (g' ∘ f')
  intros.
X, X', Y, Y', Z, Z': UU
f: X → Y
f': X' → Y'
g: Y → Z
g': Y' → Z'
coprodf g g' ∘ coprodf f f' ~
coprodf (g ∘ f) (g' ∘ f') intro xx'.
X, X', Y, Y', Z, Z': UU
f: X → Y
f': X' → Y'
g: Y → Z
g': Y' → Z'
xx': X ⨿ X'
(coprodf g g' ∘ coprodf f f') xx' =
coprodf (g ∘ f) (g' ∘ f') xx' induction xx' as [ x | x' ].
X, X', Y, Y', Z, Z': UU
f: X → Y
f': X' → Y'
g: Y → Z
g': Y' → Z'
x: X
(coprodf g g' ∘ coprodf f f') (inl x) =
coprodf (g ∘ f) (g' ∘ f') (inl x)
X, X', Y, Y', Z, Z': UU
f: X → Y
f': X' → Y'
g: Y → Z
g': Y' → Z'
x': X'
(coprodf g g' ∘ coprodf f f') (inr x') =
coprodf (g ∘ f) (g' ∘ f') (inr x')
  apply idpath.
X, X', Y, Y', Z, Z': UU
f: X → Y
f': X' → Y'
g: Y → Z
g': Y' → Z'
x': X'
(coprodf g g' ∘ coprodf f f') (inr x') =
coprodf (g ∘ f) (g' ∘ f') (inr x') apply idpath.
Defined.


Definition homotcoprodfhomot {X X' Y Y' : UU} (f g : X -> Y)
           (f' g' : X' -> Y') (h : homot f g) (h' : homot f' g') :
  homot (coprodf f f') (coprodf g g')
  := λ xx' : _, match xx' with
                    | ii1 x  => maponpaths (@ii1 _ _) (h x)
                    | ii2 x' => maponpaths (@ii2 _ _) (h' x')
                    end.


Theorem isweqcoprodf {X Y X' Y' : UU} (w : X ≃ X') (w' : Y ≃ Y') :
  isweq (coprodf w w').
X, Y, X', Y': UU
w: X ≃ X'
w': Y ≃ Y'
isweq (coprodf w w')
Proof.
X, Y, X', Y': UU
w: X ≃ X'
w': Y ≃ Y'
isweq (coprodf w w')
  intros.
X, Y, X', Y': UU
w: X ≃ X'
w': Y ≃ Y'
isweq (coprodf w w')
  set (finv := invmap w).
X, Y, X', Y': UU
w: X ≃ X'
w': Y ≃ Y'
finv:= invmap w: X' → X
isweq (coprodf w w') set (ginv := invmap w').
X, Y, X', Y': UU
w: X ≃ X'
w': Y ≃ Y'
finv:= invmap w: X' → X
ginv:= invmap w': Y' → Y
isweq (coprodf w w')
  set (ff := coprodf w w').
X, Y, X', Y': UU
w: X ≃ X'
w': Y ≃ Y'
finv:= invmap w: X' → X
ginv:= invmap w': Y' → Y
ff:= coprodf w w': X ⨿ Y → X' ⨿ Y'
isweq ff set (gg := coprodf finv ginv).
X, Y, X', Y': UU
w: X ≃ X'
w': Y ≃ Y'
finv:= invmap w: X' → X
ginv:= invmap w': Y' → Y
ff:= coprodf w w': X ⨿ Y → X' ⨿ Y'
gg:= coprodf finv ginv: X' ⨿ Y' → X ⨿ Y
isweq ff
  assert (egf : ∏ xy : X ⨿ Y, (gg (ff xy)) = xy).
X, Y, X', Y': UU
w: X ≃ X'
w': Y ≃ Y'
finv:= invmap w: X' → X
ginv:= invmap w': Y' → Y
ff:= coprodf w w': X ⨿ Y → X' ⨿ Y'
gg:= coprodf finv ginv: X' ⨿ Y' → X ⨿ Y
∏ xy : X ⨿ Y, gg (ff xy) = xy
X, Y, X', Y': UU
w: X ≃ X'
w': Y ≃ Y'
finv:= invmap w: X' → X
ginv:= invmap w': Y' → Y
ff:= coprodf w w': X ⨿ Y → X' ⨿ Y'
gg:= coprodf finv ginv: X' ⨿ Y' → X ⨿ Y
egf: ∏ xy : X ⨿ Y, gg (ff xy) = xy
isweq ff
  intro.
X, Y, X', Y': UU
w: X ≃ X'
w': Y ≃ Y'
finv:= invmap w: X' → X
ginv:= invmap w': Y' → Y
ff:= coprodf w w': X ⨿ Y → X' ⨿ Y'
gg:= coprodf finv ginv: X' ⨿ Y' → X ⨿ Y
xy: X ⨿ Y
gg (ff xy) = xy
X, Y, X', Y': UU
w: X ≃ X'
w': Y ≃ Y'
finv:= invmap w: X' → X
ginv:= invmap w': Y' → Y
ff:= coprodf w w': X ⨿ Y → X' ⨿ Y'
gg:= coprodf finv ginv: X' ⨿ Y' → X ⨿ Y
egf: ∏ xy : X ⨿ Y, gg (ff xy) = xy
isweq ff induction xy as [ x | y ].
X, Y, X', Y': UU
w: X ≃ X'
w': Y ≃ Y'
finv:= invmap w: X' → X
ginv:= invmap w': Y' → Y
ff:= coprodf w w': X ⨿ Y → X' ⨿ Y'
gg:= coprodf finv ginv: X' ⨿ Y' → X ⨿ Y
x: X
gg (ff (inl x)) = inl x
X, Y, X', Y': UU
w: X ≃ X'
w': Y ≃ Y'
finv:= invmap w: X' → X
ginv:= invmap w': Y' → Y
ff:= coprodf w w': X ⨿ Y → X' ⨿ Y'
gg:= coprodf finv ginv: X' ⨿ Y' → X ⨿ Y
y: Y
gg (ff (inr y)) = inr y
X, Y, X', Y': UU
w: X ≃ X'
w': Y ≃ Y'
finv:= invmap w: X' → X
ginv:= invmap w': Y' → Y
ff:= coprodf w w': X ⨿ Y → X' ⨿ Y'
gg:= coprodf finv ginv: X' ⨿ Y' → X ⨿ Y
egf: ∏ xy : X ⨿ Y, gg (ff xy) = xy
isweq ff simpl.
X, Y, X', Y': UU
w: X ≃ X'
w': Y ≃ Y'
finv:= invmap w: X' → X
ginv:= invmap w': Y' → Y
ff:= coprodf w w': X ⨿ Y → X' ⨿ Y'
gg:= coprodf finv ginv: X' ⨿ Y' → X ⨿ Y
x: X
inl (finv (w x)) = inl x
X, Y, X', Y': UU
w: X ≃ X'
w': Y ≃ Y'
finv:= invmap w: X' → X
ginv:= invmap w': Y' → Y
ff:= coprodf w w': X ⨿ Y → X' ⨿ Y'
gg:= coprodf finv ginv: X' ⨿ Y' → X ⨿ Y
y: Y
gg (ff (inr y)) = inr y
X, Y, X', Y': UU
w: X ≃ X'
w': Y ≃ Y'
finv:= invmap w: X' → X
ginv:= invmap w': Y' → Y
ff:= coprodf w w': X ⨿ Y → X' ⨿ Y'
gg:= coprodf finv ginv: X' ⨿ Y' → X ⨿ Y
egf: ∏ xy : X ⨿ Y, gg (ff xy) = xy
isweq ff
  apply (maponpaths (@ii1 X Y) (homotinvweqweq w x)).
X, Y, X', Y': UU
w: X ≃ X'
w': Y ≃ Y'
finv:= invmap w: X' → X
ginv:= invmap w': Y' → Y
ff:= coprodf w w': X ⨿ Y → X' ⨿ Y'
gg:= coprodf finv ginv: X' ⨿ Y' → X ⨿ Y
y: Y
gg (ff (inr y)) = inr y
X, Y, X', Y': UU
w: X ≃ X'
w': Y ≃ Y'
finv:= invmap w: X' → X
ginv:= invmap w': Y' → Y
ff:= coprodf w w': X ⨿ Y → X' ⨿ Y'
gg:= coprodf finv ginv: X' ⨿ Y' → X ⨿ Y
egf: ∏ xy : X ⨿ Y, gg (ff xy) = xy
isweq ff
  apply (maponpaths (@ii2 X Y) (homotinvweqweq w' y)).
X, Y, X', Y': UU
w: X ≃ X'
w': Y ≃ Y'
finv:= invmap w: X' → X
ginv:= invmap w': Y' → Y
ff:= coprodf w w': X ⨿ Y → X' ⨿ Y'
gg:= coprodf finv ginv: X' ⨿ Y' → X ⨿ Y
egf: ∏ xy : X ⨿ Y, gg (ff xy) = xy
isweq ff
  assert (efg : ∏ xy' : coprod X' Y', (ff (gg xy')) = xy').
X, Y, X', Y': UU
w: X ≃ X'
w': Y ≃ Y'
finv:= invmap w: X' → X
ginv:= invmap w': Y' → Y
ff:= coprodf w w': X ⨿ Y → X' ⨿ Y'
gg:= coprodf finv ginv: X' ⨿ Y' → X ⨿ Y
egf: ∏ xy : X ⨿ Y, gg (ff xy) = xy
∏ xy' : X' ⨿ Y', ff (gg xy') = xy'
X, Y, X', Y': UU
w: X ≃ X'
w': Y ≃ Y'
finv:= invmap w: X' → X
ginv:= invmap w': Y' → Y
ff:= coprodf w w': X ⨿ Y → X' ⨿ Y'
gg:= coprodf finv ginv: X' ⨿ Y' → X ⨿ Y
egf: ∏ xy : X ⨿ Y, gg (ff xy) = xy
efg: ∏ xy' : X' ⨿ Y', ff (gg xy') = xy'
isweq ff
  intro.
X, Y, X', Y': UU
w: X ≃ X'
w': Y ≃ Y'
finv:= invmap w: X' → X
ginv:= invmap w': Y' → Y
ff:= coprodf w w': X ⨿ Y → X' ⨿ Y'
gg:= coprodf finv ginv: X' ⨿ Y' → X ⨿ Y
egf: ∏ xy : X ⨿ Y, gg (ff xy) = xy
xy': X' ⨿ Y'
ff (gg xy') = xy'
X, Y, X', Y': UU
w: X ≃ X'
w': Y ≃ Y'
finv:= invmap w: X' → X
ginv:= invmap w': Y' → Y
ff:= coprodf w w': X ⨿ Y → X' ⨿ Y'
gg:= coprodf finv ginv: X' ⨿ Y' → X ⨿ Y
egf: ∏ xy : X ⨿ Y, gg (ff xy) = xy
efg: ∏ xy' : X' ⨿ Y', ff (gg xy') = xy'
isweq ff induction xy' as [ x | y ].
X, Y, X', Y': UU
w: X ≃ X'
w': Y ≃ Y'
finv:= invmap w: X' → X
ginv:= invmap w': Y' → Y
ff:= coprodf w w': X ⨿ Y → X' ⨿ Y'
gg:= coprodf finv ginv: X' ⨿ Y' → X ⨿ Y
egf: ∏ xy : X ⨿ Y, gg (ff xy) = xy
x: X'
ff (gg (inl x)) = inl x
X, Y, X', Y': UU
w: X ≃ X'
w': Y ≃ Y'
finv:= invmap w: X' → X
ginv:= invmap w': Y' → Y
ff:= coprodf w w': X ⨿ Y → X' ⨿ Y'
gg:= coprodf finv ginv: X' ⨿ Y' → X ⨿ Y
egf: ∏ xy : X ⨿ Y, gg (ff xy) = xy
y: Y'
ff (gg (inr y)) = inr y
X, Y, X', Y': UU
w: X ≃ X'
w': Y ≃ Y'
finv:= invmap w: X' → X
ginv:= invmap w': Y' → Y
ff:= coprodf w w': X ⨿ Y → X' ⨿ Y'
gg:= coprodf finv ginv: X' ⨿ Y' → X ⨿ Y
egf: ∏ xy : X ⨿ Y, gg (ff xy) = xy
efg: ∏ xy' : X' ⨿ Y', ff (gg xy') = xy'
isweq ff simpl.
X, Y, X', Y': UU
w: X ≃ X'
w': Y ≃ Y'
finv:= invmap w: X' → X
ginv:= invmap w': Y' → Y
ff:= coprodf w w': X ⨿ Y → X' ⨿ Y'
gg:= coprodf finv ginv: X' ⨿ Y' → X ⨿ Y
egf: ∏ xy : X ⨿ Y, gg (ff xy) = xy
x: X'
inl (w (finv x)) = inl x
X, Y, X', Y': UU
w: X ≃ X'
w': Y ≃ Y'
finv:= invmap w: X' → X
ginv:= invmap w': Y' → Y
ff:= coprodf w w': X ⨿ Y → X' ⨿ Y'
gg:= coprodf finv ginv: X' ⨿ Y' → X ⨿ Y
egf: ∏ xy : X ⨿ Y, gg (ff xy) = xy
y: Y'
ff (gg (inr y)) = inr y
X, Y, X', Y': UU
w: X ≃ X'
w': Y ≃ Y'
finv:= invmap w: X' → X
ginv:= invmap w': Y' → Y
ff:= coprodf w w': X ⨿ Y → X' ⨿ Y'
gg:= coprodf finv ginv: X' ⨿ Y' → X ⨿ Y
egf: ∏ xy : X ⨿ Y, gg (ff xy) = xy
efg: ∏ xy' : X' ⨿ Y', ff (gg xy') = xy'
isweq ff
  apply (maponpaths (@ii1 X' Y') (homotweqinvweq w x)).
X, Y, X', Y': UU
w: X ≃ X'
w': Y ≃ Y'
finv:= invmap w: X' → X
ginv:= invmap w': Y' → Y
ff:= coprodf w w': X ⨿ Y → X' ⨿ Y'
gg:= coprodf finv ginv: X' ⨿ Y' → X ⨿ Y
egf: ∏ xy : X ⨿ Y, gg (ff xy) = xy
y: Y'
ff (gg (inr y)) = inr y
X, Y, X', Y': UU
w: X ≃ X'
w': Y ≃ Y'
finv:= invmap w: X' → X
ginv:= invmap w': Y' → Y
ff:= coprodf w w': X ⨿ Y → X' ⨿ Y'
gg:= coprodf finv ginv: X' ⨿ Y' → X ⨿ Y
egf: ∏ xy : X ⨿ Y, gg (ff xy) = xy
efg: ∏ xy' : X' ⨿ Y', ff (gg xy') = xy'
isweq ff
  apply (maponpaths (@ii2 X' Y') (homotweqinvweq w' y)).
X, Y, X', Y': UU
w: X ≃ X'
w': Y ≃ Y'
finv:= invmap w: X' → X
ginv:= invmap w': Y' → Y
ff:= coprodf w w': X ⨿ Y → X' ⨿ Y'
gg:= coprodf finv ginv: X' ⨿ Y' → X ⨿ Y
egf: ∏ xy : X ⨿ Y, gg (ff xy) = xy
efg: ∏ xy' : X' ⨿ Y', ff (gg xy') = xy'
isweq ff
  apply (isweq_iso ff gg egf efg).
Defined.

Definition weqcoprodf {X Y X' Y' : UU} : X ≃ X' -> Y ≃ Y' -> X ⨿ Y ≃ X' ⨿ Y'.
X, Y, X', Y': UU
X ≃ X' → Y ≃ Y' → X ⨿ Y ≃ X' ⨿ Y'
Proof.
X, Y, X', Y': UU
X ≃ X' → Y ≃ Y' → X ⨿ Y ≃ X' ⨿ Y'
  intros w1 w2.
X, Y, X', Y': UU
w1: X ≃ X'
w2: Y ≃ Y'
X ⨿ Y ≃ X' ⨿ Y' exact (make_weq _ (isweqcoprodf w1 w2)).
Defined.

Definition weqcoprodf1 {X Y X' : UU} : X ≃ X' -> X ⨿ Y ≃ X' ⨿ Y.
X, Y, X': UU
X ≃ X' → X ⨿ Y ≃ X' ⨿ Y
Proof.
X, Y, X': UU
X ≃ X' → X ⨿ Y ≃ X' ⨿ Y
  intros w.
X, Y, X': UU
w: X ≃ X'
X ⨿ Y ≃ X' ⨿ Y exact (weqcoprodf w (idweq Y)).
Defined.

Definition weqcoprodf2 {X Y Y' : UU} : Y ≃ Y' -> X ⨿ Y ≃ X ⨿ Y'.
X, Y, Y': UU
Y ≃ Y' → X ⨿ Y ≃ X ⨿ Y'
Proof.
X, Y, Y': UU
Y ≃ Y' → X ⨿ Y ≃ X ⨿ Y'
  intros w.
X, Y, Y': UU
w: Y ≃ Y'
X ⨿ Y ≃ X ⨿ Y' exact (weqcoprodf (idweq X) w).
Defined.

(** *** The [ equality_cases ] construction and four applications to [ ii1 ] and [ ii2 ] *)

(* Added by D. Grayson, Nov. 2015 *)

Definition equality_cases {P Q : UU} (x x' : P ⨿ Q) : UU.
P, Q: UU
x, x': P ⨿ Q
UU
Proof.
P, Q: UU
x, x': P ⨿ Q
UU
                           (* "codes" *)
  intros.
P, Q: UU
x, x': P ⨿ Q
UU induction x as [p|q].
P, Q: UU
p: P
x': P ⨿ Q
UU
P, Q: UU
q: Q
x': P ⨿ Q
UU
  -
P, Q: UU
p: P
x': P ⨿ Q
UU induction x' as [p'|q'].
P, Q: UU
p, p': P
UU
P, Q: UU
p: P
q': Q
UU
    +
P, Q: UU
p, p': P
UU exact (p = p').
    +
P, Q: UU
p: P
q': Q
UU exact empty.
  -
P, Q: UU
q: Q
x': P ⨿ Q
UU induction x' as [p'|q'].
P, Q: UU
q: Q
p': P
UU
P, Q: UU
q, q': Q
UU
    +
P, Q: UU
q: Q
p': P
UU exact empty.
    +
P, Q: UU
q, q': Q
UU exact (q = q').
Defined.

Definition equality_by_case {P Q : UU} {x x' : P ⨿ Q} :
  x = x'-> equality_cases x x'.
P, Q: UU
x, x': P ⨿ Q
x = x' → equality_cases x x'
Proof.
P, Q: UU
x, x': P ⨿ Q
x = x' → equality_cases x x'
  intros e.
P, Q: UU
x, x': P ⨿ Q
e: x = x'
equality_cases x x' induction x as [p|q].
P, Q: UU
p: P
x': P ⨿ Q
e: inl p = x'
equality_cases (inl p) x'
P, Q: UU
q: Q
x': P ⨿ Q
e: inr q = x'
equality_cases (inr q) x'
  -
P, Q: UU
p: P
x': P ⨿ Q
e: inl p = x'
equality_cases (inl p) x' induction x' as [p'|q'].
P, Q: UU
p, p': P
e: inl p = inl p'
equality_cases (inl p) (inl p')
P, Q: UU
p: P
q': Q
e: inl p = inr q'
equality_cases (inl p) (inr q')
    +
P, Q: UU
p, p': P
e: inl p = inl p'
equality_cases (inl p) (inl p') simpl.
P, Q: UU
p, p': P
e: inl p = inl p'
p = p'
      exact (maponpaths (@coprod_rect P Q (λ _, P) (λ p, p) (λ _, p)) e).
    +
P, Q: UU
p: P
q': Q
e: inl p = inr q'
equality_cases (inl p) (inr q') simpl.
P, Q: UU
p: P
q': Q
e: inl p = inr q'
∅
      exact (transportf (@coprod_rect P Q (λ _, UU) (λ _, unit) (λ _, empty))
                        e tt).
  -
P, Q: UU
q: Q
x': P ⨿ Q
e: inr q = x'
equality_cases (inr q) x' induction x' as [p'|q'].
P, Q: UU
q: Q
p': P
e: inr q = inl p'
equality_cases (inr q) (inl p')
P, Q: UU
q, q': Q
e: inr q = inr q'
equality_cases (inr q) (inr q')
    +
P, Q: UU
q: Q
p': P
e: inr q = inl p'
equality_cases (inr q) (inl p') simpl.
P, Q: UU
q: Q
p': P
e: inr q = inl p'
∅
      exact (transportb (@coprod_rect P Q (λ _, UU) (λ _, unit) (λ _, empty))
                        e tt).
    +
P, Q: UU
q, q': Q
e: inr q = inr q'
equality_cases (inr q) (inr q') simpl.
P, Q: UU
q, q': Q
e: inr q = inr q'
q = q'
      exact (maponpaths (@coprod_rect P Q (λ _,Q) (λ _, q) (λ q, q)) e).
Defined.

Definition inv_equality_by_case {P Q : UU} {x x' : P ⨿ Q} :
  equality_cases x x' -> x = x'.
P, Q: UU
x, x': P ⨿ Q
equality_cases x x' → x = x'
Proof.
P, Q: UU
x, x': P ⨿ Q
equality_cases x x' → x = x'
  intros e.
P, Q: UU
x, x': P ⨿ Q
e: equality_cases x x'
x = x'
  induction x as [p|q].
P, Q: UU
p: P
x': P ⨿ Q
e: equality_cases (inl p) x'
inl p = x'
P, Q: UU
q: Q
x': P ⨿ Q
e: equality_cases (inr q) x'
inr q = x'
  -
P, Q: UU
p: P
x': P ⨿ Q
e: equality_cases (inl p) x'
inl p = x' induction x' as [p'|q'].
P, Q: UU
p, p': P
e: equality_cases (inl p) (inl p')
inl p = inl p'
P, Q: UU
p: P
q': Q
e: equality_cases (inl p) (inr q')
inl p = inr q'
    +
P, Q: UU
p, p': P
e: equality_cases (inl p) (inl p')
inl p = inl p' exact (maponpaths (@ii1 P Q) e).
    +
P, Q: UU
p: P
q': Q
e: equality_cases (inl p) (inr q')
inl p = inr q' induction e.
  -
P, Q: UU
q: Q
x': P ⨿ Q
e: equality_cases (inr q) x'
inr q = x' induction x' as [p'|q'].
P, Q: UU
q: Q
p': P
e: equality_cases (inr q) (inl p')
inr q = inl p'
P, Q: UU
q, q': Q
e: equality_cases (inr q) (inr q')
inr q = inr q'
    +
P, Q: UU
q: Q
p': P
e: equality_cases (inr q) (inl p')
inr q = inl p' induction e.
    +
P, Q: UU
q, q': Q
e: equality_cases (inr q) (inr q')
inr q = inr q' exact (maponpaths (@ii2 P Q) e).
Defined.

(* the same proof proves 4 lemmas: *)

Lemma ii1_injectivity {P Q : UU} (p p' : P) :
  ii1 (B := Q) p = ii1 (B := Q) p' -> p = p'.
P, Q: UU
p, p': P
inl p = inl p' → p = p'
Proof.
P, Q: UU
p, p': P
inl p = inl p' → p = p'
  exact equality_by_case.
Defined.

Lemma ii2_injectivity {P Q : UU} (q q' : Q) :
  ii2 (A := P) q = ii2 (A := P) q' -> q = q'.
P, Q: UU
q, q': Q
inr q = inr q' → q = q'
Proof.
P, Q: UU
q, q': Q
inr q = inr q' → q = q'
  exact equality_by_case.
Defined.

Lemma negpathsii1ii2 {X Y : UU} (x : X) (y : Y) : ii1 x != ii2 y.
X, Y: UU
x: X
y: Y
inl x != inr y
Proof.
X, Y: UU
x: X
y: Y
inl x != inr y
  exact equality_by_case.
Defined.

Lemma negpathsii2ii1 {X Y : UU} (x : X) (y : Y) : ii2 y != ii1 x.
X, Y: UU
x: X
y: Y
inr y != inl x
Proof.
X, Y: UU
x: X
y: Y
inr y != inl x
  exact equality_by_case.
Defined.


(** *** Bool as coproduct *)

Definition boolascoprod: unit ⨿ unit ≃ bool.
unit ⨿ unit ≃ bool
Proof.
unit ⨿ unit ≃ bool
  set (f := λ xx : coprod unit unit,
                   match xx with ii1 t => true | ii2 t => false end).
f:= λ xx : unit ⨿ unit,
match xx with
| inl _ => true
| inr _ => false
end: unit ⨿ unit → bool
unit ⨿ unit ≃ bool
  split with f.
f:= λ xx : unit ⨿ unit,
match xx with
| inl _ => true
| inr _ => false
end: unit ⨿ unit → bool
isweq f
  set (g := λ t:bool, match t with true => ii1 tt | false => ii2 tt end).
f:= λ xx : unit ⨿ unit,
match xx with
| inl _ => true
| inr _ => false
end: unit ⨿ unit → bool
g:= λ t : bool,
match t with
| true => inl tt
| false => inr tt
end: bool → unit ⨿ unit
isweq f

  assert (egf : ∏ xx : _, g (f xx) = xx).
f:= λ xx : unit ⨿ unit,
match xx with
| inl _ => true
| inr _ => false
end: unit ⨿ unit → bool
g:= λ t : bool,
match t with
| true => inl tt
| false => inr tt
end: bool → unit ⨿ unit
∏ xx : unit ⨿ unit, g (f xx) = xx
f:= λ xx : unit ⨿ unit,
match xx with
| inl _ => true
| inr _ => false
end: unit ⨿ unit → bool
g:= λ t : bool,
match t with
| true => inl tt
| false => inr tt
end: bool → unit ⨿ unit
egf: ∏ xx : unit ⨿ unit, g (f xx) = xx
isweq f
  intro xx.
f:= λ xx : unit ⨿ unit,
match xx with
| inl _ => true
| inr _ => false
end: unit ⨿ unit → bool
g:= λ t : bool,
match t with
| true => inl tt
| false => inr tt
end: bool → unit ⨿ unit
xx: unit ⨿ unit
g (f xx) = xx
f:= λ xx : unit ⨿ unit,
match xx with
| inl _ => true
| inr _ => false
end: unit ⨿ unit → bool
g:= λ t : bool,
match t with
| true => inl tt
| false => inr tt
end: bool → unit ⨿ unit
egf: ∏ xx : unit ⨿ unit, g (f xx) = xx
isweq f induction xx as [ u | u ].
f:= λ xx : unit ⨿ unit,
match xx with
| inl _ => true
| inr _ => false
end: unit ⨿ unit → bool
g:= λ t : bool,
match t with
| true => inl tt
| false => inr tt
end: bool → unit ⨿ unit
u: unit
g (f (inl u)) = inl u
f:= λ xx : unit ⨿ unit,
match xx with
| inl _ => true
| inr _ => false
end: unit ⨿ unit → bool
g:= λ t : bool,
match t with
| true => inl tt
| false => inr tt
end: bool → unit ⨿ unit
u: unit
g (f (inr u)) = inr u
f:= λ xx : unit ⨿ unit,
match xx with
| inl _ => true
| inr _ => false
end: unit ⨿ unit → bool
g:= λ t : bool,
match t with
| true => inl tt
| false => inr tt
end: bool → unit ⨿ unit
egf: ∏ xx : unit ⨿ unit, g (f xx) = xx
isweq f induction u.
f:= λ xx : unit ⨿ unit,
match xx with
| inl _ => true
| inr _ => false
end: unit ⨿ unit → bool
g:= λ t : bool,
match t with
| true => inl tt
| false => inr tt
end: bool → unit ⨿ unit
g (f (inl tt)) = inl tt
f:= λ xx : unit ⨿ unit,
match xx with
| inl _ => true
| inr _ => false
end: unit ⨿ unit → bool
g:= λ t : bool,
match t with
| true => inl tt
| false => inr tt
end: bool → unit ⨿ unit
u: unit
g (f (inr u)) = inr u
f:= λ xx : unit ⨿ unit,
match xx with
| inl _ => true
| inr _ => false
end: unit ⨿ unit → bool
g:= λ t : bool,
match t with
| true => inl tt
| false => inr tt
end: bool → unit ⨿ unit
egf: ∏ xx : unit ⨿ unit, g (f xx) = xx
isweq f apply idpath.
f:= λ xx : unit ⨿ unit,
match xx with
| inl _ => true
| inr _ => false
end: unit ⨿ unit → bool
g:= λ t : bool,
match t with
| true => inl tt
| false => inr tt
end: bool → unit ⨿ unit
u: unit
g (f (inr u)) = inr u
f:= λ xx : unit ⨿ unit,
match xx with
| inl _ => true
| inr _ => false
end: unit ⨿ unit → bool
g:= λ t : bool,
match t with
| true => inl tt
| false => inr tt
end: bool → unit ⨿ unit
egf: ∏ xx : unit ⨿ unit, g (f xx) = xx
isweq f
  induction u.
f:= λ xx : unit ⨿ unit,
match xx with
| inl _ => true
| inr _ => false
end: unit ⨿ unit → bool
g:= λ t : bool,
match t with
| true => inl tt
| false => inr tt
end: bool → unit ⨿ unit
g (f (inr tt)) = inr tt
f:= λ xx : unit ⨿ unit,
match xx with
| inl _ => true
| inr _ => false
end: unit ⨿ unit → bool
g:= λ t : bool,
match t with
| true => inl tt
| false => inr tt
end: bool → unit ⨿ unit
egf: ∏ xx : unit ⨿ unit, g (f xx) = xx
isweq f apply idpath.
f:= λ xx : unit ⨿ unit,
match xx with
| inl _ => true
| inr _ => false
end: unit ⨿ unit → bool
g:= λ t : bool,
match t with
| true => inl tt
| false => inr tt
end: bool → unit ⨿ unit
egf: ∏ xx : unit ⨿ unit, g (f xx) = xx
isweq f

  assert (efg : ∏ t : _, f (g t) = t).
f:= λ xx : unit ⨿ unit,
match xx with
| inl _ => true
| inr _ => false
end: unit ⨿ unit → bool
g:= λ t : bool,
match t with
| true => inl tt
| false => inr tt
end: bool → unit ⨿ unit
egf: ∏ xx : unit ⨿ unit, g (f xx) = xx
∏ t : bool, f (g t) = t
f:= λ xx : unit ⨿ unit,
match xx with
| inl _ => true
| inr _ => false
end: unit ⨿ unit → bool
g:= λ t : bool,
match t with
| true => inl tt
| false => inr tt
end: bool → unit ⨿ unit
egf: ∏ xx : unit ⨿ unit, g (f xx) = xx
efg: ∏ t : bool, f (g t) = t
isweq f induction t.
f:= λ xx : unit ⨿ unit,
match xx with
| inl _ => true
| inr _ => false
end: unit ⨿ unit → bool
g:= λ t : bool,
match t with
| true => inl tt
| false => inr tt
end: bool → unit ⨿ unit
egf: ∏ xx : unit ⨿ unit, g (f xx) = xx
f (g true) = true
f:= λ xx : unit ⨿ unit,
match xx with
| inl _ => true
| inr _ => false
end: unit ⨿ unit → bool
g:= λ t : bool,
match t with
| true => inl tt
| false => inr tt
end: bool → unit ⨿ unit
egf: ∏ xx : unit ⨿ unit, g (f xx) = xx
f (g false) = false
f:= λ xx : unit ⨿ unit,
match xx with
| inl _ => true
| inr _ => false
end: unit ⨿ unit → bool
g:= λ t : bool,
match t with
| true => inl tt
| false => inr tt
end: bool → unit ⨿ unit
egf: ∏ xx : unit ⨿ unit, g (f xx) = xx
efg: ∏ t : bool, f (g t) = t
isweq f apply idpath.
f:= λ xx : unit ⨿ unit,
match xx with
| inl _ => true
| inr _ => false
end: unit ⨿ unit → bool
g:= λ t : bool,
match t with
| true => inl tt
| false => inr tt
end: bool → unit ⨿ unit
egf: ∏ xx : unit ⨿ unit, g (f xx) = xx
f (g false) = false
f:= λ xx : unit ⨿ unit,
match xx with
| inl _ => true
| inr _ => false
end: unit ⨿ unit → bool
g:= λ t : bool,
match t with
| true => inl tt
| false => inr tt
end: bool → unit ⨿ unit
egf: ∏ xx : unit ⨿ unit, g (f xx) = xx
efg: ∏ t : bool, f (g t) = t
isweq f
  apply idpath.
f:= λ xx : unit ⨿ unit,
match xx with
| inl _ => true
| inr _ => false
end: unit ⨿ unit → bool
g:= λ t : bool,
match t with
| true => inl tt
| false => inr tt
end: bool → unit ⨿ unit
egf: ∏ xx : unit ⨿ unit, g (f xx) = xx
efg: ∏ t : bool, f (g t) = t
isweq f

  apply (isweq_iso f g egf efg).
Defined.


(** *** Pairwise coproducts as dependent sums of families over [ bool ] *)

Definition coprodtobool {X Y : UU} (xy : X ⨿ Y) : bool
  := match xy with
     | ii1 x => true
     | ii2 y => false
     end.

Definition boolsumfun (X Y : UU) : bool -> UU
  := λ t : _, match t with
                  | true => X
                  | false => Y
                  end.

Definition coprodtoboolsum (X Y : UU) : X ⨿ Y -> total2 (boolsumfun X Y)
  := λ xy : _, match xy with
                   | ii1 x => tpair (boolsumfun X Y) true x
                   | ii2 y => tpair (boolsumfun X Y) false y
                   end.

Definition boolsumtocoprod (X Y : UU): (total2 (boolsumfun X Y)) -> X ⨿ Y
  := λ xy, match xy with
           | tpair _ true x => ii1 x
           | tpair _ false y => ii2 y
           end.

Theorem isweqcoprodtoboolsum (X Y : UU) : isweq (coprodtoboolsum X Y).
X, Y: UU
isweq (coprodtoboolsum X Y)
Proof.
X, Y: UU
isweq (coprodtoboolsum X Y)
  intros.
X, Y: UU
isweq (coprodtoboolsum X Y)
  set (f := coprodtoboolsum X Y).
X, Y: UU
f:= coprodtoboolsum X Y: X ⨿ Y → ∑ y, boolsumfun X Y y
isweq f set (g := boolsumtocoprod X Y).
X, Y: UU
f:= coprodtoboolsum X Y: X ⨿ Y → ∑ y, boolsumfun X Y y
g:= boolsumtocoprod X Y: (∑ y, boolsumfun X Y y) → X ⨿ Y
isweq f
  assert (egf : ∏ xy : X ⨿ Y , (g (f xy)) = xy).
X, Y: UU
f:= coprodtoboolsum X Y: X ⨿ Y → ∑ y, boolsumfun X Y y
g:= boolsumtocoprod X Y: (∑ y, boolsumfun X Y y) → X ⨿ Y
∏ xy : X ⨿ Y, g (f xy) = xy
X, Y: UU
f:= coprodtoboolsum X Y: X ⨿ Y → ∑ y, boolsumfun X Y y
g:= boolsumtocoprod X Y: (∑ y, boolsumfun X Y y) → X ⨿ Y
egf: ∏ xy : X ⨿ Y, g (f xy) = xy
isweq f
  induction xy.
X, Y: UU
f:= coprodtoboolsum X Y: X ⨿ Y → ∑ y, boolsumfun X Y y
g:= boolsumtocoprod X Y: (∑ y, boolsumfun X Y y) → X ⨿ Y
a: X
g (f (inl a)) = inl a
X, Y: UU
f:= coprodtoboolsum X Y: X ⨿ Y → ∑ y, boolsumfun X Y y
g:= boolsumtocoprod X Y: (∑ y, boolsumfun X Y y) → X ⨿ Y
b: Y
g (f (inr b)) = inr b
X, Y: UU
f:= coprodtoboolsum X Y: X ⨿ Y → ∑ y, boolsumfun X Y y
g:= boolsumtocoprod X Y: (∑ y, boolsumfun X Y y) → X ⨿ Y
egf: ∏ xy : X ⨿ Y, g (f xy) = xy
isweq f apply idpath.
X, Y: UU
f:= coprodtoboolsum X Y: X ⨿ Y → ∑ y, boolsumfun X Y y
g:= boolsumtocoprod X Y: (∑ y, boolsumfun X Y y) → X ⨿ Y
b: Y
g (f (inr b)) = inr b
X, Y: UU
f:= coprodtoboolsum X Y: X ⨿ Y → ∑ y, boolsumfun X Y y
g:= boolsumtocoprod X Y: (∑ y, boolsumfun X Y y) → X ⨿ Y
egf: ∏ xy : X ⨿ Y, g (f xy) = xy
isweq f apply idpath.
X, Y: UU
f:= coprodtoboolsum X Y: X ⨿ Y → ∑ y, boolsumfun X Y y
g:= boolsumtocoprod X Y: (∑ y, boolsumfun X Y y) → X ⨿ Y
egf: ∏ xy : X ⨿ Y, g (f xy) = xy
isweq f
  assert (efg : ∏ xy : total2 (boolsumfun X Y), (f (g xy)) = xy).
X, Y: UU
f:= coprodtoboolsum X Y: X ⨿ Y → ∑ y, boolsumfun X Y y
g:= boolsumtocoprod X Y: (∑ y, boolsumfun X Y y) → X ⨿ Y
egf: ∏ xy : X ⨿ Y, g (f xy) = xy
∏ xy : ∑ y, boolsumfun X Y y, f (g xy) = xy
X, Y: UU
f:= coprodtoboolsum X Y: X ⨿ Y → ∑ y, boolsumfun X Y y
g:= boolsumtocoprod X Y: (∑ y, boolsumfun X Y y) → X ⨿ Y
egf: ∏ xy : X ⨿ Y, g (f xy) = xy
efg: ∏ xy : ∑ y, boolsumfun X Y y, f (g xy) = xy
isweq f
  intro.
X, Y: UU
f:= coprodtoboolsum X Y: X ⨿ Y → ∑ y, boolsumfun X Y y
g:= boolsumtocoprod X Y: (∑ y, boolsumfun X Y y) → X ⨿ Y
egf: ∏ xy : X ⨿ Y, g (f xy) = xy
xy: ∑ y, boolsumfun X Y y
f (g xy) = xy
X, Y: UU
f:= coprodtoboolsum X Y: X ⨿ Y → ∑ y, boolsumfun X Y y
g:= boolsumtocoprod X Y: (∑ y, boolsumfun X Y y) → X ⨿ Y
egf: ∏ xy : X ⨿ Y, g (f xy) = xy
efg: ∏ xy : ∑ y, boolsumfun X Y y, f (g xy) = xy
isweq f induction xy as [ t x ].
X, Y: UU
f:= coprodtoboolsum X Y: X ⨿ Y → ∑ y, boolsumfun X Y y
g:= boolsumtocoprod X Y: (∑ y, boolsumfun X Y y) → X ⨿ Y
egf: ∏ xy : X ⨿ Y, g (f xy) = xy
t: bool
x: boolsumfun X Y t
f (g (t,, x)) = t,, x
X, Y: UU
f:= coprodtoboolsum X Y: X ⨿ Y → ∑ y, boolsumfun X Y y
g:= boolsumtocoprod X Y: (∑ y, boolsumfun X Y y) → X ⨿ Y
egf: ∏ xy : X ⨿ Y, g (f xy) = xy
efg: ∏ xy : ∑ y, boolsumfun X Y y, f (g xy) = xy
isweq f induction t.
X, Y: UU
f:= coprodtoboolsum X Y: X ⨿ Y → ∑ y, boolsumfun X Y y
g:= boolsumtocoprod X Y: (∑ y, boolsumfun X Y y) → X ⨿ Y
egf: ∏ xy : X ⨿ Y, g (f xy) = xy
x: boolsumfun X Y true
f (g (true,, x)) = true,, x
X, Y: UU
f:= coprodtoboolsum X Y: X ⨿ Y → ∑ y, boolsumfun X Y y
g:= boolsumtocoprod X Y: (∑ y, boolsumfun X Y y) → X ⨿ Y
egf: ∏ xy : X ⨿ Y, g (f xy) = xy
x: boolsumfun X Y false
f (g (false,, x)) = false,, x
X, Y: UU
f:= coprodtoboolsum X Y: X ⨿ Y → ∑ y, boolsumfun X Y y
g:= boolsumtocoprod X Y: (∑ y, boolsumfun X Y y) → X ⨿ Y
egf: ∏ xy : X ⨿ Y, g (f xy) = xy
efg: ∏ xy : ∑ y, boolsumfun X Y y, f (g xy) = xy
isweq f apply idpath.
X, Y: UU
f:= coprodtoboolsum X Y: X ⨿ Y → ∑ y, boolsumfun X Y y
g:= boolsumtocoprod X Y: (∑ y, boolsumfun X Y y) → X ⨿ Y
egf: ∏ xy : X ⨿ Y, g (f xy) = xy
x: boolsumfun X Y false
f (g (false,, x)) = false,, x
X, Y: UU
f:= coprodtoboolsum X Y: X ⨿ Y → ∑ y, boolsumfun X Y y
g:= boolsumtocoprod X Y: (∑ y, boolsumfun X Y y) → X ⨿ Y
egf: ∏ xy : X ⨿ Y, g (f xy) = xy
efg: ∏ xy : ∑ y, boolsumfun X Y y, f (g xy) = xy
isweq f apply idpath.
X, Y: UU
f:= coprodtoboolsum X Y: X ⨿ Y → ∑ y, boolsumfun X Y y
g:= boolsumtocoprod X Y: (∑ y, boolsumfun X Y y) → X ⨿ Y
egf: ∏ xy : X ⨿ Y, g (f xy) = xy
efg: ∏ xy : ∑ y, boolsumfun X Y y, f (g xy) = xy
isweq f
  apply (isweq_iso f g egf efg).
Defined.

Definition weqcoprodtoboolsum (X Y : UU) := make_weq _ (isweqcoprodtoboolsum X Y).

Corollary isweqboolsumtocoprod (X Y : UU): isweq (boolsumtocoprod X Y).
X, Y: UU
isweq (boolsumtocoprod X Y)
Proof.
X, Y: UU
isweq (boolsumtocoprod X Y)
  intros.
X, Y: UU
isweq (boolsumtocoprod X Y) apply (isweqinvmap (weqcoprodtoboolsum X Y)).
Defined.

Definition weqboolsumtocoprod (X Y : UU) := make_weq _ (isweqboolsumtocoprod X Y).


(** *** Splitting of [ X ] into a coproduct defined by a function [ X -> Y ⨿ Z ] *)

Definition weqcoprodsplit {X Y Z : UU} (f : X -> coprod Y Z) :
  X ≃ (∑ y : Y, hfiber f (ii1 y)) ⨿ (∑ z : Z, hfiber f (ii2 z)).
X, Y, Z: UU
f: X → Y ⨿ Z
X
≃ (∑ y : Y, hfiber f (inl y))
  ⨿ (∑ z : Z, hfiber f (inr z))
Proof.
X, Y, Z: UU
f: X → Y ⨿ Z
X
≃ (∑ y : Y, hfiber f (inl y))
  ⨿ (∑ z : Z, hfiber f (inr z))
  intros.
X, Y, Z: UU
f: X → Y ⨿ Z
X
≃ (∑ y : Y, hfiber f (inl y))
  ⨿ (∑ z : Z, hfiber f (inr z))
  set (w1 := weqtococonusf f).
X, Y, Z: UU
f: X → Y ⨿ Z
w1:= weqtococonusf f: X ≃ coconusf f
X
≃ (∑ y : Y, hfiber f (inl y))
  ⨿ (∑ z : Z, hfiber f (inr z))
  set (w2 := weqtotal2overcoprod (λ yz : coprod Y Z, hfiber f yz)).
X, Y, Z: UU
f: X → Y ⨿ Z
w1:= weqtococonusf f: X ≃ coconusf f
w2:= weqtotal2overcoprod (λ yz : Y ⨿ Z, hfiber f yz): (∑ xy : Y ⨿ Z, (λ yz : Y ⨿ Z, hfiber f yz) xy)
≃ (∑ x : Y, (λ yz : Y ⨿ Z, hfiber f yz) (inl x))
  ⨿ (∑ y : Z, (λ yz : Y ⨿ Z, hfiber f yz) (inr y))
X
≃ (∑ y : Y, hfiber f (inl y))
  ⨿ (∑ z : Z, hfiber f (inr z))
  apply (weqcomp w1 w2).
Defined.


(** *** Some properties of [ bool ] *)

Definition boolchoice (x : bool) : (x = true) ⨿ (x = false).
x: bool
(x = true) ⨿ (x = false)
Proof.
x: bool
(x = true) ⨿ (x = false)
  induction x.
(true = true) ⨿ (true = false)
(false = true) ⨿ (false = false) apply (ii1 (idpath _)).
(false = true) ⨿ (false = false) apply (ii2 (idpath _)).
Defined.

Definition bool_to_type : bool -> UU.
bool → UU
Proof.
bool → UU
  intros b.
b: bool
UU induction b as [|].
UU
UU {
UU exact unit. }
UU {
UU exact empty. }
Defined.

Theorem nopathstruetofalse : true = false -> empty.
true = false → ∅
Proof.
true = false → ∅
  intro X.
X: true = false
∅ apply (transportf bool_to_type X tt).
Defined.

Corollary nopathsfalsetotrue : false = true -> empty.
false = true → ∅
Proof.
false = true → ∅
  intro X.
X: false = true
∅ apply (transportb bool_to_type X tt).
Defined.

Definition truetonegfalse (x : bool) : x = true -> x != false.
x: bool
x = true → x != false
Proof.
x: bool
x = true → x != false
  intros e.
x: bool
e: x = true
x != false rewrite e.
x: bool
e: x = true
true != false unfold neg.
x: bool
e: x = true
true = false → ∅ apply nopathstruetofalse.
Defined.

Definition falsetonegtrue (x : bool) : x = false -> x != true.
x: bool
x = false → x != true
Proof.
x: bool
x = false → x != true
  intros e.
x: bool
e: x = false
x != true rewrite e.
x: bool
e: x = false
false != true unfold neg.
x: bool
e: x = false
false = true → ∅ apply nopathsfalsetotrue.
Defined.

Definition negtruetofalse (x : bool) : x != true -> x = false.
x: bool
x != true → x = false
Proof.
x: bool
x != true → x = false
  intros ne.
x: bool
ne: x != true
x = false induction (boolchoice x) as [t | f].
x: bool
ne: x != true
t: x = true
x = false
x: bool
ne: x != true
f: x = false
x = false induction (ne t).
x: bool
ne: x != true
f: x = false
x = false apply f.
Defined.

Definition negfalsetotrue (x : bool) : x != false -> x = true.
x: bool
x != false → x = true
Proof.
x: bool
x != false → x = true
  intros ne.
x: bool
ne: x != false
x = true induction (boolchoice x) as [t | f].
x: bool
ne: x != false
t: x = true
x = true
x: bool
ne: x != false
f: x = false
x = true apply t.
x: bool
ne: x != false
f: x = false
x = true induction (ne f).
Defined.


(** *** Fibrations with only one non-empty fiber

Theorem saying that if a fibration has only one non-empty fiber then the total
space is weakly equivalent to this fiber. *)

(* The current proof added by P. L. Lumsdaine, 2016 *)

Theorem onefiber {X : UU} (P : X -> UU) (x : X)
        (c : ∏ x' : X, (x = x') ⨿ ¬ P x') : isweq (λ p, tpair P x p).
X: UU
P: X → UU
x: X
c: ∏ x' : X, (x = x') ⨿ ¬ P x'
isweq (λ p : P x, x,, p)
Proof.
X: UU
P: X → UU
x: X
c: ∏ x' : X, (x = x') ⨿ ¬ P x'
isweq (λ p : P x, x,, p)
  intros.
X: UU
P: X → UU
x: X
c: ∏ x' : X, (x = x') ⨿ ¬ P x'
isweq (λ p : P x, x,, p)
  set (f := λ p : P x, tpair _ x p).
X: UU
P: X → UU
x: X
c: ∏ x' : X, (x = x') ⨿ ¬ P x'
f:= λ p : P x, x,, p: P x → ∑ y, P y
isweq f
  set (cx := c x).
X: UU
P: X → UU
x: X
c: ∏ x' : X, (x = x') ⨿ ¬ P x'
f:= λ p : P x, x,, p: P x → ∑ y, P y
cx:= c x: (x = x) ⨿ ¬ P x
isweq f
  transparent assert (cnew : (∏ x' : X, (x = x') ⨿ ¬ P x')).
X: UU
P: X → UU
x: X
c: ∏ x' : X, (x = x') ⨿ ¬ P x'
f:= λ p : P x, x,, p: P x → ∑ y, P y
cx:= c x: (x = x) ⨿ ¬ P x
∏ x' : X, (x = x') ⨿ ¬ P x'
X: UU
P: X → UU
x: X
c: ∏ x' : X, (x = x') ⨿ ¬ P x'
f:= λ p : P x, x,, p: P x → ∑ y, P y
cx:= c x: (x = x) ⨿ ¬ P x
cnew:= ?Goal: ∏ x' : X, (x = x') ⨿ ¬ P x'
isweq f
  {
X: UU
P: X → UU
x: X
c: ∏ x' : X, (x = x') ⨿ ¬ P x'
f:= λ p : P x, x,, p: P x → ∑ y, P y
cx:= c x: (x = x) ⨿ ¬ P x
∏ x' : X, (x = x') ⨿ ¬ P x' intro x'.
X: UU
P: X → UU
x: X
c: ∏ x' : X, (x = x') ⨿ ¬ P x'
f:= λ p : P x, x,, p: P x → ∑ y, P y
cx:= c x: (x = x) ⨿ ¬ P x
x': X
(x = x') ⨿ ¬ P x' refine (coprod_rect (λ _, _) _ _ (cx)).
X: UU
P: X → UU
x: X
c: ∏ x' : X, (x = x') ⨿ ¬ P x'
f:= λ p : P x, x,, p: P x → ∑ y, P y
cx:= c x: (x = x) ⨿ ¬ P x
x': X
x = x → (x = x') ⨿ ¬ P x'
X: UU
P: X → UU
x: X
c: ∏ x' : X, (x = x') ⨿ ¬ P x'
f:= λ p : P x, x,, p: P x → ∑ y, P y
cx:= c x: (x = x) ⨿ ¬ P x
x': X
¬ P x → (x = x') ⨿ ¬ P x'
    -
X: UU
P: X → UU
x: X
c: ∏ x' : X, (x = x') ⨿ ¬ P x'
f:= λ p : P x, x,, p: P x → ∑ y, P y
cx:= c x: (x = x) ⨿ ¬ P x
x': X
x = x → (x = x') ⨿ ¬ P x' intro x0.
X: UU
P: X → UU
x: X
c: ∏ x' : X, (x = x') ⨿ ¬ P x'
f:= λ p : P x, x,, p: P x → ∑ y, P y
cx:= c x: (x = x) ⨿ ¬ P x
x': X
x0: x = x
(x = x') ⨿ ¬ P x' refine (coprod_rect (λ _, _) _ _ (c x')).
X: UU
P: X → UU
x: X
c: ∏ x' : X, (x = x') ⨿ ¬ P x'
f:= λ p : P x, x,, p: P x → ∑ y, P y
cx:= c x: (x = x) ⨿ ¬ P x
x': X
x0: x = x
x = x' → (x = x') ⨿ ¬ P x'
X: UU
P: X → UU
x: X
c: ∏ x' : X, (x = x') ⨿ ¬ P x'
f:= λ p : P x, x,, p: P x → ∑ y, P y
cx:= c x: (x = x) ⨿ ¬ P x
x': X
x0: x = x
¬ P x' → (x = x') ⨿ ¬ P x'
      +
X: UU
P: X → UU
x: X
c: ∏ x' : X, (x = x') ⨿ ¬ P x'
f:= λ p : P x, x,, p: P x → ∑ y, P y
cx:= c x: (x = x) ⨿ ¬ P x
x': X
x0: x = x
x = x' → (x = x') ⨿ ¬ P x' intro ee.
X: UU
P: X → UU
x: X
c: ∏ x' : X, (x = x') ⨿ ¬ P x'
f:= λ p : P x, x,, p: P x → ∑ y, P y
cx:= c x: (x = x) ⨿ ¬ P x
x': X
x0: x = x
ee: x = x'
(x = x') ⨿ ¬ P x' apply ii1; exact (pathscomp0 (pathsinv0 x0) ee).
      +
X: UU
P: X → UU
x: X
c: ∏ x' : X, (x = x') ⨿ ¬ P x'
f:= λ p : P x, x,, p: P x → ∑ y, P y
cx:= c x: (x = x) ⨿ ¬ P x
x': X
x0: x = x
¬ P x' → (x = x') ⨿ ¬ P x' intro phi.
X: UU
P: X → UU
x: X
c: ∏ x' : X, (x = x') ⨿ ¬ P x'
f:= λ p : P x, x,, p: P x → ∑ y, P y
cx:= c x: (x = x) ⨿ ¬ P x
x': X
x0: x = x
phi: ¬ P x'
(x = x') ⨿ ¬ P x' apply ii2, phi.
    -
X: UU
P: X → UU
x: X
c: ∏ x' : X, (x = x') ⨿ ¬ P x'
f:= λ p : P x, x,, p: P x → ∑ y, P y
cx:= c x: (x = x) ⨿ ¬ P x
x': X
¬ P x → (x = x') ⨿ ¬ P x' intro phi.
X: UU
P: X → UU
x: X
c: ∏ x' : X, (x = x') ⨿ ¬ P x'
f:= λ p : P x, x,, p: P x → ∑ y, P y
cx:= c x: (x = x) ⨿ ¬ P x
x': X
phi: ¬ P x
(x = x') ⨿ ¬ P x' exact (c x'). }
X: UU
P: X → UU
x: X
c: ∏ x' : X, (x = x') ⨿ ¬ P x'
f:= λ p : P x, x,, p: P x → ∑ y, P y
cx:= c x: (x = x) ⨿ ¬ P x
cnew:= λ x' : X,
coprod_rect
  (λ _ : (x = x) ⨿ ¬ P x, (x = x') ⨿ ¬ P x')
  (λ x0 : x = x,
   coprod_rect
     (λ _ : (x = x') ⨿ ¬ P x', (x = x') ⨿ ¬ P x')
     (λ ee : x = x', inl (! x0 @ ee))
     (λ phi : ¬ P x', inr phi) 
     (c x')) (λ _ : ¬ P x, c x') cx: ∏ x' : X, (x = x') ⨿ ¬ P x'
isweq f


  set (g := λ pp : total2 P,
              match (cnew (pr1 pp)) with
              | ii1 e => transportb P e (pr2 pp)
              | ii2 phi => fromempty (phi (pr2 pp))
              end).
X: UU
P: X → UU
x: X
c: ∏ x' : X, (x = x') ⨿ ¬ P x'
f:= λ p : P x, x,, p: P x → ∑ y, P y
cx:= c x: (x = x) ⨿ ¬ P x
cnew:= λ x' : X,
coprod_rect
  (λ _ : (x = x) ⨿ ¬ P x, (x = x') ⨿ ¬ P x')
  (λ x0 : x = x,
   coprod_rect
     (λ _ : (x = x') ⨿ ¬ P x', (x = x') ⨿ ¬ P x')
     (λ ee : x = x', inl (! x0 @ ee))
     (λ phi : ¬ P x', inr phi) 
     (c x')) (λ _ : ¬ P x, c x') cx: ∏ x' : X, (x = x') ⨿ ¬ P x'
g:= λ pp : ∑ y, P y,
match cnew (pr1 pp) with
| inl e => transportb P e (pr2 pp)
| inr phi => fromempty (phi (pr2 pp))
end: (∑ y, P y) → P x
isweq f


  assert (efg : ∏ pp : total2 P, (f (g pp)) = pp).
X: UU
P: X → UU
x: X
c: ∏ x' : X, (x = x') ⨿ ¬ P x'
f:= λ p : P x, x,, p: P x → ∑ y, P y
cx:= c x: (x = x) ⨿ ¬ P x
cnew:= λ x' : X,
coprod_rect
  (λ _ : (x = x) ⨿ ¬ P x, (x = x') ⨿ ¬ P x')
  (λ x0 : x = x,
   coprod_rect
     (λ _ : (x = x') ⨿ ¬ P x', (x = x') ⨿ ¬ P x')
     (λ ee : x = x', inl (! x0 @ ee))
     (λ phi : ¬ P x', inr phi) 
     (c x')) (λ _ : ¬ P x, c x') cx: ∏ x' : X, (x = x') ⨿ ¬ P x'
g:= λ pp : ∑ y, P y,
match cnew (pr1 pp) with
| inl e => transportb P e (pr2 pp)
| inr phi => fromempty (phi (pr2 pp))
end: (∑ y, P y) → P x
∏ pp : ∑ y, P y, f (g pp) = pp
X: UU
P: X → UU
x: X
c: ∏ x' : X, (x = x') ⨿ ¬ P x'
f:= λ p : P x, x,, p: P x → ∑ y, P y
cx:= c x: (x = x) ⨿ ¬ P x
cnew:= λ x' : X,
coprod_rect
  (λ _ : (x = x) ⨿ ¬ P x, (x = x') ⨿ ¬ P x')
  (λ x0 : x = x,
   coprod_rect
     (λ _ : (x = x') ⨿ ¬ P x', (x = x') ⨿ ¬ P x')
     (λ ee : x = x', inl (! x0 @ ee))
     (λ phi : ¬ P x', inr phi) 
     (c x')) (λ _ : ¬ P x, c x') cx: ∏ x' : X, (x = x') ⨿ ¬ P x'
g:= λ pp : ∑ y, P y,
match cnew (pr1 pp) with
| inl e => transportb P e (pr2 pp)
| inr phi => fromempty (phi (pr2 pp))
end: (∑ y, P y) → P x
efg: ∏ pp : ∑ y, P y, f (g pp) = pp
isweq f
  intro.
X: UU
P: X → UU
x: X
c: ∏ x' : X, (x = x') ⨿ ¬ P x'
f:= λ p : P x, x,, p: P x → ∑ y, P y
cx:= c x: (x = x) ⨿ ¬ P x
cnew:= λ x' : X,
coprod_rect
  (λ _ : (x = x) ⨿ ¬ P x, (x = x') ⨿ ¬ P x')
  (λ x0 : x = x,
   coprod_rect
     (λ _ : (x = x') ⨿ ¬ P x', (x = x') ⨿ ¬ P x')
     (λ ee : x = x', inl (! x0 @ ee))
     (λ phi : ¬ P x', inr phi) 
     (c x')) (λ _ : ¬ P x, c x') cx: ∏ x' : X, (x = x') ⨿ ¬ P x'
g:= λ pp : ∑ y, P y,
match cnew (pr1 pp) with
| inl e => transportb P e (pr2 pp)
| inr phi => fromempty (phi (pr2 pp))
end: (∑ y, P y) → P x
pp: ∑ y, P y
f (g pp) = pp
X: UU
P: X → UU
x: X
c: ∏ x' : X, (x = x') ⨿ ¬ P x'
f:= λ p : P x, x,, p: P x → ∑ y, P y
cx:= c x: (x = x) ⨿ ¬ P x
cnew:= λ x' : X,
coprod_rect
  (λ _ : (x = x) ⨿ ¬ P x, (x = x') ⨿ ¬ P x')
  (λ x0 : x = x,
   coprod_rect
     (λ _ : (x = x') ⨿ ¬ P x', (x = x') ⨿ ¬ P x')
     (λ ee : x = x', inl (! x0 @ ee))
     (λ phi : ¬ P x', inr phi) 
     (c x')) (λ _ : ¬ P x, c x') cx: ∏ x' : X, (x = x') ⨿ ¬ P x'
g:= λ pp : ∑ y, P y,
match cnew (pr1 pp) with
| inl e => transportb P e (pr2 pp)
| inr phi => fromempty (phi (pr2 pp))
end: (∑ y, P y) → P x
efg: ∏ pp : ∑ y, P y, f (g pp) = pp
isweq f induction pp as [ t x0 ].
X: UU
P: X → UU
x: X
c: ∏ x' : X, (x = x') ⨿ ¬ P x'
f:= λ p : P x, x,, p: P x → ∑ y, P y
cx:= c x: (x = x) ⨿ ¬ P x
cnew:= λ x' : X,
coprod_rect
  (λ _ : (x = x) ⨿ ¬ P x, (x = x') ⨿ ¬ P x')
  (λ x0 : x = x,
   coprod_rect
     (λ _ : (x = x') ⨿ ¬ P x', (x = x') ⨿ ¬ P x')
     (λ ee : x = x', inl (! x0 @ ee))
     (λ phi : ¬ P x', inr phi) 
     (c x')) (λ _ : ¬ P x, c x') cx: ∏ x' : X, (x = x') ⨿ ¬ P x'
g:= λ pp : ∑ y, P y,
match cnew (pr1 pp) with
| inl e => transportb P e (pr2 pp)
| inr phi => fromempty (phi (pr2 pp))
end: (∑ y, P y) → P x
t: X
x0: P t
f (g (t,, x0)) = t,, x0
X: UU
P: X → UU
x: X
c: ∏ x' : X, (x = x') ⨿ ¬ P x'
f:= λ p : P x, x,, p: P x → ∑ y, P y
cx:= c x: (x = x) ⨿ ¬ P x
cnew:= λ x' : X,
coprod_rect
  (λ _ : (x = x) ⨿ ¬ P x, (x = x') ⨿ ¬ P x')
  (λ x0 : x = x,
   coprod_rect
     (λ _ : (x = x') ⨿ ¬ P x', (x = x') ⨿ ¬ P x')
     (λ ee : x = x', inl (! x0 @ ee))
     (λ phi : ¬ P x', inr phi) 
     (c x')) (λ _ : ¬ P x, c x') cx: ∏ x' : X, (x = x') ⨿ ¬ P x'
g:= λ pp : ∑ y, P y,
match cnew (pr1 pp) with
| inl e => transportb P e (pr2 pp)
| inr phi => fromempty (phi (pr2 pp))
end: (∑ y, P y) → P x
efg: ∏ pp : ∑ y, P y, f (g pp) = pp
isweq f set (cnewt := cnew t).
X: UU
P: X → UU
x: X
c: ∏ x' : X, (x = x') ⨿ ¬ P x'
f:= λ p : P x, x,, p: P x → ∑ y, P y
cx:= c x: (x = x) ⨿ ¬ P x
cnew:= λ x' : X,
coprod_rect
  (λ _ : (x = x) ⨿ ¬ P x, (x = x') ⨿ ¬ P x')
  (λ x0 : x = x,
   coprod_rect
     (λ _ : (x = x') ⨿ ¬ P x', (x = x') ⨿ ¬ P x')
     (λ ee : x = x', inl (! x0 @ ee))
     (λ phi : ¬ P x', inr phi) 
     (c x')) (λ _ : ¬ P x, c x') cx: ∏ x' : X, (x = x') ⨿ ¬ P x'
g:= λ pp : ∑ y, P y,
match cnew (pr1 pp) with
| inl e => transportb P e (pr2 pp)
| inr phi => fromempty (phi (pr2 pp))
end: (∑ y, P y) → P x
t: X
x0: P t
cnewt:= cnew t: (x = t) ⨿ ¬ P t
f (g (t,, x0)) = t,, x0
X: UU
P: X → UU
x: X
c: ∏ x' : X, (x = x') ⨿ ¬ P x'
f:= λ p : P x, x,, p: P x → ∑ y, P y
cx:= c x: (x = x) ⨿ ¬ P x
cnew:= λ x' : X,
coprod_rect
  (λ _ : (x = x) ⨿ ¬ P x, (x = x') ⨿ ¬ P x')
  (λ x0 : x = x,
   coprod_rect
     (λ _ : (x = x') ⨿ ¬ P x', (x = x') ⨿ ¬ P x')
     (λ ee : x = x', inl (! x0 @ ee))
     (λ phi : ¬ P x', inr phi) 
     (c x')) (λ _ : ¬ P x, c x') cx: ∏ x' : X, (x = x') ⨿ ¬ P x'
g:= λ pp : ∑ y, P y,
match cnew (pr1 pp) with
| inl e => transportb P e (pr2 pp)
| inr phi => fromempty (phi (pr2 pp))
end: (∑ y, P y) → P x
efg: ∏ pp : ∑ y, P y, f (g pp) = pp
isweq f
  unfold g.
X: UU
P: X → UU
x: X
c: ∏ x' : X, (x = x') ⨿ ¬ P x'
f:= λ p : P x, x,, p: P x → ∑ y, P y
cx:= c x: (x = x) ⨿ ¬ P x
cnew:= λ x' : X,
coprod_rect
  (λ _ : (x = x) ⨿ ¬ P x, (x = x') ⨿ ¬ P x')
  (λ x0 : x = x,
   coprod_rect
     (λ _ : (x = x') ⨿ ¬ P x', (x = x') ⨿ ¬ P x')
     (λ ee : x = x', inl (! x0 @ ee))
     (λ phi : ¬ P x', inr phi) 
     (c x')) (λ _ : ¬ P x, c x') cx: ∏ x' : X, (x = x') ⨿ ¬ P x'
g:= λ pp : ∑ y, P y,
match cnew (pr1 pp) with
| inl e => transportb P e (pr2 pp)
| inr phi => fromempty (phi (pr2 pp))
end: (∑ y, P y) → P x
t: X
x0: P t
cnewt:= cnew t: (x = t) ⨿ ¬ P t
f
  match cnew (pr1 (t,, x0)) with
  | inl e => transportb P e (pr2 (t,, x0))
  | inr phi => fromempty (phi (pr2 (t,, x0)))
  end = t,, x0
X: UU
P: X → UU
x: X
c: ∏ x' : X, (x = x') ⨿ ¬ P x'
f:= λ p : P x, x,, p: P x → ∑ y, P y
cx:= c x: (x = x) ⨿ ¬ P x
cnew:= λ x' : X,
coprod_rect
  (λ _ : (x = x) ⨿ ¬ P x, (x = x') ⨿ ¬ P x')
  (λ x0 : x = x,
   coprod_rect
     (λ _ : (x = x') ⨿ ¬ P x', (x = x') ⨿ ¬ P x')
     (λ ee : x = x', inl (! x0 @ ee))
     (λ phi : ¬ P x', inr phi) 
     (c x')) (λ _ : ¬ P x, c x') cx: ∏ x' : X, (x = x') ⨿ ¬ P x'
g:= λ pp : ∑ y, P y,
match cnew (pr1 pp) with
| inl e => transportb P e (pr2 pp)
| inr phi => fromempty (phi (pr2 pp))
end: (∑ y, P y) → P x
efg: ∏ pp : ∑ y, P y, f (g pp) = pp
isweq f unfold f.
X: UU
P: X → UU
x: X
c: ∏ x' : X, (x = x') ⨿ ¬ P x'
f:= λ p : P x, x,, p: P x → ∑ y, P y
cx:= c x: (x = x) ⨿ ¬ P x
cnew:= λ x' : X,
coprod_rect
  (λ _ : (x = x) ⨿ ¬ P x, (x = x') ⨿ ¬ P x')
  (λ x0 : x = x,
   coprod_rect
     (λ _ : (x = x') ⨿ ¬ P x', (x = x') ⨿ ¬ P x')
     (λ ee : x = x', inl (! x0 @ ee))
     (λ phi : ¬ P x', inr phi) 
     (c x')) (λ _ : ¬ P x, c x') cx: ∏ x' : X, (x = x') ⨿ ¬ P x'
g:= λ pp : ∑ y, P y,
match cnew (pr1 pp) with
| inl e => transportb P e (pr2 pp)
| inr phi => fromempty (phi (pr2 pp))
end: (∑ y, P y) → P x
t: X
x0: P t
cnewt:= cnew t: (x = t) ⨿ ¬ P t
x,,
match cnew (pr1 (t,, x0)) with
| inl e => transportb P e (pr2 (t,, x0))
| inr phi => fromempty (phi (pr2 (t,, x0)))
end = t,, x0
X: UU
P: X → UU
x: X
c: ∏ x' : X, (x = x') ⨿ ¬ P x'
f:= λ p : P x, x,, p: P x → ∑ y, P y
cx:= c x: (x = x) ⨿ ¬ P x
cnew:= λ x' : X,
coprod_rect
  (λ _ : (x = x) ⨿ ¬ P x, (x = x') ⨿ ¬ P x')
  (λ x0 : x = x,
   coprod_rect
     (λ _ : (x = x') ⨿ ¬ P x', (x = x') ⨿ ¬ P x')
     (λ ee : x = x', inl (! x0 @ ee))
     (λ phi : ¬ P x', inr phi) 
     (c x')) (λ _ : ¬ P x, c x') cx: ∏ x' : X, (x = x') ⨿ ¬ P x'
g:= λ pp : ∑ y, P y,
match cnew (pr1 pp) with
| inl e => transportb P e (pr2 pp)
| inr phi => fromempty (phi (pr2 pp))
end: (∑ y, P y) → P x
efg: ∏ pp : ∑ y, P y, f (g pp) = pp
isweq f simpl.
X: UU
P: X → UU
x: X
c: ∏ x' : X, (x = x') ⨿ ¬ P x'
f:= λ p : P x, x,, p: P x → ∑ y, P y
cx:= c x: (x = x) ⨿ ¬ P x
cnew:= λ x' : X,
coprod_rect
  (λ _ : (x = x) ⨿ ¬ P x, (x = x') ⨿ ¬ P x')
  (λ x0 : x = x,
   coprod_rect
     (λ _ : (x = x') ⨿ ¬ P x', (x = x') ⨿ ¬ P x')
     (λ ee : x = x', inl (! x0 @ ee))
     (λ phi : ¬ P x', inr phi) 
     (c x')) (λ _ : ¬ P x, c x') cx: ∏ x' : X, (x = x') ⨿ ¬ P x'
g:= λ pp : ∑ y, P y,
match cnew (pr1 pp) with
| inl e => transportb P e (pr2 pp)
| inr phi => fromempty (phi (pr2 pp))
end: (∑ y, P y) → P x
t: X
x0: P t
cnewt:= cnew t: (x = t) ⨿ ¬ P t
x,,
match cnew t with
| inl e => transportb P e x0
| inr phi => fromempty (phi x0)
end = t,, x0
X: UU
P: X → UU
x: X
c: ∏ x' : X, (x = x') ⨿ ¬ P x'
f:= λ p : P x, x,, p: P x → ∑ y, P y
cx:= c x: (x = x) ⨿ ¬ P x
cnew:= λ x' : X,
coprod_rect
  (λ _ : (x = x) ⨿ ¬ P x, (x = x') ⨿ ¬ P x')
  (λ x0 : x = x,
   coprod_rect
     (λ _ : (x = x') ⨿ ¬ P x', (x = x') ⨿ ¬ P x')
     (λ ee : x = x', inl (! x0 @ ee))
     (λ phi : ¬ P x', inr phi) 
     (c x')) (λ _ : ¬ P x, c x') cx: ∏ x' : X, (x = x') ⨿ ¬ P x'
g:= λ pp : ∑ y, P y,
match cnew (pr1 pp) with
| inl e => transportb P e (pr2 pp)
| inr phi => fromempty (phi (pr2 pp))
end: (∑ y, P y) → P x
efg: ∏ pp : ∑ y, P y, f (g pp) = pp
isweq f change (cnew t) with cnewt.
X: UU
P: X → UU
x: X
c: ∏ x' : X, (x = x') ⨿ ¬ P x'
f:= λ p : P x, x,, p: P x → ∑ y, P y
cx:= c x: (x = x) ⨿ ¬ P x
cnew:= λ x' : X,
coprod_rect
  (λ _ : (x = x) ⨿ ¬ P x, (x = x') ⨿ ¬ P x')
  (λ x0 : x = x,
   coprod_rect
     (λ _ : (x = x') ⨿ ¬ P x', (x = x') ⨿ ¬ P x')
     (λ ee : x = x', inl (! x0 @ ee))
     (λ phi : ¬ P x', inr phi) 
     (c x')) (λ _ : ¬ P x, c x') cx: ∏ x' : X, (x = x') ⨿ ¬ P x'
g:= λ pp : ∑ y, P y,
match cnew (pr1 pp) with
| inl e => transportb P e (pr2 pp)
| inr phi => fromempty (phi (pr2 pp))
end: (∑ y, P y) → P x
t: X
x0: P t
cnewt:= cnew t: (x = t) ⨿ ¬ P t
x,,
match cnewt with
| inl e => transportb P e x0
| inr phi => fromempty (phi x0)
end = t,, x0
X: UU
P: X → UU
x: X
c: ∏ x' : X, (x = x') ⨿ ¬ P x'
f:= λ p : P x, x,, p: P x → ∑ y, P y
cx:= c x: (x = x) ⨿ ¬ P x
cnew:= λ x' : X,
coprod_rect
  (λ _ : (x = x) ⨿ ¬ P x, (x = x') ⨿ ¬ P x')
  (λ x0 : x = x,
   coprod_rect
     (λ _ : (x = x') ⨿ ¬ P x', (x = x') ⨿ ¬ P x')
     (λ ee : x = x', inl (! x0 @ ee))
     (λ phi : ¬ P x', inr phi) 
     (c x')) (λ _ : ¬ P x, c x') cx: ∏ x' : X, (x = x') ⨿ ¬ P x'
g:= λ pp : ∑ y, P y,
match cnew (pr1 pp) with
| inl e => transportb P e (pr2 pp)
| inr phi => fromempty (phi (pr2 pp))
end: (∑ y, P y) → P x
efg: ∏ pp : ∑ y, P y, f (g pp) = pp
isweq f
  induction cnewt as [ x1 | y ].
X: UU
P: X → UU
x: X
c: ∏ x' : X, (x = x') ⨿ ¬ P x'
f:= λ p : P x, x,, p: P x → ∑ y, P y
cx:= c x: (x = x) ⨿ ¬ P x
cnew:= λ x' : X,
coprod_rect
  (λ _ : (x = x) ⨿ ¬ P x, (x = x') ⨿ ¬ P x')
  (λ x0 : x = x,
   coprod_rect
     (λ _ : (x = x') ⨿ ¬ P x', (x = x') ⨿ ¬ P x')
     (λ ee : x = x', inl (! x0 @ ee))
     (λ phi : ¬ P x', inr phi) 
     (c x')) (λ _ : ¬ P x, c x') cx: ∏ x' : X, (x = x') ⨿ ¬ P x'
g:= λ pp : ∑ y, P y,
match cnew (pr1 pp) with
| inl e => transportb P e (pr2 pp)
| inr phi => fromempty (phi (pr2 pp))
end: (∑ y, P y) → P x
t: X
x0: P t
x1: x = t
x,, transportb P x1 x0 = t,, x0
X: UU
P: X → UU
x: X
c: ∏ x' : X, (x = x') ⨿ ¬ P x'
f:= λ p : P x, x,, p: P x → ∑ y, P y
cx:= c x: (x = x) ⨿ ¬ P x
cnew:= λ x' : X,
coprod_rect
  (λ _ : (x = x) ⨿ ¬ P x, (x = x') ⨿ ¬ P x')
  (λ x0 : x = x,
   coprod_rect
     (λ _ : (x = x') ⨿ ¬ P x', (x = x') ⨿ ¬ P x')
     (λ ee : x = x', inl (! x0 @ ee))
     (λ phi : ¬ P x', inr phi) 
     (c x')) (λ _ : ¬ P x, c x') cx: ∏ x' : X, (x = x') ⨿ ¬ P x'
g:= λ pp : ∑ y, P y,
match cnew (pr1 pp) with
| inl e => transportb P e (pr2 pp)
| inr phi => fromempty (phi (pr2 pp))
end: (∑ y, P y) → P x
t: X
x0: P t
y: ¬ P t
x,, fromempty (y x0) = t,, x0
X: UU
P: X → UU
x: X
c: ∏ x' : X, (x = x') ⨿ ¬ P x'
f:= λ p : P x, x,, p: P x → ∑ y, P y
cx:= c x: (x = x) ⨿ ¬ P x
cnew:= λ x' : X,
coprod_rect
  (λ _ : (x = x) ⨿ ¬ P x, (x = x') ⨿ ¬ P x')
  (λ x0 : x = x,
   coprod_rect
     (λ _ : (x = x') ⨿ ¬ P x', (x = x') ⨿ ¬ P x')
     (λ ee : x = x', inl (! x0 @ ee))
     (λ phi : ¬ P x', inr phi) 
     (c x')) (λ _ : ¬ P x, c x') cx: ∏ x' : X, (x = x') ⨿ ¬ P x'
g:= λ pp : ∑ y, P y,
match cnew (pr1 pp) with
| inl e => transportb P e (pr2 pp)
| inr phi => fromempty (phi (pr2 pp))
end: (∑ y, P y) → P x
efg: ∏ pp : ∑ y, P y, f (g pp) = pp
isweq f
  apply (pathsinv0 (pr1 (pr2 (constr1 P (pathsinv0 x1))) x0)).
X: UU
P: X → UU
x: X
c: ∏ x' : X, (x = x') ⨿ ¬ P x'
f:= λ p : P x, x,, p: P x → ∑ y, P y
cx:= c x: (x = x) ⨿ ¬ P x
cnew:= λ x' : X,
coprod_rect
  (λ _ : (x = x) ⨿ ¬ P x, (x = x') ⨿ ¬ P x')
  (λ x0 : x = x,
   coprod_rect
     (λ _ : (x = x') ⨿ ¬ P x', (x = x') ⨿ ¬ P x')
     (λ ee : x = x', inl (! x0 @ ee))
     (λ phi : ¬ P x', inr phi) 
     (c x')) (λ _ : ¬ P x, c x') cx: ∏ x' : X, (x = x') ⨿ ¬ P x'
g:= λ pp : ∑ y, P y,
match cnew (pr1 pp) with
| inl e => transportb P e (pr2 pp)
| inr phi => fromempty (phi (pr2 pp))
end: (∑ y, P y) → P x
t: X
x0: P t
y: ¬ P t
x,, fromempty (y x0) = t,, x0
X: UU
P: X → UU
x: X
c: ∏ x' : X, (x = x') ⨿ ¬ P x'
f:= λ p : P x, x,, p: P x → ∑ y, P y
cx:= c x: (x = x) ⨿ ¬ P x
cnew:= λ x' : X,
coprod_rect
  (λ _ : (x = x) ⨿ ¬ P x, (x = x') ⨿ ¬ P x')
  (λ x0 : x = x,
   coprod_rect
     (λ _ : (x = x') ⨿ ¬ P x', (x = x') ⨿ ¬ P x')
     (λ ee : x = x', inl (! x0 @ ee))
     (λ phi : ¬ P x', inr phi) 
     (c x')) (λ _ : ¬ P x, c x') cx: ∏ x' : X, (x = x') ⨿ ¬ P x'
g:= λ pp : ∑ y, P y,
match cnew (pr1 pp) with
| inl e => transportb P e (pr2 pp)
| inr phi => fromempty (phi (pr2 pp))
end: (∑ y, P y) → P x
efg: ∏ pp : ∑ y, P y, f (g pp) = pp
isweq f
  induction (y x0).
X: UU
P: X → UU
x: X
c: ∏ x' : X, (x = x') ⨿ ¬ P x'
f:= λ p : P x, x,, p: P x → ∑ y, P y
cx:= c x: (x = x) ⨿ ¬ P x
cnew:= λ x' : X,
coprod_rect
  (λ _ : (x = x) ⨿ ¬ P x, (x = x') ⨿ ¬ P x')
  (λ x0 : x = x,
   coprod_rect
     (λ _ : (x = x') ⨿ ¬ P x', (x = x') ⨿ ¬ P x')
     (λ ee : x = x', inl (! x0 @ ee))
     (λ phi : ¬ P x', inr phi) 
     (c x')) (λ _ : ¬ P x, c x') cx: ∏ x' : X, (x = x') ⨿ ¬ P x'
g:= λ pp : ∑ y, P y,
match cnew (pr1 pp) with
| inl e => transportb P e (pr2 pp)
| inr phi => fromempty (phi (pr2 pp))
end: (∑ y, P y) → P x
efg: ∏ pp : ∑ y, P y, f (g pp) = pp
isweq f

  set (cnewx := cnew x).
X: UU
P: X → UU
x: X
c: ∏ x' : X, (x = x') ⨿ ¬ P x'
f:= λ p : P x, x,, p: P x → ∑ y, P y
cx:= c x: (x = x) ⨿ ¬ P x
cnew:= λ x' : X,
coprod_rect
  (λ _ : (x = x) ⨿ ¬ P x, (x = x') ⨿ ¬ P x')
  (λ x0 : x = x,
   coprod_rect
     (λ _ : (x = x') ⨿ ¬ P x', (x = x') ⨿ ¬ P x')
     (λ ee : x = x', inl (! x0 @ ee))
     (λ phi : ¬ P x', inr phi) 
     (c x')) (λ _ : ¬ P x, c x') cx: ∏ x' : X, (x = x') ⨿ ¬ P x'
g:= λ pp : ∑ y, P y,
match cnew (pr1 pp) with
| inl e => transportb P e (pr2 pp)
| inr phi => fromempty (phi (pr2 pp))
end: (∑ y, P y) → P x
efg: ∏ pp : ∑ y, P y, f (g pp) = pp
cnewx:= cnew x: (x = x) ⨿ ¬ P x
isweq f
  assert (e1 : (cnew x) = cnewx).
X: UU
P: X → UU
x: X
c: ∏ x' : X, (x = x') ⨿ ¬ P x'
f:= λ p : P x, x,, p: P x → ∑ y, P y
cx:= c x: (x = x) ⨿ ¬ P x
cnew:= λ x' : X,
coprod_rect
  (λ _ : (x = x) ⨿ ¬ P x, (x = x') ⨿ ¬ P x')
  (λ x0 : x = x,
   coprod_rect
     (λ _ : (x = x') ⨿ ¬ P x', (x = x') ⨿ ¬ P x')
     (λ ee : x = x', inl (! x0 @ ee))
     (λ phi : ¬ P x', inr phi) 
     (c x')) (λ _ : ¬ P x, c x') cx: ∏ x' : X, (x = x') ⨿ ¬ P x'
g:= λ pp : ∑ y, P y,
match cnew (pr1 pp) with
| inl e => transportb P e (pr2 pp)
| inr phi => fromempty (phi (pr2 pp))
end: (∑ y, P y) → P x
efg: ∏ pp : ∑ y, P y, f (g pp) = pp
cnewx:= cnew x: (x = x) ⨿ ¬ P x
cnew x = cnewx
X: UU
P: X → UU
x: X
c: ∏ x' : X, (x = x') ⨿ ¬ P x'
f:= λ p : P x, x,, p: P x → ∑ y, P y
cx:= c x: (x = x) ⨿ ¬ P x
cnew:= λ x' : X,
coprod_rect
  (λ _ : (x = x) ⨿ ¬ P x, (x = x') ⨿ ¬ P x')
  (λ x0 : x = x,
   coprod_rect
     (λ _ : (x = x') ⨿ ¬ P x', (x = x') ⨿ ¬ P x')
     (λ ee : x = x', inl (! x0 @ ee))
     (λ phi : ¬ P x', inr phi) 
     (c x')) (λ _ : ¬ P x, c x') cx: ∏ x' : X, (x = x') ⨿ ¬ P x'
g:= λ pp : ∑ y, P y,
match cnew (pr1 pp) with
| inl e => transportb P e (pr2 pp)
| inr phi => fromempty (phi (pr2 pp))
end: (∑ y, P y) → P x
efg: ∏ pp : ∑ y, P y, f (g pp) = pp
cnewx:= cnew x: (x = x) ⨿ ¬ P x
e1: cnew x = cnewx
isweq f apply idpath.
X: UU
P: X → UU
x: X
c: ∏ x' : X, (x = x') ⨿ ¬ P x'
f:= λ p : P x, x,, p: P x → ∑ y, P y
cx:= c x: (x = x) ⨿ ¬ P x
cnew:= λ x' : X,
coprod_rect
  (λ _ : (x = x) ⨿ ¬ P x, (x = x') ⨿ ¬ P x')
  (λ x0 : x = x,
   coprod_rect
     (λ _ : (x = x') ⨿ ¬ P x', (x = x') ⨿ ¬ P x')
     (λ ee : x = x', inl (! x0 @ ee))
     (λ phi : ¬ P x', inr phi) 
     (c x')) (λ _ : ¬ P x, c x') cx: ∏ x' : X, (x = x') ⨿ ¬ P x'
g:= λ pp : ∑ y, P y,
match cnew (pr1 pp) with
| inl e => transportb P e (pr2 pp)
| inr phi => fromempty (phi (pr2 pp))
end: (∑ y, P y) → P x
efg: ∏ pp : ∑ y, P y, f (g pp) = pp
cnewx:= cnew x: (x = x) ⨿ ¬ P x
e1: cnew x = cnewx
isweq f
  unfold cnew in cnewx.
X: UU
P: X → UU
x: X
c: ∏ x' : X, (x = x') ⨿ ¬ P x'
f:= λ p : P x, x,, p: P x → ∑ y, P y
cx:= c x: (x = x) ⨿ ¬ P x
cnew:= λ x' : X,
coprod_rect
  (λ _ : (x = x) ⨿ ¬ P x, (x = x') ⨿ ¬ P x')
  (λ x0 : x = x,
   coprod_rect
     (λ _ : (x = x') ⨿ ¬ P x', (x = x') ⨿ ¬ P x')
     (λ ee : x = x', inl (! x0 @ ee))
     (λ phi : ¬ P x', inr phi) 
     (c x')) (λ _ : ¬ P x, c x') cx: ∏ x' : X, (x = x') ⨿ ¬ P x'
g:= λ pp : ∑ y, P y,
match cnew (pr1 pp) with
| inl e => transportb P e (pr2 pp)
| inr phi => fromempty (phi (pr2 pp))
end: (∑ y, P y) → P x
efg: ∏ pp : ∑ y, P y, f (g pp) = pp
cnewx:= coprod_rect
  (λ _ : (x = x) ⨿ ¬ P x, (x = x) ⨿ ¬ P x)
  (λ x0 : x = x,
   coprod_rect
     (λ _ : (x = x) ⨿ ¬ P x, (x = x) ⨿ ¬ P x)
     (λ ee : x = x, inl (! x0 @ ee))
     (λ phi : ¬ P x, inr phi) 
     (c x)) (λ _ : ¬ P x, c x) cx: (x = x) ⨿ ¬ P x
e1: cnew x = cnewx
isweq f change (c x) with cx in cnewx.
X: UU
P: X → UU
x: X
c: ∏ x' : X, (x = x') ⨿ ¬ P x'
f:= λ p : P x, x,, p: P x → ∑ y, P y
cx:= c x: (x = x) ⨿ ¬ P x
cnew:= λ x' : X,
coprod_rect
  (λ _ : (x = x) ⨿ ¬ P x, (x = x') ⨿ ¬ P x')
  (λ x0 : x = x,
   coprod_rect
     (λ _ : (x = x') ⨿ ¬ P x', (x = x') ⨿ ¬ P x')
     (λ ee : x = x', inl (! x0 @ ee))
     (λ phi : ¬ P x', inr phi) 
     (c x')) (λ _ : ¬ P x, c x') cx: ∏ x' : X, (x = x') ⨿ ¬ P x'
g:= λ pp : ∑ y, P y,
match cnew (pr1 pp) with
| inl e => transportb P e (pr2 pp)
| inr phi => fromempty (phi (pr2 pp))
end: (∑ y, P y) → P x
efg: ∏ pp : ∑ y, P y, f (g pp) = pp
cnewx:= coprod_rect
  (λ _ : (x = x) ⨿ ¬ P x, (x = x) ⨿ ¬ P x)
  (λ x0 : x = x,
   coprod_rect
     (λ _ : (x = x) ⨿ ¬ P x, (x = x) ⨿ ¬ P x)
     (λ ee : x = x, inl (! x0 @ ee))
     (λ phi : ¬ P x, inr phi) cx)
  (λ _ : ¬ P x, cx) cx: (x = x) ⨿ ¬ P x
e1: cnew x = cnewx
isweq f
  induction cx as [ x0 | e0 ].
X: UU
P: X → UU
x: X
c: ∏ x' : X, (x = x') ⨿ ¬ P x'
f:= λ p : P x, x,, p: P x → ∑ y, P y
x0: x = x
cnew:= λ x' : X,
coprod_rect
  (λ _ : (x = x) ⨿ ¬ P x, (x = x') ⨿ ¬ P x')
  (λ x0 : x = x,
   coprod_rect
     (λ _ : (x = x') ⨿ ¬ P x', (x = x') ⨿ ¬ P x')
     (λ ee : x = x', inl (! x0 @ ee))
     (λ phi : ¬ P x', inr phi) 
     (c x')) (λ _ : ¬ P x, c x') 
  (inl x0): ∏ x' : X, (x = x') ⨿ ¬ P x'
g:= λ pp : ∑ y, P y,
match cnew (pr1 pp) with
| inl e => transportb P e (pr2 pp)
| inr phi => fromempty (phi (pr2 pp))
end: (∑ y, P y) → P x
efg: ∏ pp : ∑ y, P y, f (g pp) = pp
cnewx:= coprod_rect
  (λ _ : (x = x) ⨿ ¬ P x, (x = x) ⨿ ¬ P x)
  (λ x1 : x = x,
   coprod_rect
     (λ _ : (x = x) ⨿ ¬ P x, (x = x) ⨿ ¬ P x)
     (λ ee : x = x, inl (! x1 @ ee))
     (λ phi : ¬ P x, inr phi) 
     (inl x0)) (λ _ : ¬ P x, inl x0) 
  (inl x0): (x = x) ⨿ ¬ P x
e1: cnew x = cnewx
isweq f
X: UU
P: X → UU
x: X
c: ∏ x' : X, (x = x') ⨿ ¬ P x'
f:= λ p : P x, x,, p: P x → ∑ y, P y
e0: ¬ P x
cnew:= λ x' : X,
coprod_rect
  (λ _ : (x = x) ⨿ ¬ P x, (x = x') ⨿ ¬ P x')
  (λ x0 : x = x,
   coprod_rect
     (λ _ : (x = x') ⨿ ¬ P x', (x = x') ⨿ ¬ P x')
     (λ ee : x = x', inl (! x0 @ ee))
     (λ phi : ¬ P x', inr phi) 
     (c x')) (λ _ : ¬ P x, c x') 
  (inr e0): ∏ x' : X, (x = x') ⨿ ¬ P x'
g:= λ pp : ∑ y, P y,
match cnew (pr1 pp) with
| inl e => transportb P e (pr2 pp)
| inr phi => fromempty (phi (pr2 pp))
end: (∑ y, P y) → P x
efg: ∏ pp : ∑ y, P y, f (g pp) = pp
cnewx:= coprod_rect
  (λ _ : (x = x) ⨿ ¬ P x, (x = x) ⨿ ¬ P x)
  (λ x0 : x = x,
   coprod_rect
     (λ _ : (x = x) ⨿ ¬ P x, (x = x) ⨿ ¬ P x)
     (λ ee : x = x, inl (! x0 @ ee))
     (λ phi : ¬ P x, inr phi) 
     (inr e0)) (λ _ : ¬ P x, inr e0) 
  (inr e0): (x = x) ⨿ ¬ P x
e1: cnew x = cnewx
isweq f
  assert (e : (cnewx) = (ii1  (idpath x))).
X: UU
P: X → UU
x: X
c: ∏ x' : X, (x = x') ⨿ ¬ P x'
f:= λ p : P x, x,, p: P x → ∑ y, P y
x0: x = x
cnew:= λ x' : X,
coprod_rect
  (λ _ : (x = x) ⨿ ¬ P x, (x = x') ⨿ ¬ P x')
  (λ x0 : x = x,
   coprod_rect
     (λ _ : (x = x') ⨿ ¬ P x', (x = x') ⨿ ¬ P x')
     (λ ee : x = x', inl (! x0 @ ee))
     (λ phi : ¬ P x', inr phi) 
     (c x')) (λ _ : ¬ P x, c x') 
  (inl x0): ∏ x' : X, (x = x') ⨿ ¬ P x'
g:= λ pp : ∑ y, P y,
match cnew (pr1 pp) with
| inl e => transportb P e (pr2 pp)
| inr phi => fromempty (phi (pr2 pp))
end: (∑ y, P y) → P x
efg: ∏ pp : ∑ y, P y, f (g pp) = pp
cnewx:= coprod_rect
  (λ _ : (x = x) ⨿ ¬ P x, (x = x) ⨿ ¬ P x)
  (λ x1 : x = x,
   coprod_rect
     (λ _ : (x = x) ⨿ ¬ P x, (x = x) ⨿ ¬ P x)
     (λ ee : x = x, inl (! x1 @ ee))
     (λ phi : ¬ P x, inr phi) 
     (inl x0)) (λ _ : ¬ P x, inl x0) 
  (inl x0): (x = x) ⨿ ¬ P x
e1: cnew x = cnewx
cnewx = inl (idpath x)
X: UU
P: X → UU
x: X
c: ∏ x' : X, (x = x') ⨿ ¬ P x'
f:= λ p : P x, x,, p: P x → ∑ y, P y
x0: x = x
cnew:= λ x' : X,
coprod_rect
  (λ _ : (x = x) ⨿ ¬ P x, (x = x') ⨿ ¬ P x')
  (λ x0 : x = x,
   coprod_rect
     (λ _ : (x = x') ⨿ ¬ P x', (x = x') ⨿ ¬ P x')
     (λ ee : x = x', inl (! x0 @ ee))
     (λ phi : ¬ P x', inr phi) 
     (c x')) (λ _ : ¬ P x, c x') 
  (inl x0): ∏ x' : X, (x = x') ⨿ ¬ P x'
g:= λ pp : ∑ y, P y,
match cnew (pr1 pp) with
| inl e => transportb P e (pr2 pp)
| inr phi => fromempty (phi (pr2 pp))
end: (∑ y, P y) → P x
efg: ∏ pp : ∑ y, P y, f (g pp) = pp
cnewx:= coprod_rect
  (λ _ : (x = x) ⨿ ¬ P x, (x = x) ⨿ ¬ P x)
  (λ x1 : x = x,
   coprod_rect
     (λ _ : (x = x) ⨿ ¬ P x, (x = x) ⨿ ¬ P x)
     (λ ee : x = x, inl (! x1 @ ee))
     (λ phi : ¬ P x, inr phi) 
     (inl x0)) (λ _ : ¬ P x, inl x0) 
  (inl x0): (x = x) ⨿ ¬ P x
e1: cnew x = cnewx
e: cnewx = inl (idpath x)
isweq f
X: UU
P: X → UU
x: X
c: ∏ x' : X, (x = x') ⨿ ¬ P x'
f:= λ p : P x, x,, p: P x → ∑ y, P y
e0: ¬ P x
cnew:= λ x' : X,
coprod_rect
  (λ _ : (x = x) ⨿ ¬ P x, (x = x') ⨿ ¬ P x')
  (λ x0 : x = x,
   coprod_rect
     (λ _ : (x = x') ⨿ ¬ P x', (x = x') ⨿ ¬ P x')
     (λ ee : x = x', inl (! x0 @ ee))
     (λ phi : ¬ P x', inr phi) 
     (c x')) (λ _ : ¬ P x, c x') 
  (inr e0): ∏ x' : X, (x = x') ⨿ ¬ P x'
g:= λ pp : ∑ y, P y,
match cnew (pr1 pp) with
| inl e => transportb P e (pr2 pp)
| inr phi => fromempty (phi (pr2 pp))
end: (∑ y, P y) → P x
efg: ∏ pp : ∑ y, P y, f (g pp) = pp
cnewx:= coprod_rect
  (λ _ : (x = x) ⨿ ¬ P x, (x = x) ⨿ ¬ P x)
  (λ x0 : x = x,
   coprod_rect
     (λ _ : (x = x) ⨿ ¬ P x, (x = x) ⨿ ¬ P x)
     (λ ee : x = x, inl (! x0 @ ee))
     (λ phi : ¬ P x, inr phi) 
     (inr e0)) (λ _ : ¬ P x, inr e0) 
  (inr e0): (x = x) ⨿ ¬ P x
e1: cnew x = cnewx
isweq f
  apply (maponpaths (@ii1 (x = x) (P x -> empty)) (pathsinv0l x0)).
X: UU
P: X → UU
x: X
c: ∏ x' : X, (x = x') ⨿ ¬ P x'
f:= λ p : P x, x,, p: P x → ∑ y, P y
x0: x = x
cnew:= λ x' : X,
coprod_rect
  (λ _ : (x = x) ⨿ ¬ P x, (x = x') ⨿ ¬ P x')
  (λ x0 : x = x,
   coprod_rect
     (λ _ : (x = x') ⨿ ¬ P x', (x = x') ⨿ ¬ P x')
     (λ ee : x = x', inl (! x0 @ ee))
     (λ phi : ¬ P x', inr phi) 
     (c x')) (λ _ : ¬ P x, c x') 
  (inl x0): ∏ x' : X, (x = x') ⨿ ¬ P x'
g:= λ pp : ∑ y, P y,
match cnew (pr1 pp) with
| inl e => transportb P e (pr2 pp)
| inr phi => fromempty (phi (pr2 pp))
end: (∑ y, P y) → P x
efg: ∏ pp : ∑ y, P y, f (g pp) = pp
cnewx:= coprod_rect
  (λ _ : (x = x) ⨿ ¬ P x, (x = x) ⨿ ¬ P x)
  (λ x1 : x = x,
   coprod_rect
     (λ _ : (x = x) ⨿ ¬ P x, (x = x) ⨿ ¬ P x)
     (λ ee : x = x, inl (! x1 @ ee))
     (λ phi : ¬ P x, inr phi) 
     (inl x0)) (λ _ : ¬ P x, inl x0) 
  (inl x0): (x = x) ⨿ ¬ P x
e1: cnew x = cnewx
e: cnewx = inl (idpath x)
isweq f
X: UU
P: X → UU
x: X
c: ∏ x' : X, (x = x') ⨿ ¬ P x'
f:= λ p : P x, x,, p: P x → ∑ y, P y
e0: ¬ P x
cnew:= λ x' : X,
coprod_rect
  (λ _ : (x = x) ⨿ ¬ P x, (x = x') ⨿ ¬ P x')
  (λ x0 : x = x,
   coprod_rect
     (λ _ : (x = x') ⨿ ¬ P x', (x = x') ⨿ ¬ P x')
     (λ ee : x = x', inl (! x0 @ ee))
     (λ phi : ¬ P x', inr phi) 
     (c x')) (λ _ : ¬ P x, c x') 
  (inr e0): ∏ x' : X, (x = x') ⨿ ¬ P x'
g:= λ pp : ∑ y, P y,
match cnew (pr1 pp) with
| inl e => transportb P e (pr2 pp)
| inr phi => fromempty (phi (pr2 pp))
end: (∑ y, P y) → P x
efg: ∏ pp : ∑ y, P y, f (g pp) = pp
cnewx:= coprod_rect
  (λ _ : (x = x) ⨿ ¬ P x, (x = x) ⨿ ¬ P x)
  (λ x0 : x = x,
   coprod_rect
     (λ _ : (x = x) ⨿ ¬ P x, (x = x) ⨿ ¬ P x)
     (λ ee : x = x, inl (! x0 @ ee))
     (λ phi : ¬ P x, inr phi) 
     (inr e0)) (λ _ : ¬ P x, inr e0) 
  (inr e0): (x = x) ⨿ ¬ P x
e1: cnew x = cnewx
isweq f

  assert (egf : ∏ p: P x, (g (f p)) = p).
X: UU
P: X → UU
x: X
c: ∏ x' : X, (x = x') ⨿ ¬ P x'
f:= λ p : P x, x,, p: P x → ∑ y, P y
x0: x = x
cnew:= λ x' : X,
coprod_rect
  (λ _ : (x = x) ⨿ ¬ P x, (x = x') ⨿ ¬ P x')
  (λ x0 : x = x,
   coprod_rect
     (λ _ : (x = x') ⨿ ¬ P x', (x = x') ⨿ ¬ P x')
     (λ ee : x = x', inl (! x0 @ ee))
     (λ phi : ¬ P x', inr phi) 
     (c x')) (λ _ : ¬ P x, c x') 
  (inl x0): ∏ x' : X, (x = x') ⨿ ¬ P x'
g:= λ pp : ∑ y, P y,
match cnew (pr1 pp) with
| inl e => transportb P e (pr2 pp)
| inr phi => fromempty (phi (pr2 pp))
end: (∑ y, P y) → P x
efg: ∏ pp : ∑ y, P y, f (g pp) = pp
cnewx:= coprod_rect
  (λ _ : (x = x) ⨿ ¬ P x, (x = x) ⨿ ¬ P x)
  (λ x1 : x = x,
   coprod_rect
     (λ _ : (x = x) ⨿ ¬ P x, (x = x) ⨿ ¬ P x)
     (λ ee : x = x, inl (! x1 @ ee))
     (λ phi : ¬ P x, inr phi) 
     (inl x0)) (λ _ : ¬ P x, inl x0) 
  (inl x0): (x = x) ⨿ ¬ P x
e1: cnew x = cnewx
e: cnewx = inl (idpath x)
∏ p : P x, g (f p) = p
X: UU
P: X → UU
x: X
c: ∏ x' : X, (x = x') ⨿ ¬ P x'
f:= λ p : P x, x,, p: P x → ∑ y, P y
x0: x = x
cnew:= λ x' : X,
coprod_rect
  (λ _ : (x = x) ⨿ ¬ P x, (x = x') ⨿ ¬ P x')
  (λ x0 : x = x,
   coprod_rect
     (λ _ : (x = x') ⨿ ¬ P x', (x = x') ⨿ ¬ P x')
     (λ ee : x = x', inl (! x0 @ ee))
     (λ phi : ¬ P x', inr phi) 
     (c x')) (λ _ : ¬ P x, c x') 
  (inl x0): ∏ x' : X, (x = x') ⨿ ¬ P x'
g:= λ pp : ∑ y, P y,
match cnew (pr1 pp) with
| inl e => transportb P e (pr2 pp)
| inr phi => fromempty (phi (pr2 pp))
end: (∑ y, P y) → P x
efg: ∏ pp : ∑ y, P y, f (g pp) = pp
cnewx:= coprod_rect
  (λ _ : (x = x) ⨿ ¬ P x, (x = x) ⨿ ¬ P x)
  (λ x1 : x = x,
   coprod_rect
     (λ _ : (x = x) ⨿ ¬ P x, (x = x) ⨿ ¬ P x)
     (λ ee : x = x, inl (! x1 @ ee))
     (λ phi : ¬ P x, inr phi) 
     (inl x0)) (λ _ : ¬ P x, inl x0) 
  (inl x0): (x = x) ⨿ ¬ P x
e1: cnew x = cnewx
e: cnewx = inl (idpath x)
egf: ∏ p : P x, g (f p) = p
isweq f
X: UU
P: X → UU
x: X
c: ∏ x' : X, (x = x') ⨿ ¬ P x'
f:= λ p : P x, x,, p: P x → ∑ y, P y
e0: ¬ P x
cnew:= λ x' : X,
coprod_rect
  (λ _ : (x = x) ⨿ ¬ P x, (x = x') ⨿ ¬ P x')
  (λ x0 : x = x,
   coprod_rect
     (λ _ : (x = x') ⨿ ¬ P x', (x = x') ⨿ ¬ P x')
     (λ ee : x = x', inl (! x0 @ ee))
     (λ phi : ¬ P x', inr phi) 
     (c x')) (λ _ : ¬ P x, c x') 
  (inr e0): ∏ x' : X, (x = x') ⨿ ¬ P x'
g:= λ pp : ∑ y, P y,
match cnew (pr1 pp) with
| inl e => transportb P e (pr2 pp)
| inr phi => fromempty (phi (pr2 pp))
end: (∑ y, P y) → P x
efg: ∏ pp : ∑ y, P y, f (g pp) = pp
cnewx:= coprod_rect
  (λ _ : (x = x) ⨿ ¬ P x, (x = x) ⨿ ¬ P x)
  (λ x0 : x = x,
   coprod_rect
     (λ _ : (x = x) ⨿ ¬ P x, (x = x) ⨿ ¬ P x)
     (λ ee : x = x, inl (! x0 @ ee))
     (λ phi : ¬ P x, inr phi) 
     (inr e0)) (λ _ : ¬ P x, inr e0) 
  (inr e0): (x = x) ⨿ ¬ P x
e1: cnew x = cnewx
isweq f intro.
X: UU
P: X → UU
x: X
c: ∏ x' : X, (x = x') ⨿ ¬ P x'
f:= λ p : P x, x,, p: P x → ∑ y, P y
x0: x = x
cnew:= λ x' : X,
coprod_rect
  (λ _ : (x = x) ⨿ ¬ P x, (x = x') ⨿ ¬ P x')
  (λ x0 : x = x,
   coprod_rect
     (λ _ : (x = x') ⨿ ¬ P x', (x = x') ⨿ ¬ P x')
     (λ ee : x = x', inl (! x0 @ ee))
     (λ phi : ¬ P x', inr phi) 
     (c x')) (λ _ : ¬ P x, c x') 
  (inl x0): ∏ x' : X, (x = x') ⨿ ¬ P x'
g:= λ pp : ∑ y, P y,
match cnew (pr1 pp) with
| inl e => transportb P e (pr2 pp)
| inr phi => fromempty (phi (pr2 pp))
end: (∑ y, P y) → P x
efg: ∏ pp : ∑ y, P y, f (g pp) = pp
cnewx:= coprod_rect
  (λ _ : (x = x) ⨿ ¬ P x, (x = x) ⨿ ¬ P x)
  (λ x1 : x = x,
   coprod_rect
     (λ _ : (x = x) ⨿ ¬ P x, (x = x) ⨿ ¬ P x)
     (λ ee : x = x, inl (! x1 @ ee))
     (λ phi : ¬ P x, inr phi) 
     (inl x0)) (λ _ : ¬ P x, inl x0) 
  (inl x0): (x = x) ⨿ ¬ P x
e1: cnew x = cnewx
e: cnewx = inl (idpath x)
p: P x
g (f p) = p
X: UU
P: X → UU
x: X
c: ∏ x' : X, (x = x') ⨿ ¬ P x'
f:= λ p : P x, x,, p: P x → ∑ y, P y
x0: x = x
cnew:= λ x' : X,
coprod_rect
  (λ _ : (x = x) ⨿ ¬ P x, (x = x') ⨿ ¬ P x')
  (λ x0 : x = x,
   coprod_rect
     (λ _ : (x = x') ⨿ ¬ P x', (x = x') ⨿ ¬ P x')
     (λ ee : x = x', inl (! x0 @ ee))
     (λ phi : ¬ P x', inr phi) 
     (c x')) (λ _ : ¬ P x, c x') 
  (inl x0): ∏ x' : X, (x = x') ⨿ ¬ P x'
g:= λ pp : ∑ y, P y,
match cnew (pr1 pp) with
| inl e => transportb P e (pr2 pp)
| inr phi => fromempty (phi (pr2 pp))
end: (∑ y, P y) → P x
efg: ∏ pp : ∑ y, P y, f (g pp) = pp
cnewx:= coprod_rect
  (λ _ : (x = x) ⨿ ¬ P x, (x = x) ⨿ ¬ P x)
  (λ x1 : x = x,
   coprod_rect
     (λ _ : (x = x) ⨿ ¬ P x, (x = x) ⨿ ¬ P x)
     (λ ee : x = x, inl (! x1 @ ee))
     (λ phi : ¬ P x, inr phi) 
     (inl x0)) (λ _ : ¬ P x, inl x0) 
  (inl x0): (x = x) ⨿ ¬ P x
e1: cnew x = cnewx
e: cnewx = inl (idpath x)
egf: ∏ p : P x, g (f p) = p
isweq f
X: UU
P: X → UU
x: X
c: ∏ x' : X, (x = x') ⨿ ¬ P x'
f:= λ p : P x, x,, p: P x → ∑ y, P y
e0: ¬ P x
cnew:= λ x' : X,
coprod_rect
  (λ _ : (x = x) ⨿ ¬ P x, (x = x') ⨿ ¬ P x')
  (λ x0 : x = x,
   coprod_rect
     (λ _ : (x = x') ⨿ ¬ P x', (x = x') ⨿ ¬ P x')
     (λ ee : x = x', inl (! x0 @ ee))
     (λ phi : ¬ P x', inr phi) 
     (c x')) (λ _ : ¬ P x, c x') 
  (inr e0): ∏ x' : X, (x = x') ⨿ ¬ P x'
g:= λ pp : ∑ y, P y,
match cnew (pr1 pp) with
| inl e => transportb P e (pr2 pp)
| inr phi => fromempty (phi (pr2 pp))
end: (∑ y, P y) → P x
efg: ∏ pp : ∑ y, P y, f (g pp) = pp
cnewx:= coprod_rect
  (λ _ : (x = x) ⨿ ¬ P x, (x = x) ⨿ ¬ P x)
  (λ x0 : x = x,
   coprod_rect
     (λ _ : (x = x) ⨿ ¬ P x, (x = x) ⨿ ¬ P x)
     (λ ee : x = x, inl (! x0 @ ee))
     (λ phi : ¬ P x, inr phi) 
     (inr e0)) (λ _ : ¬ P x, inr e0) 
  (inr e0): (x = x) ⨿ ¬ P x
e1: cnew x = cnewx
isweq f simpl in g.
X: UU
P: X → UU
x: X
c: ∏ x' : X, (x = x') ⨿ ¬ P x'
f:= λ p : P x, x,, p: P x → ∑ y, P y
x0: x = x
cnew:= λ x' : X,
coprod_rect
  (λ _ : (x = x) ⨿ ¬ P x, (x = x') ⨿ ¬ P x')
  (λ x0 : x = x,
   coprod_rect
     (λ _ : (x = x') ⨿ ¬ P x', (x = x') ⨿ ¬ P x')
     (λ ee : x = x', inl (! x0 @ ee))
     (λ phi : ¬ P x', inr phi) 
     (c x')) (λ _ : ¬ P x, c x') 
  (inl x0): ∏ x' : X, (x = x') ⨿ ¬ P x'
g:= λ pp : ∑ y, P y,
match cnew (pr1 pp) with
| inl e => transportb P e (pr2 pp)
| inr phi => fromempty (phi (pr2 pp))
end: (∑ y, P y) → P x
efg: ∏ pp : ∑ y, P y, f (g pp) = pp
cnewx:= coprod_rect
  (λ _ : (x = x) ⨿ ¬ P x, (x = x) ⨿ ¬ P x)
  (λ x1 : x = x,
   coprod_rect
     (λ _ : (x = x) ⨿ ¬ P x, (x = x) ⨿ ¬ P x)
     (λ ee : x = x, inl (! x1 @ ee))
     (λ phi : ¬ P x, inr phi) 
     (inl x0)) (λ _ : ¬ P x, inl x0) 
  (inl x0): (x = x) ⨿ ¬ P x
e1: cnew x = cnewx
e: cnewx = inl (idpath x)
p: P x
g (f p) = p
X: UU
P: X → UU
x: X
c: ∏ x' : X, (x = x') ⨿ ¬ P x'
f:= λ p : P x, x,, p: P x → ∑ y, P y
x0: x = x
cnew:= λ x' : X,
coprod_rect
  (λ _ : (x = x) ⨿ ¬ P x, (x = x') ⨿ ¬ P x')
  (λ x0 : x = x,
   coprod_rect
     (λ _ : (x = x') ⨿ ¬ P x', (x = x') ⨿ ¬ P x')
     (λ ee : x = x', inl (! x0 @ ee))
     (λ phi : ¬ P x', inr phi) 
     (c x')) (λ _ : ¬ P x, c x') 
  (inl x0): ∏ x' : X, (x = x') ⨿ ¬ P x'
g:= λ pp : ∑ y, P y,
match cnew (pr1 pp) with
| inl e => transportb P e (pr2 pp)
| inr phi => fromempty (phi (pr2 pp))
end: (∑ y, P y) → P x
efg: ∏ pp : ∑ y, P y, f (g pp) = pp
cnewx:= coprod_rect
  (λ _ : (x = x) ⨿ ¬ P x, (x = x) ⨿ ¬ P x)
  (λ x1 : x = x,
   coprod_rect
     (λ _ : (x = x) ⨿ ¬ P x, (x = x) ⨿ ¬ P x)
     (λ ee : x = x, inl (! x1 @ ee))
     (λ phi : ¬ P x, inr phi) 
     (inl x0)) (λ _ : ¬ P x, inl x0) 
  (inl x0): (x = x) ⨿ ¬ P x
e1: cnew x = cnewx
e: cnewx = inl (idpath x)
egf: ∏ p : P x, g (f p) = p
isweq f
X: UU
P: X → UU
x: X
c: ∏ x' : X, (x = x') ⨿ ¬ P x'
f:= λ p : P x, x,, p: P x → ∑ y, P y
e0: ¬ P x
cnew:= λ x' : X,
coprod_rect
  (λ _ : (x = x) ⨿ ¬ P x, (x = x') ⨿ ¬ P x')
  (λ x0 : x = x,
   coprod_rect
     (λ _ : (x = x') ⨿ ¬ P x', (x = x') ⨿ ¬ P x')
     (λ ee : x = x', inl (! x0 @ ee))
     (λ phi : ¬ P x', inr phi) 
     (c x')) (λ _ : ¬ P x, c x') 
  (inr e0): ∏ x' : X, (x = x') ⨿ ¬ P x'
g:= λ pp : ∑ y, P y,
match cnew (pr1 pp) with
| inl e => transportb P e (pr2 pp)
| inr phi => fromempty (phi (pr2 pp))
end: (∑ y, P y) → P x
efg: ∏ pp : ∑ y, P y, f (g pp) = pp
cnewx:= coprod_rect
  (λ _ : (x = x) ⨿ ¬ P x, (x = x) ⨿ ¬ P x)
  (λ x0 : x = x,
   coprod_rect
     (λ _ : (x = x) ⨿ ¬ P x, (x = x) ⨿ ¬ P x)
     (λ ee : x = x, inl (! x0 @ ee))
     (λ phi : ¬ P x, inr phi) 
     (inr e0)) (λ _ : ¬ P x, inr e0) 
  (inr e0): (x = x) ⨿ ¬ P x
e1: cnew x = cnewx
isweq f
  unfold g.
X: UU
P: X → UU
x: X
c: ∏ x' : X, (x = x') ⨿ ¬ P x'
f:= λ p : P x, x,, p: P x → ∑ y, P y
x0: x = x
cnew:= λ x' : X,
coprod_rect
  (λ _ : (x = x) ⨿ ¬ P x, (x = x') ⨿ ¬ P x')
  (λ x0 : x = x,
   coprod_rect
     (λ _ : (x = x') ⨿ ¬ P x', (x = x') ⨿ ¬ P x')
     (λ ee : x = x', inl (! x0 @ ee))
     (λ phi : ¬ P x', inr phi) 
     (c x')) (λ _ : ¬ P x, c x') 
  (inl x0): ∏ x' : X, (x = x') ⨿ ¬ P x'
g:= λ pp : ∑ y, P y,
match cnew (pr1 pp) with
| inl e => transportb P e (pr2 pp)
| inr phi => fromempty (phi (pr2 pp))
end: (∑ y, P y) → P x
efg: ∏ pp : ∑ y, P y, f (g pp) = pp
cnewx:= coprod_rect
  (λ _ : (x = x) ⨿ ¬ P x, (x = x) ⨿ ¬ P x)
  (λ x1 : x = x,
   coprod_rect
     (λ _ : (x = x) ⨿ ¬ P x, (x = x) ⨿ ¬ P x)
     (λ ee : x = x, inl (! x1 @ ee))
     (λ phi : ¬ P x, inr phi) 
     (inl x0)) (λ _ : ¬ P x, inl x0) 
  (inl x0): (x = x) ⨿ ¬ P x
e1: cnew x = cnewx
e: cnewx = inl (idpath x)
p: P x
match cnew (pr1 (f p)) with
| inl e => transportb P e (pr2 (f p))
| inr phi => fromempty (phi (pr2 (f p)))
end = p
X: UU
P: X → UU
x: X
c: ∏ x' : X, (x = x') ⨿ ¬ P x'
f:= λ p : P x, x,, p: P x → ∑ y, P y
x0: x = x
cnew:= λ x' : X,
coprod_rect
  (λ _ : (x = x) ⨿ ¬ P x, (x = x') ⨿ ¬ P x')
  (λ x0 : x = x,
   coprod_rect
     (λ _ : (x = x') ⨿ ¬ P x', (x = x') ⨿ ¬ P x')
     (λ ee : x = x', inl (! x0 @ ee))
     (λ phi : ¬ P x', inr phi) 
     (c x')) (λ _ : ¬ P x, c x') 
  (inl x0): ∏ x' : X, (x = x') ⨿ ¬ P x'
g:= λ pp : ∑ y, P y,
match cnew (pr1 pp) with
| inl e => transportb P e (pr2 pp)
| inr phi => fromempty (phi (pr2 pp))
end: (∑ y, P y) → P x
efg: ∏ pp : ∑ y, P y, f (g pp) = pp
cnewx:= coprod_rect
  (λ _ : (x = x) ⨿ ¬ P x, (x = x) ⨿ ¬ P x)
  (λ x1 : x = x,
   coprod_rect
     (λ _ : (x = x) ⨿ ¬ P x, (x = x) ⨿ ¬ P x)
     (λ ee : x = x, inl (! x1 @ ee))
     (λ phi : ¬ P x, inr phi) 
     (inl x0)) (λ _ : ¬ P x, inl x0) 
  (inl x0): (x = x) ⨿ ¬ P x
e1: cnew x = cnewx
e: cnewx = inl (idpath x)
egf: ∏ p : P x, g (f p) = p
isweq f
X: UU
P: X → UU
x: X
c: ∏ x' : X, (x = x') ⨿ ¬ P x'
f:= λ p : P x, x,, p: P x → ∑ y, P y
e0: ¬ P x
cnew:= λ x' : X,
coprod_rect
  (λ _ : (x = x) ⨿ ¬ P x, (x = x') ⨿ ¬ P x')
  (λ x0 : x = x,
   coprod_rect
     (λ _ : (x = x') ⨿ ¬ P x', (x = x') ⨿ ¬ P x')
     (λ ee : x = x', inl (! x0 @ ee))
     (λ phi : ¬ P x', inr phi) 
     (c x')) (λ _ : ¬ P x, c x') 
  (inr e0): ∏ x' : X, (x = x') ⨿ ¬ P x'
g:= λ pp : ∑ y, P y,
match cnew (pr1 pp) with
| inl e => transportb P e (pr2 pp)
| inr phi => fromempty (phi (pr2 pp))
end: (∑ y, P y) → P x
efg: ∏ pp : ∑ y, P y, f (g pp) = pp
cnewx:= coprod_rect
  (λ _ : (x = x) ⨿ ¬ P x, (x = x) ⨿ ¬ P x)
  (λ x0 : x = x,
   coprod_rect
     (λ _ : (x = x) ⨿ ¬ P x, (x = x) ⨿ ¬ P x)
     (λ ee : x = x, inl (! x0 @ ee))
     (λ phi : ¬ P x, inr phi) 
     (inr e0)) (λ _ : ¬ P x, inr e0) 
  (inr e0): (x = x) ⨿ ¬ P x
e1: cnew x = cnewx
isweq f unfold f.
X: UU
P: X → UU
x: X
c: ∏ x' : X, (x = x') ⨿ ¬ P x'
f:= λ p : P x, x,, p: P x → ∑ y, P y
x0: x = x
cnew:= λ x' : X,
coprod_rect
  (λ _ : (x = x) ⨿ ¬ P x, (x = x') ⨿ ¬ P x')
  (λ x0 : x = x,
   coprod_rect
     (λ _ : (x = x') ⨿ ¬ P x', (x = x') ⨿ ¬ P x')
     (λ ee : x = x', inl (! x0 @ ee))
     (λ phi : ¬ P x', inr phi) 
     (c x')) (λ _ : ¬ P x, c x') 
  (inl x0): ∏ x' : X, (x = x') ⨿ ¬ P x'
g:= λ pp : ∑ y, P y,
match cnew (pr1 pp) with
| inl e => transportb P e (pr2 pp)
| inr phi => fromempty (phi (pr2 pp))
end: (∑ y, P y) → P x
efg: ∏ pp : ∑ y, P y, f (g pp) = pp
cnewx:= coprod_rect
  (λ _ : (x = x) ⨿ ¬ P x, (x = x) ⨿ ¬ P x)
  (λ x1 : x = x,
   coprod_rect
     (λ _ : (x = x) ⨿ ¬ P x, (x = x) ⨿ ¬ P x)
     (λ ee : x = x, inl (! x1 @ ee))
     (λ phi : ¬ P x, inr phi) 
     (inl x0)) (λ _ : ¬ P x, inl x0) 
  (inl x0): (x = x) ⨿ ¬ P x
e1: cnew x = cnewx
e: cnewx = inl (idpath x)
p: P x
match cnew (pr1 (x,, p)) with
| inl e => transportb P e (pr2 (x,, p))
| inr phi => fromempty (phi (pr2 (x,, p)))
end = p
X: UU
P: X → UU
x: X
c: ∏ x' : X, (x = x') ⨿ ¬ P x'
f:= λ p : P x, x,, p: P x → ∑ y, P y
x0: x = x
cnew:= λ x' : X,
coprod_rect
  (λ _ : (x = x) ⨿ ¬ P x, (x = x') ⨿ ¬ P x')
  (λ x0 : x = x,
   coprod_rect
     (λ _ : (x = x') ⨿ ¬ P x', (x = x') ⨿ ¬ P x')
     (λ ee : x = x', inl (! x0 @ ee))
     (λ phi : ¬ P x', inr phi) 
     (c x')) (λ _ : ¬ P x, c x') 
  (inl x0): ∏ x' : X, (x = x') ⨿ ¬ P x'
g:= λ pp : ∑ y, P y,
match cnew (pr1 pp) with
| inl e => transportb P e (pr2 pp)
| inr phi => fromempty (phi (pr2 pp))
end: (∑ y, P y) → P x
efg: ∏ pp : ∑ y, P y, f (g pp) = pp
cnewx:= coprod_rect
  (λ _ : (x = x) ⨿ ¬ P x, (x = x) ⨿ ¬ P x)
  (λ x1 : x = x,
   coprod_rect
     (λ _ : (x = x) ⨿ ¬ P x, (x = x) ⨿ ¬ P x)
     (λ ee : x = x, inl (! x1 @ ee))
     (λ phi : ¬ P x, inr phi) 
     (inl x0)) (λ _ : ¬ P x, inl x0) 
  (inl x0): (x = x) ⨿ ¬ P x
e1: cnew x = cnewx
e: cnewx = inl (idpath x)
egf: ∏ p : P x, g (f p) = p
isweq f
X: UU
P: X → UU
x: X
c: ∏ x' : X, (x = x') ⨿ ¬ P x'
f:= λ p : P x, x,, p: P x → ∑ y, P y
e0: ¬ P x
cnew:= λ x' : X,
coprod_rect
  (λ _ : (x = x) ⨿ ¬ P x, (x = x') ⨿ ¬ P x')
  (λ x0 : x = x,
   coprod_rect
     (λ _ : (x = x') ⨿ ¬ P x', (x = x') ⨿ ¬ P x')
     (λ ee : x = x', inl (! x0 @ ee))
     (λ phi : ¬ P x', inr phi) 
     (c x')) (λ _ : ¬ P x, c x') 
  (inr e0): ∏ x' : X, (x = x') ⨿ ¬ P x'
g:= λ pp : ∑ y, P y,
match cnew (pr1 pp) with
| inl e => transportb P e (pr2 pp)
| inr phi => fromempty (phi (pr2 pp))
end: (∑ y, P y) → P x
efg: ∏ pp : ∑ y, P y, f (g pp) = pp
cnewx:= coprod_rect
  (λ _ : (x = x) ⨿ ¬ P x, (x = x) ⨿ ¬ P x)
  (λ x0 : x = x,
   coprod_rect
     (λ _ : (x = x) ⨿ ¬ P x, (x = x) ⨿ ¬ P x)
     (λ ee : x = x, inl (! x0 @ ee))
     (λ phi : ¬ P x, inr phi) 
     (inr e0)) (λ _ : ¬ P x, inr e0) 
  (inr e0): (x = x) ⨿ ¬ P x
e1: cnew x = cnewx
isweq f simpl.
X: UU
P: X → UU
x: X
c: ∏ x' : X, (x = x') ⨿ ¬ P x'
f:= λ p : P x, x,, p: P x → ∑ y, P y
x0: x = x
cnew:= λ x' : X,
coprod_rect
  (λ _ : (x = x) ⨿ ¬ P x, (x = x') ⨿ ¬ P x')
  (λ x0 : x = x,
   coprod_rect
     (λ _ : (x = x') ⨿ ¬ P x', (x = x') ⨿ ¬ P x')
     (λ ee : x = x', inl (! x0 @ ee))
     (λ phi : ¬ P x', inr phi) 
     (c x')) (λ _ : ¬ P x, c x') 
  (inl x0): ∏ x' : X, (x = x') ⨿ ¬ P x'
g:= λ pp : ∑ y, P y,
match cnew (pr1 pp) with
| inl e => transportb P e (pr2 pp)
| inr phi => fromempty (phi (pr2 pp))
end: (∑ y, P y) → P x
efg: ∏ pp : ∑ y, P y, f (g pp) = pp
cnewx:= coprod_rect
  (λ _ : (x = x) ⨿ ¬ P x, (x = x) ⨿ ¬ P x)
  (λ x1 : x = x,
   coprod_rect
     (λ _ : (x = x) ⨿ ¬ P x, (x = x) ⨿ ¬ P x)
     (λ ee : x = x, inl (! x1 @ ee))
     (λ phi : ¬ P x, inr phi) 
     (inl x0)) (λ _ : ¬ P x, inl x0) 
  (inl x0): (x = x) ⨿ ¬ P x
e1: cnew x = cnewx
e: cnewx = inl (idpath x)
p: P x
match cnew x with
| inl e => transportb P e p
| inr phi => fromempty (phi p)
end = p
X: UU
P: X → UU
x: X
c: ∏ x' : X, (x = x') ⨿ ¬ P x'
f:= λ p : P x, x,, p: P x → ∑ y, P y
x0: x = x
cnew:= λ x' : X,
coprod_rect
  (λ _ : (x = x) ⨿ ¬ P x, (x = x') ⨿ ¬ P x')
  (λ x0 : x = x,
   coprod_rect
     (λ _ : (x = x') ⨿ ¬ P x', (x = x') ⨿ ¬ P x')
     (λ ee : x = x', inl (! x0 @ ee))
     (λ phi : ¬ P x', inr phi) 
     (c x')) (λ _ : ¬ P x, c x') 
  (inl x0): ∏ x' : X, (x = x') ⨿ ¬ P x'
g:= λ pp : ∑ y, P y,
match cnew (pr1 pp) with
| inl e => transportb P e (pr2 pp)
| inr phi => fromempty (phi (pr2 pp))
end: (∑ y, P y) → P x
efg: ∏ pp : ∑ y, P y, f (g pp) = pp
cnewx:= coprod_rect
  (λ _ : (x = x) ⨿ ¬ P x, (x = x) ⨿ ¬ P x)
  (λ x1 : x = x,
   coprod_rect
     (λ _ : (x = x) ⨿ ¬ P x, (x = x) ⨿ ¬ P x)
     (λ ee : x = x, inl (! x1 @ ee))
     (λ phi : ¬ P x, inr phi) 
     (inl x0)) (λ _ : ¬ P x, inl x0) 
  (inl x0): (x = x) ⨿ ¬ P x
e1: cnew x = cnewx
e: cnewx = inl (idpath x)
egf: ∏ p : P x, g (f p) = p
isweq f
X: UU
P: X → UU
x: X
c: ∏ x' : X, (x = x') ⨿ ¬ P x'
f:= λ p : P x, x,, p: P x → ∑ y, P y
e0: ¬ P x
cnew:= λ x' : X,
coprod_rect
  (λ _ : (x = x) ⨿ ¬ P x, (x = x') ⨿ ¬ P x')
  (λ x0 : x = x,
   coprod_rect
     (λ _ : (x = x') ⨿ ¬ P x', (x = x') ⨿ ¬ P x')
     (λ ee : x = x', inl (! x0 @ ee))
     (λ phi : ¬ P x', inr phi) 
     (c x')) (λ _ : ¬ P x, c x') 
  (inr e0): ∏ x' : X, (x = x') ⨿ ¬ P x'
g:= λ pp : ∑ y, P y,
match cnew (pr1 pp) with
| inl e => transportb P e (pr2 pp)
| inr phi => fromempty (phi (pr2 pp))
end: (∑ y, P y) → P x
efg: ∏ pp : ∑ y, P y, f (g pp) = pp
cnewx:= coprod_rect
  (λ _ : (x = x) ⨿ ¬ P x, (x = x) ⨿ ¬ P x)
  (λ x0 : x = x,
   coprod_rect
     (λ _ : (x = x) ⨿ ¬ P x, (x = x) ⨿ ¬ P x)
     (λ ee : x = x, inl (! x0 @ ee))
     (λ phi : ¬ P x, inr phi) 
     (inr e0)) (λ _ : ¬ P x, inr e0) 
  (inr e0): (x = x) ⨿ ¬ P x
e1: cnew x = cnewx
isweq f

  set (ff := λ cc:(x = x) ⨿ (P x -> empty),
               match cc with
               | ii1 e0 => transportb P e0 p
               | ii2 phi => fromempty  (phi p)
               end).
X: UU
P: X → UU
x: X
c: ∏ x' : X, (x = x') ⨿ ¬ P x'
f:= λ p : P x, x,, p: P x → ∑ y, P y
x0: x = x
cnew:= λ x' : X,
coprod_rect
  (λ _ : (x = x) ⨿ ¬ P x, (x = x') ⨿ ¬ P x')
  (λ x0 : x = x,
   coprod_rect
     (λ _ : (x = x') ⨿ ¬ P x', (x = x') ⨿ ¬ P x')
     (λ ee : x = x', inl (! x0 @ ee))
     (λ phi : ¬ P x', inr phi) 
     (c x')) (λ _ : ¬ P x, c x') 
  (inl x0): ∏ x' : X, (x = x') ⨿ ¬ P x'
g:= λ pp : ∑ y, P y,
match cnew (pr1 pp) with
| inl e => transportb P e (pr2 pp)
| inr phi => fromempty (phi (pr2 pp))
end: (∑ y, P y) → P x
efg: ∏ pp : ∑ y, P y, f (g pp) = pp
cnewx:= coprod_rect
  (λ _ : (x = x) ⨿ ¬ P x, (x = x) ⨿ ¬ P x)
  (λ x1 : x = x,
   coprod_rect
     (λ _ : (x = x) ⨿ ¬ P x, (x = x) ⨿ ¬ P x)
     (λ ee : x = x, inl (! x1 @ ee))
     (λ phi : ¬ P x, inr phi) 
     (inl x0)) (λ _ : ¬ P x, inl x0) 
  (inl x0): (x = x) ⨿ ¬ P x
e1: cnew x = cnewx
e: cnewx = inl (idpath x)
p: P x
ff:= λ cc : (x = x) ⨿ (P x → ∅),
match cc with
| inl e0 => transportb P e0 p
| inr phi => fromempty (phi p)
end: (x = x) ⨿ (P x → ∅) → P x
match cnew x with
| inl e => transportb P e p
| inr phi => fromempty (phi p)
end = p
X: UU
P: X → UU
x: X
c: ∏ x' : X, (x = x') ⨿ ¬ P x'
f:= λ p : P x, x,, p: P x → ∑ y, P y
x0: x = x
cnew:= λ x' : X,
coprod_rect
  (λ _ : (x = x) ⨿ ¬ P x, (x = x') ⨿ ¬ P x')
  (λ x0 : x = x,
   coprod_rect
     (λ _ : (x = x') ⨿ ¬ P x', (x = x') ⨿ ¬ P x')
     (λ ee : x = x', inl (! x0 @ ee))
     (λ phi : ¬ P x', inr phi) 
     (c x')) (λ _ : ¬ P x, c x') 
  (inl x0): ∏ x' : X, (x = x') ⨿ ¬ P x'
g:= λ pp : ∑ y, P y,
match cnew (pr1 pp) with
| inl e => transportb P e (pr2 pp)
| inr phi => fromempty (phi (pr2 pp))
end: (∑ y, P y) → P x
efg: ∏ pp : ∑ y, P y, f (g pp) = pp
cnewx:= coprod_rect
  (λ _ : (x = x) ⨿ ¬ P x, (x = x) ⨿ ¬ P x)
  (λ x1 : x = x,
   coprod_rect
     (λ _ : (x = x) ⨿ ¬ P x, (x = x) ⨿ ¬ P x)
     (λ ee : x = x, inl (! x1 @ ee))
     (λ phi : ¬ P x, inr phi) 
     (inl x0)) (λ _ : ¬ P x, inl x0) 
  (inl x0): (x = x) ⨿ ¬ P x
e1: cnew x = cnewx
e: cnewx = inl (idpath x)
egf: ∏ p : P x, g (f p) = p
isweq f
X: UU
P: X → UU
x: X
c: ∏ x' : X, (x = x') ⨿ ¬ P x'
f:= λ p : P x, x,, p: P x → ∑ y, P y
e0: ¬ P x
cnew:= λ x' : X,
coprod_rect
  (λ _ : (x = x) ⨿ ¬ P x, (x = x') ⨿ ¬ P x')
  (λ x0 : x = x,
   coprod_rect
     (λ _ : (x = x') ⨿ ¬ P x', (x = x') ⨿ ¬ P x')
     (λ ee : x = x', inl (! x0 @ ee))
     (λ phi : ¬ P x', inr phi) 
     (c x')) (λ _ : ¬ P x, c x') 
  (inr e0): ∏ x' : X, (x = x') ⨿ ¬ P x'
g:= λ pp : ∑ y, P y,
match cnew (pr1 pp) with
| inl e => transportb P e (pr2 pp)
| inr phi => fromempty (phi (pr2 pp))
end: (∑ y, P y) → P x
efg: ∏ pp : ∑ y, P y, f (g pp) = pp
cnewx:= coprod_rect
  (λ _ : (x = x) ⨿ ¬ P x, (x = x) ⨿ ¬ P x)
  (λ x0 : x = x,
   coprod_rect
     (λ _ : (x = x) ⨿ ¬ P x, (x = x) ⨿ ¬ P x)
     (λ ee : x = x, inl (! x0 @ ee))
     (λ phi : ¬ P x, inr phi) 
     (inr e0)) (λ _ : ¬ P x, inr e0) 
  (inr e0): (x = x) ⨿ ¬ P x
e1: cnew x = cnewx
isweq f
  assert (ee : (ff (cnewx)) = (ff (@ii1 (x = x) (P x -> empty) (idpath x)))).
X: UU
P: X → UU
x: X
c: ∏ x' : X, (x = x') ⨿ ¬ P x'
f:= λ p : P x, x,, p: P x → ∑ y, P y
x0: x = x
cnew:= λ x' : X,
coprod_rect
  (λ _ : (x = x) ⨿ ¬ P x, (x = x') ⨿ ¬ P x')
  (λ x0 : x = x,
   coprod_rect
     (λ _ : (x = x') ⨿ ¬ P x', (x = x') ⨿ ¬ P x')
     (λ ee : x = x', inl (! x0 @ ee))
     (λ phi : ¬ P x', inr phi) 
     (c x')) (λ _ : ¬ P x, c x') 
  (inl x0): ∏ x' : X, (x = x') ⨿ ¬ P x'
g:= λ pp : ∑ y, P y,
match cnew (pr1 pp) with
| inl e => transportb P e (pr2 pp)
| inr phi => fromempty (phi (pr2 pp))
end: (∑ y, P y) → P x
efg: ∏ pp : ∑ y, P y, f (g pp) = pp
cnewx:= coprod_rect
  (λ _ : (x = x) ⨿ ¬ P x, (x = x) ⨿ ¬ P x)
  (λ x1 : x = x,
   coprod_rect
     (λ _ : (x = x) ⨿ ¬ P x, (x = x) ⨿ ¬ P x)
     (λ ee : x = x, inl (! x1 @ ee))
     (λ phi : ¬ P x, inr phi) 
     (inl x0)) (λ _ : ¬ P x, inl x0) 
  (inl x0): (x = x) ⨿ ¬ P x
e1: cnew x = cnewx
e: cnewx = inl (idpath x)
p: P x
ff:= λ cc : (x = x) ⨿ (P x → ∅),
match cc with
| inl e0 => transportb P e0 p
| inr phi => fromempty (phi p)
end: (x = x) ⨿ (P x → ∅) → P x
ff cnewx = ff (inl (idpath x))
X: UU
P: X → UU
x: X
c: ∏ x' : X, (x = x') ⨿ ¬ P x'
f:= λ p : P x, x,, p: P x → ∑ y, P y
x0: x = x
cnew:= λ x' : X,
coprod_rect
  (λ _ : (x = x) ⨿ ¬ P x, (x = x') ⨿ ¬ P x')
  (λ x0 : x = x,
   coprod_rect
     (λ _ : (x = x') ⨿ ¬ P x', (x = x') ⨿ ¬ P x')
     (λ ee : x = x', inl (! x0 @ ee))
     (λ phi : ¬ P x', inr phi) 
     (c x')) (λ _ : ¬ P x, c x') 
  (inl x0): ∏ x' : X, (x = x') ⨿ ¬ P x'
g:= λ pp : ∑ y, P y,
match cnew (pr1 pp) with
| inl e => transportb P e (pr2 pp)
| inr phi => fromempty (phi (pr2 pp))
end: (∑ y, P y) → P x
efg: ∏ pp : ∑ y, P y, f (g pp) = pp
cnewx:= coprod_rect
  (λ _ : (x = x) ⨿ ¬ P x, (x = x) ⨿ ¬ P x)
  (λ x1 : x = x,
   coprod_rect
     (λ _ : (x = x) ⨿ ¬ P x, (x = x) ⨿ ¬ P x)
     (λ ee : x = x, inl (! x1 @ ee))
     (λ phi : ¬ P x, inr phi) 
     (inl x0)) (λ _ : ¬ P x, inl x0) 
  (inl x0): (x = x) ⨿ ¬ P x
e1: cnew x = cnewx
e: cnewx = inl (idpath x)
p: P x
ff:= λ cc : (x = x) ⨿ (P x → ∅),
match cc with
| inl e0 => transportb P e0 p
| inr phi => fromempty (phi p)
end: (x = x) ⨿ (P x → ∅) → P x
ee: ff cnewx = ff (inl (idpath x))
match cnew x with
| inl e => transportb P e p
| inr phi => fromempty (phi p)
end = p
X: UU
P: X → UU
x: X
c: ∏ x' : X, (x = x') ⨿ ¬ P x'
f:= λ p : P x, x,, p: P x → ∑ y, P y
x0: x = x
cnew:= λ x' : X,
coprod_rect
  (λ _ : (x = x) ⨿ ¬ P x, (x = x') ⨿ ¬ P x')
  (λ x0 : x = x,
   coprod_rect
     (λ _ : (x = x') ⨿ ¬ P x', (x = x') ⨿ ¬ P x')
     (λ ee : x = x', inl (! x0 @ ee))
     (λ phi : ¬ P x', inr phi) 
     (c x')) (λ _ : ¬ P x, c x') 
  (inl x0): ∏ x' : X, (x = x') ⨿ ¬ P x'
g:= λ pp : ∑ y, P y,
match cnew (pr1 pp) with
| inl e => transportb P e (pr2 pp)
| inr phi => fromempty (phi (pr2 pp))
end: (∑ y, P y) → P x
efg: ∏ pp : ∑ y, P y, f (g pp) = pp
cnewx:= coprod_rect
  (λ _ : (x = x) ⨿ ¬ P x, (x = x) ⨿ ¬ P x)
  (λ x1 : x = x,
   coprod_rect
     (λ _ : (x = x) ⨿ ¬ P x, (x = x) ⨿ ¬ P x)
     (λ ee : x = x, inl (! x1 @ ee))
     (λ phi : ¬ P x, inr phi) 
     (inl x0)) (λ _ : ¬ P x, inl x0) 
  (inl x0): (x = x) ⨿ ¬ P x
e1: cnew x = cnewx
e: cnewx = inl (idpath x)
egf: ∏ p : P x, g (f p) = p
isweq f
X: UU
P: X → UU
x: X
c: ∏ x' : X, (x = x') ⨿ ¬ P x'
f:= λ p : P x, x,, p: P x → ∑ y, P y
e0: ¬ P x
cnew:= λ x' : X,
coprod_rect
  (λ _ : (x = x) ⨿ ¬ P x, (x = x') ⨿ ¬ P x')
  (λ x0 : x = x,
   coprod_rect
     (λ _ : (x = x') ⨿ ¬ P x', (x = x') ⨿ ¬ P x')
     (λ ee : x = x', inl (! x0 @ ee))
     (λ phi : ¬ P x', inr phi) 
     (c x')) (λ _ : ¬ P x, c x') 
  (inr e0): ∏ x' : X, (x = x') ⨿ ¬ P x'
g:= λ pp : ∑ y, P y,
match cnew (pr1 pp) with
| inl e => transportb P e (pr2 pp)
| inr phi => fromempty (phi (pr2 pp))
end: (∑ y, P y) → P x
efg: ∏ pp : ∑ y, P y, f (g pp) = pp
cnewx:= coprod_rect
  (λ _ : (x = x) ⨿ ¬ P x, (x = x) ⨿ ¬ P x)
  (λ x0 : x = x,
   coprod_rect
     (λ _ : (x = x) ⨿ ¬ P x, (x = x) ⨿ ¬ P x)
     (λ ee : x = x, inl (! x0 @ ee))
     (λ phi : ¬ P x, inr phi) 
     (inr e0)) (λ _ : ¬ P x, inr e0) 
  (inr e0): (x = x) ⨿ ¬ P x
e1: cnew x = cnewx
isweq f
  apply (maponpaths ff e).
X: UU
P: X → UU
x: X
c: ∏ x' : X, (x = x') ⨿ ¬ P x'
f:= λ p : P x, x,, p: P x → ∑ y, P y
x0: x = x
cnew:= λ x' : X,
coprod_rect
  (λ _ : (x = x) ⨿ ¬ P x, (x = x') ⨿ ¬ P x')
  (λ x0 : x = x,
   coprod_rect
     (λ _ : (x = x') ⨿ ¬ P x', (x = x') ⨿ ¬ P x')
     (λ ee : x = x', inl (! x0 @ ee))
     (λ phi : ¬ P x', inr phi) 
     (c x')) (λ _ : ¬ P x, c x') 
  (inl x0): ∏ x' : X, (x = x') ⨿ ¬ P x'
g:= λ pp : ∑ y, P y,
match cnew (pr1 pp) with
| inl e => transportb P e (pr2 pp)
| inr phi => fromempty (phi (pr2 pp))
end: (∑ y, P y) → P x
efg: ∏ pp : ∑ y, P y, f (g pp) = pp
cnewx:= coprod_rect
  (λ _ : (x = x) ⨿ ¬ P x, (x = x) ⨿ ¬ P x)
  (λ x1 : x = x,
   coprod_rect
     (λ _ : (x = x) ⨿ ¬ P x, (x = x) ⨿ ¬ P x)
     (λ ee : x = x, inl (! x1 @ ee))
     (λ phi : ¬ P x, inr phi) 
     (inl x0)) (λ _ : ¬ P x, inl x0) 
  (inl x0): (x = x) ⨿ ¬ P x
e1: cnew x = cnewx
e: cnewx = inl (idpath x)
p: P x
ff:= λ cc : (x = x) ⨿ (P x → ∅),
match cc with
| inl e0 => transportb P e0 p
| inr phi => fromempty (phi p)
end: (x = x) ⨿ (P x → ∅) → P x
ee: ff cnewx = ff (inl (idpath x))
match cnew x with
| inl e => transportb P e p
| inr phi => fromempty (phi p)
end = p
X: UU
P: X → UU
x: X
c: ∏ x' : X, (x = x') ⨿ ¬ P x'
f:= λ p : P x, x,, p: P x → ∑ y, P y
x0: x = x
cnew:= λ x' : X,
coprod_rect
  (λ _ : (x = x) ⨿ ¬ P x, (x = x') ⨿ ¬ P x')
  (λ x0 : x = x,
   coprod_rect
     (λ _ : (x = x') ⨿ ¬ P x', (x = x') ⨿ ¬ P x')
     (λ ee : x = x', inl (! x0 @ ee))
     (λ phi : ¬ P x', inr phi) 
     (c x')) (λ _ : ¬ P x, c x') 
  (inl x0): ∏ x' : X, (x = x') ⨿ ¬ P x'
g:= λ pp : ∑ y, P y,
match cnew (pr1 pp) with
| inl e => transportb P e (pr2 pp)
| inr phi => fromempty (phi (pr2 pp))
end: (∑ y, P y) → P x
efg: ∏ pp : ∑ y, P y, f (g pp) = pp
cnewx:= coprod_rect
  (λ _ : (x = x) ⨿ ¬ P x, (x = x) ⨿ ¬ P x)
  (λ x1 : x = x,
   coprod_rect
     (λ _ : (x = x) ⨿ ¬ P x, (x = x) ⨿ ¬ P x)
     (λ ee : x = x, inl (! x1 @ ee))
     (λ phi : ¬ P x, inr phi) 
     (inl x0)) (λ _ : ¬ P x, inl x0) 
  (inl x0): (x = x) ⨿ ¬ P x
e1: cnew x = cnewx
e: cnewx = inl (idpath x)
egf: ∏ p : P x, g (f p) = p
isweq f
X: UU
P: X → UU
x: X
c: ∏ x' : X, (x = x') ⨿ ¬ P x'
f:= λ p : P x, x,, p: P x → ∑ y, P y
e0: ¬ P x
cnew:= λ x' : X,
coprod_rect
  (λ _ : (x = x) ⨿ ¬ P x, (x = x') ⨿ ¬ P x')
  (λ x0 : x = x,
   coprod_rect
     (λ _ : (x = x') ⨿ ¬ P x', (x = x') ⨿ ¬ P x')
     (λ ee : x = x', inl (! x0 @ ee))
     (λ phi : ¬ P x', inr phi) 
     (c x')) (λ _ : ¬ P x, c x') 
  (inr e0): ∏ x' : X, (x = x') ⨿ ¬ P x'
g:= λ pp : ∑ y, P y,
match cnew (pr1 pp) with
| inl e => transportb P e (pr2 pp)
| inr phi => fromempty (phi (pr2 pp))
end: (∑ y, P y) → P x
efg: ∏ pp : ∑ y, P y, f (g pp) = pp
cnewx:= coprod_rect
  (λ _ : (x = x) ⨿ ¬ P x, (x = x) ⨿ ¬ P x)
  (λ x0 : x = x,
   coprod_rect
     (λ _ : (x = x) ⨿ ¬ P x, (x = x) ⨿ ¬ P x)
     (λ ee : x = x, inl (! x0 @ ee))
     (λ phi : ¬ P x, inr phi) 
     (inr e0)) (λ _ : ¬ P x, inr e0) 
  (inr e0): (x = x) ⨿ ¬ P x
e1: cnew x = cnewx
isweq f
  assert (eee : (ff (@ii1 (x = x) (P x -> empty) (idpath x))) = p).
X: UU
P: X → UU
x: X
c: ∏ x' : X, (x = x') ⨿ ¬ P x'
f:= λ p : P x, x,, p: P x → ∑ y, P y
x0: x = x
cnew:= λ x' : X,
coprod_rect
  (λ _ : (x = x) ⨿ ¬ P x, (x = x') ⨿ ¬ P x')
  (λ x0 : x = x,
   coprod_rect
     (λ _ : (x = x') ⨿ ¬ P x', (x = x') ⨿ ¬ P x')
     (λ ee : x = x', inl (! x0 @ ee))
     (λ phi : ¬ P x', inr phi) 
     (c x')) (λ _ : ¬ P x, c x') 
  (inl x0): ∏ x' : X, (x = x') ⨿ ¬ P x'
g:= λ pp : ∑ y, P y,
match cnew (pr1 pp) with
| inl e => transportb P e (pr2 pp)
| inr phi => fromempty (phi (pr2 pp))
end: (∑ y, P y) → P x
efg: ∏ pp : ∑ y, P y, f (g pp) = pp
cnewx:= coprod_rect
  (λ _ : (x = x) ⨿ ¬ P x, (x = x) ⨿ ¬ P x)
  (λ x1 : x = x,
   coprod_rect
     (λ _ : (x = x) ⨿ ¬ P x, (x = x) ⨿ ¬ P x)
     (λ ee : x = x, inl (! x1 @ ee))
     (λ phi : ¬ P x, inr phi) 
     (inl x0)) (λ _ : ¬ P x, inl x0) 
  (inl x0): (x = x) ⨿ ¬ P x
e1: cnew x = cnewx
e: cnewx = inl (idpath x)
p: P x
ff:= λ cc : (x = x) ⨿ (P x → ∅),
match cc with
| inl e0 => transportb P e0 p
| inr phi => fromempty (phi p)
end: (x = x) ⨿ (P x → ∅) → P x
ee: ff cnewx = ff (inl (idpath x))
ff (inl (idpath x)) = p
X: UU
P: X → UU
x: X
c: ∏ x' : X, (x = x') ⨿ ¬ P x'
f:= λ p : P x, x,, p: P x → ∑ y, P y
x0: x = x
cnew:= λ x' : X,
coprod_rect
  (λ _ : (x = x) ⨿ ¬ P x, (x = x') ⨿ ¬ P x')
  (λ x0 : x = x,
   coprod_rect
     (λ _ : (x = x') ⨿ ¬ P x', (x = x') ⨿ ¬ P x')
     (λ ee : x = x', inl (! x0 @ ee))
     (λ phi : ¬ P x', inr phi) 
     (c x')) (λ _ : ¬ P x, c x') 
  (inl x0): ∏ x' : X, (x = x') ⨿ ¬ P x'
g:= λ pp : ∑ y, P y,
match cnew (pr1 pp) with
| inl e => transportb P e (pr2 pp)
| inr phi => fromempty (phi (pr2 pp))
end: (∑ y, P y) → P x
efg: ∏ pp : ∑ y, P y, f (g pp) = pp
cnewx:= coprod_rect
  (λ _ : (x = x) ⨿ ¬ P x, (x = x) ⨿ ¬ P x)
  (λ x1 : x = x,
   coprod_rect
     (λ _ : (x = x) ⨿ ¬ P x, (x = x) ⨿ ¬ P x)
     (λ ee : x = x, inl (! x1 @ ee))
     (λ phi : ¬ P x, inr phi) 
     (inl x0)) (λ _ : ¬ P x, inl x0) 
  (inl x0): (x = x) ⨿ ¬ P x
e1: cnew x = cnewx
e: cnewx = inl (idpath x)
p: P x
ff:= λ cc : (x = x) ⨿ (P x → ∅),
match cc with
| inl e0 => transportb P e0 p
| inr phi => fromempty (phi p)
end: (x = x) ⨿ (P x → ∅) → P x
ee: ff cnewx = ff (inl (idpath x))
eee: ff (inl (idpath x)) = p
match cnew x with
| inl e => transportb P e p
| inr phi => fromempty (phi p)
end = p
X: UU
P: X → UU
x: X
c: ∏ x' : X, (x = x') ⨿ ¬ P x'
f:= λ p : P x, x,, p: P x → ∑ y, P y
x0: x = x
cnew:= λ x' : X,
coprod_rect
  (λ _ : (x = x) ⨿ ¬ P x, (x = x') ⨿ ¬ P x')
  (λ x0 : x = x,
   coprod_rect
     (λ _ : (x = x') ⨿ ¬ P x', (x = x') ⨿ ¬ P x')
     (λ ee : x = x', inl (! x0 @ ee))
     (λ phi : ¬ P x', inr phi) 
     (c x')) (λ _ : ¬ P x, c x') 
  (inl x0): ∏ x' : X, (x = x') ⨿ ¬ P x'
g:= λ pp : ∑ y, P y,
match cnew (pr1 pp) with
| inl e => transportb P e (pr2 pp)
| inr phi => fromempty (phi (pr2 pp))
end: (∑ y, P y) → P x
efg: ∏ pp : ∑ y, P y, f (g pp) = pp
cnewx:= coprod_rect
  (λ _ : (x = x) ⨿ ¬ P x, (x = x) ⨿ ¬ P x)
  (λ x1 : x = x,
   coprod_rect
     (λ _ : (x = x) ⨿ ¬ P x, (x = x) ⨿ ¬ P x)
     (λ ee : x = x, inl (! x1 @ ee))
     (λ phi : ¬ P x, inr phi) 
     (inl x0)) (λ _ : ¬ P x, inl x0) 
  (inl x0): (x = x) ⨿ ¬ P x
e1: cnew x = cnewx
e: cnewx = inl (idpath x)
egf: ∏ p : P x, g (f p) = p
isweq f
X: UU
P: X → UU
x: X
c: ∏ x' : X, (x = x') ⨿ ¬ P x'
f:= λ p : P x, x,, p: P x → ∑ y, P y
e0: ¬ P x
cnew:= λ x' : X,
coprod_rect
  (λ _ : (x = x) ⨿ ¬ P x, (x = x') ⨿ ¬ P x')
  (λ x0 : x = x,
   coprod_rect
     (λ _ : (x = x') ⨿ ¬ P x', (x = x') ⨿ ¬ P x')
     (λ ee : x = x', inl (! x0 @ ee))
     (λ phi : ¬ P x', inr phi) 
     (c x')) (λ _ : ¬ P x, c x') 
  (inr e0): ∏ x' : X, (x = x') ⨿ ¬ P x'
g:= λ pp : ∑ y, P y,
match cnew (pr1 pp) with
| inl e => transportb P e (pr2 pp)
| inr phi => fromempty (phi (pr2 pp))
end: (∑ y, P y) → P x
efg: ∏ pp : ∑ y, P y, f (g pp) = pp
cnewx:= coprod_rect
  (λ _ : (x = x) ⨿ ¬ P x, (x = x) ⨿ ¬ P x)
  (λ x0 : x = x,
   coprod_rect
     (λ _ : (x = x) ⨿ ¬ P x, (x = x) ⨿ ¬ P x)
     (λ ee : x = x, inl (! x0 @ ee))
     (λ phi : ¬ P x, inr phi) 
     (inr e0)) (λ _ : ¬ P x, inr e0) 
  (inr e0): (x = x) ⨿ ¬ P x
e1: cnew x = cnewx
isweq f apply idpath.
X: UU
P: X → UU
x: X
c: ∏ x' : X, (x = x') ⨿ ¬ P x'
f:= λ p : P x, x,, p: P x → ∑ y, P y
x0: x = x
cnew:= λ x' : X,
coprod_rect
  (λ _ : (x = x) ⨿ ¬ P x, (x = x') ⨿ ¬ P x')
  (λ x0 : x = x,
   coprod_rect
     (λ _ : (x = x') ⨿ ¬ P x', (x = x') ⨿ ¬ P x')
     (λ ee : x = x', inl (! x0 @ ee))
     (λ phi : ¬ P x', inr phi) 
     (c x')) (λ _ : ¬ P x, c x') 
  (inl x0): ∏ x' : X, (x = x') ⨿ ¬ P x'
g:= λ pp : ∑ y, P y,
match cnew (pr1 pp) with
| inl e => transportb P e (pr2 pp)
| inr phi => fromempty (phi (pr2 pp))
end: (∑ y, P y) → P x
efg: ∏ pp : ∑ y, P y, f (g pp) = pp
cnewx:= coprod_rect
  (λ _ : (x = x) ⨿ ¬ P x, (x = x) ⨿ ¬ P x)
  (λ x1 : x = x,
   coprod_rect
     (λ _ : (x = x) ⨿ ¬ P x, (x = x) ⨿ ¬ P x)
     (λ ee : x = x, inl (! x1 @ ee))
     (λ phi : ¬ P x, inr phi) 
     (inl x0)) (λ _ : ¬ P x, inl x0) 
  (inl x0): (x = x) ⨿ ¬ P x
e1: cnew x = cnewx
e: cnewx = inl (idpath x)
p: P x
ff:= λ cc : (x = x) ⨿ (P x → ∅),
match cc with
| inl e0 => transportb P e0 p
| inr phi => fromempty (phi p)
end: (x = x) ⨿ (P x → ∅) → P x
ee: ff cnewx = ff (inl (idpath x))
eee: ff (inl (idpath x)) = p
match cnew x with
| inl e => transportb P e p
| inr phi => fromempty (phi p)
end = p
X: UU
P: X → UU
x: X
c: ∏ x' : X, (x = x') ⨿ ¬ P x'
f:= λ p : P x, x,, p: P x → ∑ y, P y
x0: x = x
cnew:= λ x' : X,
coprod_rect
  (λ _ : (x = x) ⨿ ¬ P x, (x = x') ⨿ ¬ P x')
  (λ x0 : x = x,
   coprod_rect
     (λ _ : (x = x') ⨿ ¬ P x', (x = x') ⨿ ¬ P x')
     (λ ee : x = x', inl (! x0 @ ee))
     (λ phi : ¬ P x', inr phi) 
     (c x')) (λ _ : ¬ P x, c x') 
  (inl x0): ∏ x' : X, (x = x') ⨿ ¬ P x'
g:= λ pp : ∑ y, P y,
match cnew (pr1 pp) with
| inl e => transportb P e (pr2 pp)
| inr phi => fromempty (phi (pr2 pp))
end: (∑ y, P y) → P x
efg: ∏ pp : ∑ y, P y, f (g pp) = pp
cnewx:= coprod_rect
  (λ _ : (x = x) ⨿ ¬ P x, (x = x) ⨿ ¬ P x)
  (λ x1 : x = x,
   coprod_rect
     (λ _ : (x = x) ⨿ ¬ P x, (x = x) ⨿ ¬ P x)
     (λ ee : x = x, inl (! x1 @ ee))
     (λ phi : ¬ P x, inr phi) 
     (inl x0)) (λ _ : ¬ P x, inl x0) 
  (inl x0): (x = x) ⨿ ¬ P x
e1: cnew x = cnewx
e: cnewx = inl (idpath x)
egf: ∏ p : P x, g (f p) = p
isweq f
X: UU
P: X → UU
x: X
c: ∏ x' : X, (x = x') ⨿ ¬ P x'
f:= λ p : P x, x,, p: P x → ∑ y, P y
e0: ¬ P x
cnew:= λ x' : X,
coprod_rect
  (λ _ : (x = x) ⨿ ¬ P x, (x = x') ⨿ ¬ P x')
  (λ x0 : x = x,
   coprod_rect
     (λ _ : (x = x') ⨿ ¬ P x', (x = x') ⨿ ¬ P x')
     (λ ee : x = x', inl (! x0 @ ee))
     (λ phi : ¬ P x', inr phi) 
     (c x')) (λ _ : ¬ P x, c x') 
  (inr e0): ∏ x' : X, (x = x') ⨿ ¬ P x'
g:= λ pp : ∑ y, P y,
match cnew (pr1 pp) with
| inl e => transportb P e (pr2 pp)
| inr phi => fromempty (phi (pr2 pp))
end: (∑ y, P y) → P x
efg: ∏ pp : ∑ y, P y, f (g pp) = pp
cnewx:= coprod_rect
  (λ _ : (x = x) ⨿ ¬ P x, (x = x) ⨿ ¬ P x)
  (λ x0 : x = x,
   coprod_rect
     (λ _ : (x = x) ⨿ ¬ P x, (x = x) ⨿ ¬ P x)
     (λ ee : x = x, inl (! x0 @ ee))
     (λ phi : ¬ P x, inr phi) 
     (inr e0)) (λ _ : ¬ P x, inr e0) 
  (inr e0): (x = x) ⨿ ¬ P x
e1: cnew x = cnewx
isweq f
  fold (ff (cnew x)).
X: UU
P: X → UU
x: X
c: ∏ x' : X, (x = x') ⨿ ¬ P x'
f:= λ p : P x, x,, p: P x → ∑ y, P y
x0: x = x
cnew:= λ x' : X,
coprod_rect
  (λ _ : (x = x) ⨿ ¬ P x, (x = x') ⨿ ¬ P x')
  (λ x0 : x = x,
   coprod_rect
     (λ _ : (x = x') ⨿ ¬ P x', (x = x') ⨿ ¬ P x')
     (λ ee : x = x', inl (! x0 @ ee))
     (λ phi : ¬ P x', inr phi) 
     (c x')) (λ _ : ¬ P x, c x') 
  (inl x0): ∏ x' : X, (x = x') ⨿ ¬ P x'
g:= λ pp : ∑ y, P y,
match cnew (pr1 pp) with
| inl e => transportb P e (pr2 pp)
| inr phi => fromempty (phi (pr2 pp))
end: (∑ y, P y) → P x
efg: ∏ pp : ∑ y, P y, f (g pp) = pp
cnewx:= coprod_rect
  (λ _ : (x = x) ⨿ ¬ P x, (x = x) ⨿ ¬ P x)
  (λ x1 : x = x,
   coprod_rect
     (λ _ : (x = x) ⨿ ¬ P x, (x = x) ⨿ ¬ P x)
     (λ ee : x = x, inl (! x1 @ ee))
     (λ phi : ¬ P x, inr phi) 
     (inl x0)) (λ _ : ¬ P x, inl x0) 
  (inl x0): (x = x) ⨿ ¬ P x
e1: cnew x = cnewx
e: cnewx = inl (idpath x)
p: P x
ff:= λ cc : (x = x) ⨿ (P x → ∅),
match cc with
| inl e0 => transportb P e0 p
| inr phi => fromempty (phi p)
end: (x = x) ⨿ (P x → ∅) → P x
ee: ff cnewx = ff (inl (idpath x))
eee: ff (inl (idpath x)) = p
match cnew x with
| inl e => transportb P e p
| inr phi => fromempty (phi p)
end = p
X: UU
P: X → UU
x: X
c: ∏ x' : X, (x = x') ⨿ ¬ P x'
f:= λ p : P x, x,, p: P x → ∑ y, P y
x0: x = x
cnew:= λ x' : X,
coprod_rect
  (λ _ : (x = x) ⨿ ¬ P x, (x = x') ⨿ ¬ P x')
  (λ x0 : x = x,
   coprod_rect
     (λ _ : (x = x') ⨿ ¬ P x', (x = x') ⨿ ¬ P x')
     (λ ee : x = x', inl (! x0 @ ee))
     (λ phi : ¬ P x', inr phi) 
     (c x')) (λ _ : ¬ P x, c x') 
  (inl x0): ∏ x' : X, (x = x') ⨿ ¬ P x'
g:= λ pp : ∑ y, P y,
match cnew (pr1 pp) with
| inl e => transportb P e (pr2 pp)
| inr phi => fromempty (phi (pr2 pp))
end: (∑ y, P y) → P x
efg: ∏ pp : ∑ y, P y, f (g pp) = pp
cnewx:= coprod_rect
  (λ _ : (x = x) ⨿ ¬ P x, (x = x) ⨿ ¬ P x)
  (λ x1 : x = x,
   coprod_rect
     (λ _ : (x = x) ⨿ ¬ P x, (x = x) ⨿ ¬ P x)
     (λ ee : x = x, inl (! x1 @ ee))
     (λ phi : ¬ P x, inr phi) 
     (inl x0)) (λ _ : ¬ P x, inl x0) 
  (inl x0): (x = x) ⨿ ¬ P x
e1: cnew x = cnewx
e: cnewx = inl (idpath x)
egf: ∏ p : P x, g (f p) = p
isweq f
X: UU
P: X → UU
x: X
c: ∏ x' : X, (x = x') ⨿ ¬ P x'
f:= λ p : P x, x,, p: P x → ∑ y, P y
e0: ¬ P x
cnew:= λ x' : X,
coprod_rect
  (λ _ : (x = x) ⨿ ¬ P x, (x = x') ⨿ ¬ P x')
  (λ x0 : x = x,
   coprod_rect
     (λ _ : (x = x') ⨿ ¬ P x', (x = x') ⨿ ¬ P x')
     (λ ee : x = x', inl (! x0 @ ee))
     (λ phi : ¬ P x', inr phi) 
     (c x')) (λ _ : ¬ P x, c x') 
  (inr e0): ∏ x' : X, (x = x') ⨿ ¬ P x'
g:= λ pp : ∑ y, P y,
match cnew (pr1 pp) with
| inl e => transportb P e (pr2 pp)
| inr phi => fromempty (phi (pr2 pp))
end: (∑ y, P y) → P x
efg: ∏ pp : ∑ y, P y, f (g pp) = pp
cnewx:= coprod_rect
  (λ _ : (x = x) ⨿ ¬ P x, (x = x) ⨿ ¬ P x)
  (λ x0 : x = x,
   coprod_rect
     (λ _ : (x = x) ⨿ ¬ P x, (x = x) ⨿ ¬ P x)
     (λ ee : x = x, inl (! x0 @ ee))
     (λ phi : ¬ P x, inr phi) 
     (inr e0)) (λ _ : ¬ P x, inr e0) 
  (inr e0): (x = x) ⨿ ¬ P x
e1: cnew x = cnewx
isweq f
  assert (e2 : (ff (cnew x)) = (ff cnewx)).
X: UU
P: X → UU
x: X
c: ∏ x' : X, (x = x') ⨿ ¬ P x'
f:= λ p : P x, x,, p: P x → ∑ y, P y
x0: x = x
cnew:= λ x' : X,
coprod_rect
  (λ _ : (x = x) ⨿ ¬ P x, (x = x') ⨿ ¬ P x')
  (λ x0 : x = x,
   coprod_rect
     (λ _ : (x = x') ⨿ ¬ P x', (x = x') ⨿ ¬ P x')
     (λ ee : x = x', inl (! x0 @ ee))
     (λ phi : ¬ P x', inr phi) 
     (c x')) (λ _ : ¬ P x, c x') 
  (inl x0): ∏ x' : X, (x = x') ⨿ ¬ P x'
g:= λ pp : ∑ y, P y,
match cnew (pr1 pp) with
| inl e => transportb P e (pr2 pp)
| inr phi => fromempty (phi (pr2 pp))
end: (∑ y, P y) → P x
efg: ∏ pp : ∑ y, P y, f (g pp) = pp
cnewx:= coprod_rect
  (λ _ : (x = x) ⨿ ¬ P x, (x = x) ⨿ ¬ P x)
  (λ x1 : x = x,
   coprod_rect
     (λ _ : (x = x) ⨿ ¬ P x, (x = x) ⨿ ¬ P x)
     (λ ee : x = x, inl (! x1 @ ee))
     (λ phi : ¬ P x, inr phi) 
     (inl x0)) (λ _ : ¬ P x, inl x0) 
  (inl x0): (x = x) ⨿ ¬ P x
e1: cnew x = cnewx
e: cnewx = inl (idpath x)
p: P x
ff:= λ cc : (x = x) ⨿ (P x → ∅),
match cc with
| inl e0 => transportb P e0 p
| inr phi => fromempty (phi p)
end: (x = x) ⨿ (P x → ∅) → P x
ee: ff cnewx = ff (inl (idpath x))
eee: ff (inl (idpath x)) = p
ff (cnew x) = ff cnewx
X: UU
P: X → UU
x: X
c: ∏ x' : X, (x = x') ⨿ ¬ P x'
f:= λ p : P x, x,, p: P x → ∑ y, P y
x0: x = x
cnew:= λ x' : X,
coprod_rect
  (λ _ : (x = x) ⨿ ¬ P x, (x = x') ⨿ ¬ P x')
  (λ x0 : x = x,
   coprod_rect
     (λ _ : (x = x') ⨿ ¬ P x', (x = x') ⨿ ¬ P x')
     (λ ee : x = x', inl (! x0 @ ee))
     (λ phi : ¬ P x', inr phi) 
     (c x')) (λ _ : ¬ P x, c x') 
  (inl x0): ∏ x' : X, (x = x') ⨿ ¬ P x'
g:= λ pp : ∑ y, P y,
match cnew (pr1 pp) with
| inl e => transportb P e (pr2 pp)
| inr phi => fromempty (phi (pr2 pp))
end: (∑ y, P y) → P x
efg: ∏ pp : ∑ y, P y, f (g pp) = pp
cnewx:= coprod_rect
  (λ _ : (x = x) ⨿ ¬ P x, (x = x) ⨿ ¬ P x)
  (λ x1 : x = x,
   coprod_rect
     (λ _ : (x = x) ⨿ ¬ P x, (x = x) ⨿ ¬ P x)
     (λ ee : x = x, inl (! x1 @ ee))
     (λ phi : ¬ P x, inr phi) 
     (inl x0)) (λ _ : ¬ P x, inl x0) 
  (inl x0): (x = x) ⨿ ¬ P x
e1: cnew x = cnewx
e: cnewx = inl (idpath x)
p: P x
ff:= λ cc : (x = x) ⨿ (P x → ∅),
match cc with
| inl e0 => transportb P e0 p
| inr phi => fromempty (phi p)
end: (x = x) ⨿ (P x → ∅) → P x
ee: ff cnewx = ff (inl (idpath x))
eee: ff (inl (idpath x)) = p
e2: ff (cnew x) = ff cnewx
match cnew x with
| inl e => transportb P e p
| inr phi => fromempty (phi p)
end = p
X: UU
P: X → UU
x: X
c: ∏ x' : X, (x = x') ⨿ ¬ P x'
f:= λ p : P x, x,, p: P x → ∑ y, P y
x0: x = x
cnew:= λ x' : X,
coprod_rect
  (λ _ : (x = x) ⨿ ¬ P x, (x = x') ⨿ ¬ P x')
  (λ x0 : x = x,
   coprod_rect
     (λ _ : (x = x') ⨿ ¬ P x', (x = x') ⨿ ¬ P x')
     (λ ee : x = x', inl (! x0 @ ee))
     (λ phi : ¬ P x', inr phi) 
     (c x')) (λ _ : ¬ P x, c x') 
  (inl x0): ∏ x' : X, (x = x') ⨿ ¬ P x'
g:= λ pp : ∑ y, P y,
match cnew (pr1 pp) with
| inl e => transportb P e (pr2 pp)
| inr phi => fromempty (phi (pr2 pp))
end: (∑ y, P y) → P x
efg: ∏ pp : ∑ y, P y, f (g pp) = pp
cnewx:= coprod_rect
  (λ _ : (x = x) ⨿ ¬ P x, (x = x) ⨿ ¬ P x)
  (λ x1 : x = x,
   coprod_rect
     (λ _ : (x = x) ⨿ ¬ P x, (x = x) ⨿ ¬ P x)
     (λ ee : x = x, inl (! x1 @ ee))
     (λ phi : ¬ P x, inr phi) 
     (inl x0)) (λ _ : ¬ P x, inl x0) 
  (inl x0): (x = x) ⨿ ¬ P x
e1: cnew x = cnewx
e: cnewx = inl (idpath x)
egf: ∏ p : P x, g (f p) = p
isweq f
X: UU
P: X → UU
x: X
c: ∏ x' : X, (x = x') ⨿ ¬ P x'
f:= λ p : P x, x,, p: P x → ∑ y, P y
e0: ¬ P x
cnew:= λ x' : X,
coprod_rect
  (λ _ : (x = x) ⨿ ¬ P x, (x = x') ⨿ ¬ P x')
  (λ x0 : x = x,
   coprod_rect
     (λ _ : (x = x') ⨿ ¬ P x', (x = x') ⨿ ¬ P x')
     (λ ee : x = x', inl (! x0 @ ee))
     (λ phi : ¬ P x', inr phi) 
     (c x')) (λ _ : ¬ P x, c x') 
  (inr e0): ∏ x' : X, (x = x') ⨿ ¬ P x'
g:= λ pp : ∑ y, P y,
match cnew (pr1 pp) with
| inl e => transportb P e (pr2 pp)
| inr phi => fromempty (phi (pr2 pp))
end: (∑ y, P y) → P x
efg: ∏ pp : ∑ y, P y, f (g pp) = pp
cnewx:= coprod_rect
  (λ _ : (x = x) ⨿ ¬ P x, (x = x) ⨿ ¬ P x)
  (λ x0 : x = x,
   coprod_rect
     (λ _ : (x = x) ⨿ ¬ P x, (x = x) ⨿ ¬ P x)
     (λ ee : x = x, inl (! x0 @ ee))
     (λ phi : ¬ P x, inr phi) 
     (inr e0)) (λ _ : ¬ P x, inr e0) 
  (inr e0): (x = x) ⨿ ¬ P x
e1: cnew x = cnewx
isweq f apply (maponpaths ff e1).
X: UU
P: X → UU
x: X
c: ∏ x' : X, (x = x') ⨿ ¬ P x'
f:= λ p : P x, x,, p: P x → ∑ y, P y
x0: x = x
cnew:= λ x' : X,
coprod_rect
  (λ _ : (x = x) ⨿ ¬ P x, (x = x') ⨿ ¬ P x')
  (λ x0 : x = x,
   coprod_rect
     (λ _ : (x = x') ⨿ ¬ P x', (x = x') ⨿ ¬ P x')
     (λ ee : x = x', inl (! x0 @ ee))
     (λ phi : ¬ P x', inr phi) 
     (c x')) (λ _ : ¬ P x, c x') 
  (inl x0): ∏ x' : X, (x = x') ⨿ ¬ P x'
g:= λ pp : ∑ y, P y,
match cnew (pr1 pp) with
| inl e => transportb P e (pr2 pp)
| inr phi => fromempty (phi (pr2 pp))
end: (∑ y, P y) → P x
efg: ∏ pp : ∑ y, P y, f (g pp) = pp
cnewx:= coprod_rect
  (λ _ : (x = x) ⨿ ¬ P x, (x = x) ⨿ ¬ P x)
  (λ x1 : x = x,
   coprod_rect
     (λ _ : (x = x) ⨿ ¬ P x, (x = x) ⨿ ¬ P x)
     (λ ee : x = x, inl (! x1 @ ee))
     (λ phi : ¬ P x, inr phi) 
     (inl x0)) (λ _ : ¬ P x, inl x0) 
  (inl x0): (x = x) ⨿ ¬ P x
e1: cnew x = cnewx
e: cnewx = inl (idpath x)
p: P x
ff:= λ cc : (x = x) ⨿ (P x → ∅),
match cc with
| inl e0 => transportb P e0 p
| inr phi => fromempty (phi p)
end: (x = x) ⨿ (P x → ∅) → P x
ee: ff cnewx = ff (inl (idpath x))
eee: ff (inl (idpath x)) = p
e2: ff (cnew x) = ff cnewx
match cnew x with
| inl e => transportb P e p
| inr phi => fromempty (phi p)
end = p
X: UU
P: X → UU
x: X
c: ∏ x' : X, (x = x') ⨿ ¬ P x'
f:= λ p : P x, x,, p: P x → ∑ y, P y
x0: x = x
cnew:= λ x' : X,
coprod_rect
  (λ _ : (x = x) ⨿ ¬ P x, (x = x') ⨿ ¬ P x')
  (λ x0 : x = x,
   coprod_rect
     (λ _ : (x = x') ⨿ ¬ P x', (x = x') ⨿ ¬ P x')
     (λ ee : x = x', inl (! x0 @ ee))
     (λ phi : ¬ P x', inr phi) 
     (c x')) (λ _ : ¬ P x, c x') 
  (inl x0): ∏ x' : X, (x = x') ⨿ ¬ P x'
g:= λ pp : ∑ y, P y,
match cnew (pr1 pp) with
| inl e => transportb P e (pr2 pp)
| inr phi => fromempty (phi (pr2 pp))
end: (∑ y, P y) → P x
efg: ∏ pp : ∑ y, P y, f (g pp) = pp
cnewx:= coprod_rect
  (λ _ : (x = x) ⨿ ¬ P x, (x = x) ⨿ ¬ P x)
  (λ x1 : x = x,
   coprod_rect
     (λ _ : (x = x) ⨿ ¬ P x, (x = x) ⨿ ¬ P x)
     (λ ee : x = x, inl (! x1 @ ee))
     (λ phi : ¬ P x, inr phi) 
     (inl x0)) (λ _ : ¬ P x, inl x0) 
  (inl x0): (x = x) ⨿ ¬ P x
e1: cnew x = cnewx
e: cnewx = inl (idpath x)
egf: ∏ p : P x, g (f p) = p
isweq f
X: UU
P: X → UU
x: X
c: ∏ x' : X, (x = x') ⨿ ¬ P x'
f:= λ p : P x, x,, p: P x → ∑ y, P y
e0: ¬ P x
cnew:= λ x' : X,
coprod_rect
  (λ _ : (x = x) ⨿ ¬ P x, (x = x') ⨿ ¬ P x')
  (λ x0 : x = x,
   coprod_rect
     (λ _ : (x = x') ⨿ ¬ P x', (x = x') ⨿ ¬ P x')
     (λ ee : x = x', inl (! x0 @ ee))
     (λ phi : ¬ P x', inr phi) 
     (c x')) (λ _ : ¬ P x, c x') 
  (inr e0): ∏ x' : X, (x = x') ⨿ ¬ P x'
g:= λ pp : ∑ y, P y,
match cnew (pr1 pp) with
| inl e => transportb P e (pr2 pp)
| inr phi => fromempty (phi (pr2 pp))
end: (∑ y, P y) → P x
efg: ∏ pp : ∑ y, P y, f (g pp) = pp
cnewx:= coprod_rect
  (λ _ : (x = x) ⨿ ¬ P x, (x = x) ⨿ ¬ P x)
  (λ x0 : x = x,
   coprod_rect
     (λ _ : (x = x) ⨿ ¬ P x, (x = x) ⨿ ¬ P x)
     (λ ee : x = x, inl (! x0 @ ee))
     (λ phi : ¬ P x, inr phi) 
     (inr e0)) (λ _ : ¬ P x, inr e0) 
  (inr e0): (x = x) ⨿ ¬ P x
e1: cnew x = cnewx
isweq f
  apply (pathscomp0 (pathscomp0 e2 ee) eee).
X: UU
P: X → UU
x: X
c: ∏ x' : X, (x = x') ⨿ ¬ P x'
f:= λ p : P x, x,, p: P x → ∑ y, P y
x0: x = x
cnew:= λ x' : X,
coprod_rect
  (λ _ : (x = x) ⨿ ¬ P x, (x = x') ⨿ ¬ P x')
  (λ x0 : x = x,
   coprod_rect
     (λ _ : (x = x') ⨿ ¬ P x', (x = x') ⨿ ¬ P x')
     (λ ee : x = x', inl (! x0 @ ee))
     (λ phi : ¬ P x', inr phi) 
     (c x')) (λ _ : ¬ P x, c x') 
  (inl x0): ∏ x' : X, (x = x') ⨿ ¬ P x'
g:= λ pp : ∑ y, P y,
match cnew (pr1 pp) with
| inl e => transportb P e (pr2 pp)
| inr phi => fromempty (phi (pr2 pp))
end: (∑ y, P y) → P x
efg: ∏ pp : ∑ y, P y, f (g pp) = pp
cnewx:= coprod_rect
  (λ _ : (x = x) ⨿ ¬ P x, (x = x) ⨿ ¬ P x)
  (λ x1 : x = x,
   coprod_rect
     (λ _ : (x = x) ⨿ ¬ P x, (x = x) ⨿ ¬ P x)
     (λ ee : x = x, inl (! x1 @ ee))
     (λ phi : ¬ P x, inr phi) 
     (inl x0)) (λ _ : ¬ P x, inl x0) 
  (inl x0): (x = x) ⨿ ¬ P x
e1: cnew x = cnewx
e: cnewx = inl (idpath x)
egf: ∏ p : P x, g (f p) = p
isweq f
X: UU
P: X → UU
x: X
c: ∏ x' : X, (x = x') ⨿ ¬ P x'
f:= λ p : P x, x,, p: P x → ∑ y, P y
e0: ¬ P x
cnew:= λ x' : X,
coprod_rect
  (λ _ : (x = x) ⨿ ¬ P x, (x = x') ⨿ ¬ P x')
  (λ x0 : x = x,
   coprod_rect
     (λ _ : (x = x') ⨿ ¬ P x', (x = x') ⨿ ¬ P x')
     (λ ee : x = x', inl (! x0 @ ee))
     (λ phi : ¬ P x', inr phi) 
     (c x')) (λ _ : ¬ P x, c x') 
  (inr e0): ∏ x' : X, (x = x') ⨿ ¬ P x'
g:= λ pp : ∑ y, P y,
match cnew (pr1 pp) with
| inl e => transportb P e (pr2 pp)
| inr phi => fromempty (phi (pr2 pp))
end: (∑ y, P y) → P x
efg: ∏ pp : ∑ y, P y, f (g pp) = pp
cnewx:= coprod_rect
  (λ _ : (x = x) ⨿ ¬ P x, (x = x) ⨿ ¬ P x)
  (λ x0 : x = x,
   coprod_rect
     (λ _ : (x = x) ⨿ ¬ P x, (x = x) ⨿ ¬ P x)
     (λ ee : x = x, inl (! x0 @ ee))
     (λ phi : ¬ P x, inr phi) 
     (inr e0)) (λ _ : ¬ P x, inr e0) 
  (inr e0): (x = x) ⨿ ¬ P x
e1: cnew x = cnewx
isweq f
  apply (isweq_iso f g egf efg).
X: UU
P: X → UU
x: X
c: ∏ x' : X, (x = x') ⨿ ¬ P x'
f:= λ p : P x, x,, p: P x → ∑ y, P y
e0: ¬ P x
cnew:= λ x' : X,
coprod_rect
  (λ _ : (x = x) ⨿ ¬ P x, (x = x') ⨿ ¬ P x')
  (λ x0 : x = x,
   coprod_rect
     (λ _ : (x = x') ⨿ ¬ P x', (x = x') ⨿ ¬ P x')
     (λ ee : x = x', inl (! x0 @ ee))
     (λ phi : ¬ P x', inr phi) 
     (c x')) (λ _ : ¬ P x, c x') 
  (inr e0): ∏ x' : X, (x = x') ⨿ ¬ P x'
g:= λ pp : ∑ y, P y,
match cnew (pr1 pp) with
| inl e => transportb P e (pr2 pp)
| inr phi => fromempty (phi (pr2 pp))
end: (∑ y, P y) → P x
efg: ∏ pp : ∑ y, P y, f (g pp) = pp
cnewx:= coprod_rect
  (λ _ : (x = x) ⨿ ¬ P x, (x = x) ⨿ ¬ P x)
  (λ x0 : x = x,
   coprod_rect
     (λ _ : (x = x) ⨿ ¬ P x, (x = x) ⨿ ¬ P x)
     (λ ee : x = x, inl (! x0 @ ee))
     (λ phi : ¬ P x, inr phi) 
     (inr e0)) (λ _ : ¬ P x, inr e0) 
  (inr e0): (x = x) ⨿ ¬ P x
e1: cnew x = cnewx
isweq f

  unfold isweq.
X: UU
P: X → UU
x: X
c: ∏ x' : X, (x = x') ⨿ ¬ P x'
f:= λ p : P x, x,, p: P x → ∑ y, P y
e0: ¬ P x
cnew:= λ x' : X,
coprod_rect
  (λ _ : (x = x) ⨿ ¬ P x, (x = x') ⨿ ¬ P x')
  (λ x0 : x = x,
   coprod_rect
     (λ _ : (x = x') ⨿ ¬ P x', (x = x') ⨿ ¬ P x')
     (λ ee : x = x', inl (! x0 @ ee))
     (λ phi : ¬ P x', inr phi) 
     (c x')) (λ _ : ¬ P x, c x') 
  (inr e0): ∏ x' : X, (x = x') ⨿ ¬ P x'
g:= λ pp : ∑ y, P y,
match cnew (pr1 pp) with
| inl e => transportb P e (pr2 pp)
| inr phi => fromempty (phi (pr2 pp))
end: (∑ y, P y) → P x
efg: ∏ pp : ∑ y, P y, f (g pp) = pp
cnewx:= coprod_rect
  (λ _ : (x = x) ⨿ ¬ P x, (x = x) ⨿ ¬ P x)
  (λ x0 : x = x,
   coprod_rect
     (λ _ : (x = x) ⨿ ¬ P x, (x = x) ⨿ ¬ P x)
     (λ ee : x = x, inl (! x0 @ ee))
     (λ phi : ¬ P x, inr phi) 
     (inr e0)) (λ _ : ¬ P x, inr e0) 
  (inr e0): (x = x) ⨿ ¬ P x
e1: cnew x = cnewx
∏ y : ∑ y, P y, iscontr (hfiber f y) intro y0.
X: UU
P: X → UU
x: X
c: ∏ x' : X, (x = x') ⨿ ¬ P x'
f:= λ p : P x, x,, p: P x → ∑ y, P y
e0: ¬ P x
cnew:= λ x' : X,
coprod_rect
  (λ _ : (x = x) ⨿ ¬ P x, (x = x') ⨿ ¬ P x')
  (λ x0 : x = x,
   coprod_rect
     (λ _ : (x = x') ⨿ ¬ P x', (x = x') ⨿ ¬ P x')
     (λ ee : x = x', inl (! x0 @ ee))
     (λ phi : ¬ P x', inr phi) 
     (c x')) (λ _ : ¬ P x, c x') 
  (inr e0): ∏ x' : X, (x = x') ⨿ ¬ P x'
g:= λ pp : ∑ y, P y,
match cnew (pr1 pp) with
| inl e => transportb P e (pr2 pp)
| inr phi => fromempty (phi (pr2 pp))
end: (∑ y, P y) → P x
efg: ∏ pp : ∑ y, P y, f (g pp) = pp
cnewx:= coprod_rect
  (λ _ : (x = x) ⨿ ¬ P x, (x = x) ⨿ ¬ P x)
  (λ x0 : x = x,
   coprod_rect
     (λ _ : (x = x) ⨿ ¬ P x, (x = x) ⨿ ¬ P x)
     (λ ee : x = x, inl (! x0 @ ee))
     (λ phi : ¬ P x, inr phi) 
     (inr e0)) (λ _ : ¬ P x, inr e0) 
  (inr e0): (x = x) ⨿ ¬ P x
e1: cnew x = cnewx
y0: ∑ y, P y
iscontr (hfiber f y0) induction (e0 (g y0)).
Defined.




(** ** Basics about fibration sequences. *)



(** *** Fibrations sequences and their first "left shifts"

The group of constructions related to fibration sequences forms one of the most
important computational toolboxes of homotopy theory.

Given a pair of functions [ (f : X -> Y) (g : Y -> Z) ] and a point [ z : Z ] ,
a structure of the complex on such a triple is a homotopy from the composition
[ funcomp f g ] to the constant function [ X -> Z ] corresponding to [ z ] i.e.
a term [ ez : ∏ x : X, (g (f x)) = z ]. Specifing such a structure is
essentially equivalent to specifing a structure of the form
[ ezmap : X -> hfiber g z ]. The mapping in one direction is given in the
definition of [ ezmap ] below. The mapping in another is given by
[ f := λ x : X, pr1 (ezmap x) ] and [ ez := λ x : X, pr2 (ezmap x) ].

A complex is called a fibration sequence if [ ezmap ] is a weak equivalence.
Correspondingly, the structure of a fibration sequence on [ f g z ] is a pair
[ (ez , is) ] where [ is : isweq (ezmap f g z ez) ]. For a fibration sequence
[ f g z fs ]  where [ fs : fibseqstr f g z ] and any [ y : Y ] there is defined
a function [ diff1 : (g y) = z -> X ] and a structure of the fibration
sequence [ fibseqdiff1 ] on the triple [ diff1 g y ]. This new fibration
sequence is called the derived fibration sequence of the original one.

The first function of the second derived of [ f g z fs ] corresponding to
[ (y : Y) (x : X) ]  is of the form [ (f x) = y -> (g y) = z ] and it is
homotopic to the function defined by
[ e => pathscomp0 (maponpaths g (pathsinv0 e)) (ez x) ]. The first function of
the third derived of [ f g z fs ] corresponding to
[ (y : Y) (x : X) (e : (g y) = z) ] is of the form
[ (diff1 e) = x -> (f x) = y ]. Therefore, the third derived of a sequence based
on [ X Y Z ] is based entirely on types = of [ X ], [ Y ] and [ Z ]. When this
construction is applied to types of finite h-level (see below) and combined with
the fact that the h-level of a path type is strictly lower than the h-level of
the ambient type it leads to the possibility of building proofs about types by
induction on h-level.

There are three important special cases in which fibration sequences arise:

( pr1 - case ) The fibration sequence [ fibseqpr1 P z ] defined by family
[ P : Z -> UU ] and a term [ z : Z ]. It is based on the sequence of functions
[ (tpair P z : P z -> total2 P) (pr1 : total2 P -> Z) ]. The corresponding
[ ezmap ] is defined by an obvious rule and the fact that it is a weak
equivalence is proved in [ isweqfibertohfiber ].

( g - case ) The fibration sequence [ fibseqg g z ]  defined by a function
[ g : Y -> Z ] and a term [ z : Z ]. It is based on the sequence of functions
[ (hfiberpr1 : hfiber g z -> Y) (g : Y -> Z) ] and the corresponding [ ezmap ]
is the function which takes a term [ ye : hfiber ] to
[ make_hfiber g (pr1 ye) (pr2 ye) ].   We now have eta-coercion for dependent
sums, so it is the identity function,
which is sufficient to ensure that it is a weak equivalence. The first derived
of [ fibseqg g z ] corresponding to [ y : Y ] coincides with
[ fibseqpr1 (λ y' : Y , (g y') = z) y ].

( hf -case ) The fibration sequence of homotopy fibers defined for any pair of
functions [ (f : X -> Y) (g : Y -> Z) ] and any terms
[ (z : Z) (ye : hfiber g z) ]. It is based on functions
[ hfiberftogf : hfiber f (pr1 ye) -> hfiber (funcomp f g) z ] and
[ hfibergftog : hfiber (funcomp f g) z -> hfiber g z ] which are defined below.
 *)

(** *** The structures of a complex and of a fibration sequence on a composable pair of functions *)

(** The structure of a complex on a composable pair of functions
  [ (f : X -> Y) (g : Y -> Z) ] relative to a term [ z : Z ]. *)

Definition complxstr {X Y Z : UU} (f : X -> Y) (g : Y -> Z) (z : Z)
  := ∏ x : X, (g (f x)) = z.


(** The structure of a fibration sequence on a complex. *)

Definition ezmap {X Y Z : UU} (f : X -> Y) (g : Y -> Z) (z : Z)
           (ez : complxstr f g z) :
  X -> hfiber g z := λ x : X, make_hfiber g (f x) (ez x).

Definition isfibseq {X Y Z : UU} (f : X -> Y) (g : Y -> Z) (z : Z)
           (ez : complxstr f g z) := isweq (ezmap f g z ez).

Definition fibseqstr {X Y Z : UU} (f : X -> Y) (g : Y -> Z) (z : Z)
  := ∑ ez : complxstr f g z, isfibseq f g z ez.
Definition make_fibseqstr {X Y Z : UU} (f : X -> Y) (g : Y -> Z) (z : Z)
  := tpair (λ ez : complxstr f g z, isfibseq f g z ez).
Definition fibseqstrtocomplxstr {X Y Z : UU} (f : X -> Y) (g : Y -> Z) (z : Z) :
  fibseqstr f g z -> complxstr f g z
  := @pr1 _ (λ ez : complxstr f g z, isfibseq f g z ez).
Coercion fibseqstrtocomplxstr : fibseqstr >-> complxstr.

Definition ezweq {X Y Z : UU} (f : X -> Y) (g : Y -> Z) (z : Z)
           (fs : fibseqstr f g z) : X ≃ hfiber g z
  := make_weq _ (pr2 fs).



(** *** Construction of the derived fibration sequence *)


Definition d1 {X Y Z : UU} (f : X -> Y) (g : Y -> Z) (z : Z)
           (fs : fibseqstr f g z) (y : Y) : (g y) = z -> X
  := λ e : _, invmap (ezweq f g z fs) (make_hfiber g y e).

Definition ezmap1 {X Y Z : UU} (f : X -> Y) (g : Y -> Z) (z : Z)
           (fs : fibseqstr f g z) (y : Y) (e : (g y) = z) : hfiber f y.
X, Y, Z: UU
f: X → Y
g: Y → Z
z: Z
fs: fibseqstr f g z
y: Y
e: g y = z
hfiber f y
Proof.
X, Y, Z: UU
f: X → Y
g: Y → Z
z: Z
fs: fibseqstr f g z
y: Y
e: g y = z
hfiber f y
  intros.
X, Y, Z: UU
f: X → Y
g: Y → Z
z: Z
fs: fibseqstr f g z
y: Y
e: g y = z
hfiber f y
  split with (d1 f g z fs y e).
X, Y, Z: UU
f: X → Y
g: Y → Z
z: Z
fs: fibseqstr f g z
y: Y
e: g y = z
f (d1 f g z fs y e) = y
  unfold d1.
X, Y, Z: UU
f: X → Y
g: Y → Z
z: Z
fs: fibseqstr f g z
y: Y
e: g y = z
f (invmap (ezweq f g z fs) (make_hfiber g y e)) = y
  change (f (invmap (ezweq f g z fs) (make_hfiber g y e)))
  with (hfiberpr1 _ _ (ezweq f g z fs (invmap (ezweq f g z fs)
                                              (make_hfiber g y e)))).
X, Y, Z: UU
f: X → Y
g: Y → Z
z: Z
fs: fibseqstr f g z
y: Y
e: g y = z
hfiberpr1 g z
  (ezweq f g z fs
     (invmap (ezweq f g z fs) (make_hfiber g y e))) =
y
  apply (maponpaths (hfiberpr1 g z)
                    (homotweqinvweq (ezweq f g z fs) (make_hfiber g y e))).
Defined.

Definition invezmap1 {X Y Z : UU} (f : X -> Y) (g : Y -> Z) (z : Z)
           (ez : complxstr f g z) (y : Y) : hfiber f y -> (g y) = z
  := λ xe: hfiber f y,
           match xe with
             tpair _ x e => pathscomp0 (maponpaths g (pathsinv0 e)) (ez x)
           end.

Theorem isweqezmap1 {X Y Z : UU} (f : X -> Y) (g : Y -> Z) (z : Z)
        (fs : fibseqstr f g z) (y : Y) : isweq (ezmap1 f g z fs y).
X, Y, Z: UU
f: X → Y
g: Y → Z
z: Z
fs: fibseqstr f g z
y: Y
isweq (ezmap1 f g z fs y)
Proof.
X, Y, Z: UU
f: X → Y
g: Y → Z
z: Z
fs: fibseqstr f g z
y: Y
isweq (ezmap1 f g z fs y)
  intros.
X, Y, Z: UU
f: X → Y
g: Y → Z
z: Z
fs: fibseqstr f g z
y: Y
isweq (ezmap1 f g z fs y)
  set (ff := ezmap1 f g z fs y).
X, Y, Z: UU
f: X → Y
g: Y → Z
z: Z
fs: fibseqstr f g z
y: Y
ff:= ezmap1 f g z fs y: g y = z → hfiber f y
isweq ff set (gg := invezmap1 f g z (pr1 fs) y).
X, Y, Z: UU
f: X → Y
g: Y → Z
z: Z
fs: fibseqstr f g z
y: Y
ff:= ezmap1 f g z fs y: g y = z → hfiber f y
gg:= invezmap1 f g z (pr1 fs) y: hfiber f y → g y = z
isweq ff
  assert (egf : ∏ e : _, (gg (ff e)) = e).
X, Y, Z: UU
f: X → Y
g: Y → Z
z: Z
fs: fibseqstr f g z
y: Y
ff:= ezmap1 f g z fs y: g y = z → hfiber f y
gg:= invezmap1 f g z (pr1 fs) y: hfiber f y → g y = z
∏ e : g y = z, gg (ff e) = e
X, Y, Z: UU
f: X → Y
g: Y → Z
z: Z
fs: fibseqstr f g z
y: Y
ff:= ezmap1 f g z fs y: g y = z → hfiber f y
gg:= invezmap1 f g z (pr1 fs) y: hfiber f y → g y = z
egf: ∏ e : g y = z, gg (ff e) = e
isweq ff
  intro.
X, Y, Z: UU
f: X → Y
g: Y → Z
z: Z
fs: fibseqstr f g z
y: Y
ff:= ezmap1 f g z fs y: g y = z → hfiber f y
gg:= invezmap1 f g z (pr1 fs) y: hfiber f y → g y = z
e: g y = z
gg (ff e) = e
X, Y, Z: UU
f: X → Y
g: Y → Z
z: Z
fs: fibseqstr f g z
y: Y
ff:= ezmap1 f g z fs y: g y = z → hfiber f y
gg:= invezmap1 f g z (pr1 fs) y: hfiber f y → g y = z
egf: ∏ e : g y = z, gg (ff e) = e
isweq ff simpl.
X, Y, Z: UU
f: X → Y
g: Y → Z
z: Z
fs: fibseqstr f g z
y: Y
ff:= ezmap1 f g z fs y: g y = z → hfiber f y
gg:= invezmap1 f g z (pr1 fs) y: hfiber f y → g y = z
e: g y = z
match
  match
    match
      maponpaths (hfiberpr1 g z)
        (homotweqinvweq (ezweq f g z fs)
           (make_hfiber g y e)) in (_ = a0)
      return (a0 = f (d1 f g z fs y e))
    with
    | idpath _ => idpath (f (d1 f g z fs y e))
    end in (_ = a0) return (g y = g a0)
  with
  | idpath _ => idpath (g y)
  end in (_ = a0) return (a0 = z → g y = z)
with
| idpath _ => λ e2 : g y = z, e2
end (pr1 fs (d1 f g z fs y e)) = e
X, Y, Z: UU
f: X → Y
g: Y → Z
z: Z
fs: fibseqstr f g z
y: Y
ff:= ezmap1 f g z fs y: g y = z → hfiber f y
gg:= invezmap1 f g z (pr1 fs) y: hfiber f y → g y = z
egf: ∏ e : g y = z, gg (ff e) = e
isweq ff
  apply (hfibertriangle1inv0 g (homotweqinvweq (ezweq f g z fs)
                                               (make_hfiber g y e))).
X, Y, Z: UU
f: X → Y
g: Y → Z
z: Z
fs: fibseqstr f g z
y: Y
ff:= ezmap1 f g z fs y: g y = z → hfiber f y
gg:= invezmap1 f g z (pr1 fs) y: hfiber f y → g y = z
egf: ∏ e : g y = z, gg (ff e) = e
isweq ff
  assert (efg : ∏ xe : _, (ff (gg xe)) = xe).
X, Y, Z: UU
f: X → Y
g: Y → Z
z: Z
fs: fibseqstr f g z
y: Y
ff:= ezmap1 f g z fs y: g y = z → hfiber f y
gg:= invezmap1 f g z (pr1 fs) y: hfiber f y → g y = z
egf: ∏ e : g y = z, gg (ff e) = e
∏ xe : hfiber f y, ff (gg xe) = xe
X, Y, Z: UU
f: X → Y
g: Y → Z
z: Z
fs: fibseqstr f g z
y: Y
ff:= ezmap1 f g z fs y: g y = z → hfiber f y
gg:= invezmap1 f g z (pr1 fs) y: hfiber f y → g y = z
egf: ∏ e : g y = z, gg (ff e) = e
efg: ∏ xe : hfiber f y, ff (gg xe) = xe
isweq ff
  intro.
X, Y, Z: UU
f: X → Y
g: Y → Z
z: Z
fs: fibseqstr f g z
y: Y
ff:= ezmap1 f g z fs y: g y = z → hfiber f y
gg:= invezmap1 f g z (pr1 fs) y: hfiber f y → g y = z
egf: ∏ e : g y = z, gg (ff e) = e
xe: hfiber f y
ff (gg xe) = xe
X, Y, Z: UU
f: X → Y
g: Y → Z
z: Z
fs: fibseqstr f g z
y: Y
ff:= ezmap1 f g z fs y: g y = z → hfiber f y
gg:= invezmap1 f g z (pr1 fs) y: hfiber f y → g y = z
egf: ∏ e : g y = z, gg (ff e) = e
efg: ∏ xe : hfiber f y, ff (gg xe) = xe
isweq ff induction xe as [ x e ].
X, Y, Z: UU
f: X → Y
g: Y → Z
z: Z
fs: fibseqstr f g z
y: Y
ff:= ezmap1 f g z fs y: g y = z → hfiber f y
gg:= invezmap1 f g z (pr1 fs) y: hfiber f y → g y = z
egf: ∏ e : g y = z, gg (ff e) = e
x: X
e: f x = y
ff (gg (x,, e)) = x,, e
X, Y, Z: UU
f: X → Y
g: Y → Z
z: Z
fs: fibseqstr f g z
y: Y
ff:= ezmap1 f g z fs y: g y = z → hfiber f y
gg:= invezmap1 f g z (pr1 fs) y: hfiber f y → g y = z
egf: ∏ e : g y = z, gg (ff e) = e
efg: ∏ xe : hfiber f y, ff (gg xe) = xe
isweq ff induction e.
X, Y, Z: UU
f: X → Y
g: Y → Z
z: Z
fs: fibseqstr f g z
x: X
ff:= ezmap1 f g z fs (f x): g (f x) = z → hfiber f (f x)
gg:= invezmap1 f g z (pr1 fs) (f x): hfiber f (f x) → g (f x) = z
egf: ∏ e : g (f x) = z, gg (ff e) = e
ff (gg (x,, idpath (f x))) = x,, idpath (f x)
X, Y, Z: UU
f: X → Y
g: Y → Z
z: Z
fs: fibseqstr f g z
y: Y
ff:= ezmap1 f g z fs y: g y = z → hfiber f y
gg:= invezmap1 f g z (pr1 fs) y: hfiber f y → g y = z
egf: ∏ e : g y = z, gg (ff e) = e
efg: ∏ xe : hfiber f y, ff (gg xe) = xe
isweq ff simpl.
X, Y, Z: UU
f: X → Y
g: Y → Z
z: Z
fs: fibseqstr f g z
x: X
ff:= ezmap1 f g z fs (f x): g (f x) = z → hfiber f (f x)
gg:= invezmap1 f g z (pr1 fs) (f x): hfiber f (f x) → g (f x) = z
egf: ∏ e : g (f x) = z, gg (ff e) = e
ff (pr1 fs x) = x,, idpath (f x)
X, Y, Z: UU
f: X → Y
g: Y → Z
z: Z
fs: fibseqstr f g z
y: Y
ff:= ezmap1 f g z fs y: g y = z → hfiber f y
gg:= invezmap1 f g z (pr1 fs) y: hfiber f y → g y = z
egf: ∏ e : g y = z, gg (ff e) = e
efg: ∏ xe : hfiber f y, ff (gg xe) = xe
isweq ff
  unfold ff.
X, Y, Z: UU
f: X → Y
g: Y → Z
z: Z
fs: fibseqstr f g z
x: X
ff:= ezmap1 f g z fs (f x): g (f x) = z → hfiber f (f x)
gg:= invezmap1 f g z (pr1 fs) (f x): hfiber f (f x) → g (f x) = z
egf: ∏ e : g (f x) = z, gg (ff e) = e
ezmap1 f g z fs (f x) (pr1 fs x) = x,, idpath (f x)
X, Y, Z: UU
f: X → Y
g: Y → Z
z: Z
fs: fibseqstr f g z
y: Y
ff:= ezmap1 f g z fs y: g y = z → hfiber f y
gg:= invezmap1 f g z (pr1 fs) y: hfiber f y → g y = z
egf: ∏ e : g y = z, gg (ff e) = e
efg: ∏ xe : hfiber f y, ff (gg xe) = xe
isweq ff unfold ezmap1.
X, Y, Z: UU
f: X → Y
g: Y → Z
z: Z
fs: fibseqstr f g z
x: X
ff:= ezmap1 f g z fs (f x): g (f x) = z → hfiber f (f x)
gg:= invezmap1 f g z (pr1 fs) (f x): hfiber f (f x) → g (f x) = z
egf: ∏ e : g (f x) = z, gg (ff e) = e
d1 f g z fs (f x) (pr1 fs x),,
maponpaths (hfiberpr1 g z)
  (homotweqinvweq (ezweq f g z fs)
     (make_hfiber g (f x) (pr1 fs x))) =
x,, idpath (f x)
X, Y, Z: UU
f: X → Y
g: Y → Z
z: Z
fs: fibseqstr f g z
y: Y
ff:= ezmap1 f g z fs y: g y = z → hfiber f y
gg:= invezmap1 f g z (pr1 fs) y: hfiber f y → g y = z
egf: ∏ e : g y = z, gg (ff e) = e
efg: ∏ xe : hfiber f y, ff (gg xe) = xe
isweq ff unfold d1.
X, Y, Z: UU
f: X → Y
g: Y → Z
z: Z
fs: fibseqstr f g z
x: X
ff:= ezmap1 f g z fs (f x): g (f x) = z → hfiber f (f x)
gg:= invezmap1 f g z (pr1 fs) (f x): hfiber f (f x) → g (f x) = z
egf: ∏ e : g (f x) = z, gg (ff e) = e
invmap (ezweq f g z fs)
  (make_hfiber g (f x) (pr1 fs x)),,
maponpaths (hfiberpr1 g z)
  (homotweqinvweq (ezweq f g z fs)
     (make_hfiber g (f x) (pr1 fs x))) =
x,, idpath (f x)
X, Y, Z: UU
f: X → Y
g: Y → Z
z: Z
fs: fibseqstr f g z
y: Y
ff:= ezmap1 f g z fs y: g y = z → hfiber f y
gg:= invezmap1 f g z (pr1 fs) y: hfiber f y → g y = z
egf: ∏ e : g y = z, gg (ff e) = e
efg: ∏ xe : hfiber f y, ff (gg xe) = xe
isweq ff
  change (make_hfiber g (f x) (pr1 fs x)) with (ezmap f g z fs x).
X, Y, Z: UU
f: X → Y
g: Y → Z
z: Z
fs: fibseqstr f g z
x: X
ff:= ezmap1 f g z fs (f x): g (f x) = z → hfiber f (f x)
gg:= invezmap1 f g z (pr1 fs) (f x): hfiber f (f x) → g (f x) = z
egf: ∏ e : g (f x) = z, gg (ff e) = e
invmap (ezweq f g z fs) (ezmap f g z fs x),,
maponpaths (hfiberpr1 g z)
  (homotweqinvweq (ezweq f g z fs) (ezmap f g z fs x)) =
x,, idpath (f x)
X, Y, Z: UU
f: X → Y
g: Y → Z
z: Z
fs: fibseqstr f g z
y: Y
ff:= ezmap1 f g z fs y: g y = z → hfiber f y
gg:= invezmap1 f g z (pr1 fs) y: hfiber f y → g y = z
egf: ∏ e : g y = z, gg (ff e) = e
efg: ∏ xe : hfiber f y, ff (gg xe) = xe
isweq ff
  apply (hfibertriangle2
           f (make_hfiber f (invmap (ezweq f g z fs) (ezmap f g z fs x)) _)
           (make_hfiber f x (idpath _))
           (homotinvweqweq (ezweq f g z fs) x)).
X, Y, Z: UU
f: X → Y
g: Y → Z
z: Z
fs: fibseqstr f g z
x: X
ff:= ezmap1 f g z fs (f x): g (f x) = z → hfiber f (f x)
gg:= invezmap1 f g z (pr1 fs) (f x): hfiber f (f x) → g (f x) = z
egf: ∏ e : g (f x) = z, gg (ff e) = e
pr2
  (make_hfiber f
     (invmap (ezweq f g z fs) (ezmap f g z fs x))
     (maponpaths (hfiberpr1 g z)
        (homotweqinvweq (ezweq f g z fs)
           (ezmap f g z fs x)))) =
maponpaths f (homotinvweqweq (ezweq f g z fs) x) @
pr2 (make_hfiber f x (idpath (f x)))
X, Y, Z: UU
f: X → Y
g: Y → Z
z: Z
fs: fibseqstr f g z
y: Y
ff:= ezmap1 f g z fs y: g y = z → hfiber f y
gg:= invezmap1 f g z (pr1 fs) y: hfiber f y → g y = z
egf: ∏ e : g y = z, gg (ff e) = e
efg: ∏ xe : hfiber f y, ff (gg xe) = xe
isweq ff
  simpl.
X, Y, Z: UU
f: X → Y
g: Y → Z
z: Z
fs: fibseqstr f g z
x: X
ff:= ezmap1 f g z fs (f x): g (f x) = z → hfiber f (f x)
gg:= invezmap1 f g z (pr1 fs) (f x): hfiber f (f x) → g (f x) = z
egf: ∏ e : g (f x) = z, gg (ff e) = e
maponpaths (hfiberpr1 g z)
  (homotweqinvweq (ezweq f g z fs) (ezmap f g z fs x)) =
maponpaths f (homotinvweqweq (ezweq f g z fs) x) @
idpath (f x)
X, Y, Z: UU
f: X → Y
g: Y → Z
z: Z
fs: fibseqstr f g z
y: Y
ff:= ezmap1 f g z fs y: g y = z → hfiber f y
gg:= invezmap1 f g z (pr1 fs) y: hfiber f y → g y = z
egf: ∏ e : g y = z, gg (ff e) = e
efg: ∏ xe : hfiber f y, ff (gg xe) = xe
isweq ff
  set (e1 := pathsinv0 (pathscomp0rid (maponpaths f (homotinvweqweq
                                                       (ezweq f g z fs) x)))).
X, Y, Z: UU
f: X → Y
g: Y → Z
z: Z
fs: fibseqstr f g z
x: X
ff:= ezmap1 f g z fs (f x): g (f x) = z → hfiber f (f x)
gg:= invezmap1 f g z (pr1 fs) (f x): hfiber f (f x) → g (f x) = z
egf: ∏ e : g (f x) = z, gg (ff e) = e
e1:= ! pathscomp0rid
    (maponpaths f
       (homotinvweqweq (ezweq f g z fs) x)): maponpaths f (homotinvweqweq (ezweq f g z fs) x) =
maponpaths f (homotinvweqweq (ezweq f g z fs) x) @
idpath (f x)
maponpaths (hfiberpr1 g z)
  (homotweqinvweq (ezweq f g z fs) (ezmap f g z fs x)) =
maponpaths f (homotinvweqweq (ezweq f g z fs) x) @
idpath (f x)
X, Y, Z: UU
f: X → Y
g: Y → Z
z: Z
fs: fibseqstr f g z
y: Y
ff:= ezmap1 f g z fs y: g y = z → hfiber f y
gg:= invezmap1 f g z (pr1 fs) y: hfiber f y → g y = z
egf: ∏ e : g y = z, gg (ff e) = e
efg: ∏ xe : hfiber f y, ff (gg xe) = xe
isweq ff
  assert (e2 : (maponpaths (hfiberpr1 g z)
                           (homotweqinvweq (ezweq f g z fs)
                                           ((ezmap f g z fs) x)))
               = (maponpaths f (homotinvweqweq (ezweq f g z fs) x))).
X, Y, Z: UU
f: X → Y
g: Y → Z
z: Z
fs: fibseqstr f g z
x: X
ff:= ezmap1 f g z fs (f x): g (f x) = z → hfiber f (f x)
gg:= invezmap1 f g z (pr1 fs) (f x): hfiber f (f x) → g (f x) = z
egf: ∏ e : g (f x) = z, gg (ff e) = e
e1:= ! pathscomp0rid
    (maponpaths f
       (homotinvweqweq (ezweq f g z fs) x)): maponpaths f (homotinvweqweq (ezweq f g z fs) x) =
maponpaths f (homotinvweqweq (ezweq f g z fs) x) @
idpath (f x)
maponpaths (hfiberpr1 g z)
  (homotweqinvweq (ezweq f g z fs) (ezmap f g z fs x)) =
maponpaths f (homotinvweqweq (ezweq f g z fs) x)
X, Y, Z: UU
f: X → Y
g: Y → Z
z: Z
fs: fibseqstr f g z
x: X
ff:= ezmap1 f g z fs (f x): g (f x) = z → hfiber f (f x)
gg:= invezmap1 f g z (pr1 fs) (f x): hfiber f (f x) → g (f x) = z
egf: ∏ e : g (f x) = z, gg (ff e) = e
e1:= ! pathscomp0rid
    (maponpaths f
       (homotinvweqweq (ezweq f g z fs) x)): maponpaths f (homotinvweqweq (ezweq f g z fs) x) =
maponpaths f (homotinvweqweq (ezweq f g z fs) x) @
idpath (f x)
e2: maponpaths (hfiberpr1 g z)
  (homotweqinvweq (ezweq f g z fs)
     (ezmap f g z fs x)) =
maponpaths f (homotinvweqweq (ezweq f g z fs) x)
maponpaths (hfiberpr1 g z)
  (homotweqinvweq (ezweq f g z fs) (ezmap f g z fs x)) =
maponpaths f (homotinvweqweq (ezweq f g z fs) x) @
idpath (f x)
X, Y, Z: UU
f: X → Y
g: Y → Z
z: Z
fs: fibseqstr f g z
y: Y
ff:= ezmap1 f g z fs y: g y = z → hfiber f y
gg:= invezmap1 f g z (pr1 fs) y: hfiber f y → g y = z
egf: ∏ e : g y = z, gg (ff e) = e
efg: ∏ xe : hfiber f y, ff (gg xe) = xe
isweq ff
  set (e3 := maponpaths (λ e : _, maponpaths (hfiberpr1 g z) e)
                        (pathsinv0 (homotweqinvweqweq (ezweq f g z fs) x))).
X, Y, Z: UU
f: X → Y
g: Y → Z
z: Z
fs: fibseqstr f g z
x: X
ff:= ezmap1 f g z fs (f x): g (f x) = z → hfiber f (f x)
gg:= invezmap1 f g z (pr1 fs) (f x): hfiber f (f x) → g (f x) = z
egf: ∏ e : g (f x) = z, gg (ff e) = e
e1:= ! pathscomp0rid
    (maponpaths f
       (homotinvweqweq (ezweq f g z fs) x)): maponpaths f (homotinvweqweq (ezweq f g z fs) x) =
maponpaths f (homotinvweqweq (ezweq f g z fs) x) @
idpath (f x)
e3:= maponpaths
  (λ e : ezweq f g z fs
           (invmap (ezweq f g z fs)
              (ezweq f g z fs x)) =
         ezweq f g z fs x,
   maponpaths (hfiberpr1 g z) e)
  (! homotweqinvweqweq (ezweq f g z fs) x): (λ e : ezweq f g z fs
         (invmap (ezweq f g z fs)
            (ezweq f g z fs x)) =
       ezweq f g z fs x,
 maponpaths (hfiberpr1 g z) e)
  (homotweqinvweq (ezweq f g z fs)
     (ezweq f g z fs x)) =
(λ e : ezweq f g z fs
         (invmap (ezweq f g z fs)
            (ezweq f g z fs x)) =
       ezweq f g z fs x,
 maponpaths (hfiberpr1 g z) e)
  (maponpaths (ezweq f g z fs)
     (homotinvweqweq (ezweq f g z fs) x))
maponpaths (hfiberpr1 g z)
  (homotweqinvweq (ezweq f g z fs) (ezmap f g z fs x)) =
maponpaths f (homotinvweqweq (ezweq f g z fs) x)
X, Y, Z: UU
f: X → Y
g: Y → Z
z: Z
fs: fibseqstr f g z
x: X
ff:= ezmap1 f g z fs (f x): g (f x) = z → hfiber f (f x)
gg:= invezmap1 f g z (pr1 fs) (f x): hfiber f (f x) → g (f x) = z
egf: ∏ e : g (f x) = z, gg (ff e) = e
e1:= ! pathscomp0rid
    (maponpaths f
       (homotinvweqweq (ezweq f g z fs) x)): maponpaths f (homotinvweqweq (ezweq f g z fs) x) =
maponpaths f (homotinvweqweq (ezweq f g z fs) x) @
idpath (f x)
e2: maponpaths (hfiberpr1 g z)
  (homotweqinvweq (ezweq f g z fs)
     (ezmap f g z fs x)) =
maponpaths f (homotinvweqweq (ezweq f g z fs) x)
maponpaths (hfiberpr1 g z)
  (homotweqinvweq (ezweq f g z fs) (ezmap f g z fs x)) =
maponpaths f (homotinvweqweq (ezweq f g z fs) x) @
idpath (f x)
X, Y, Z: UU
f: X → Y
g: Y → Z
z: Z
fs: fibseqstr f g z
y: Y
ff:= ezmap1 f g z fs y: g y = z → hfiber f y
gg:= invezmap1 f g z (pr1 fs) y: hfiber f y → g y = z
egf: ∏ e : g y = z, gg (ff e) = e
efg: ∏ xe : hfiber f y, ff (gg xe) = xe
isweq ff
  simpl in e3.
X, Y, Z: UU
f: X → Y
g: Y → Z
z: Z
fs: fibseqstr f g z
x: X
ff:= ezmap1 f g z fs (f x): g (f x) = z → hfiber f (f x)
gg:= invezmap1 f g z (pr1 fs) (f x): hfiber f (f x) → g (f x) = z
egf: ∏ e : g (f x) = z, gg (ff e) = e
e1:= ! pathscomp0rid
    (maponpaths f
       (homotinvweqweq (ezweq f g z fs) x)): maponpaths f (homotinvweqweq (ezweq f g z fs) x) =
maponpaths f (homotinvweqweq (ezweq f g z fs) x) @
idpath (f x)
e3:= maponpaths
  (λ e : ezmap f g z (pr1 fs)
           (invmap (ezweq f g z fs)
              (ezmap f g z (pr1 fs) x)) =
         ezmap f g z (pr1 fs) x,
   maponpaths (hfiberpr1 g z) e)
  (! homotweqinvweqweq (ezweq f g z fs) x): maponpaths (hfiberpr1 g z)
  (homotweqinvweq (ezweq f g z fs)
     (ezmap f g z (pr1 fs) x)) =
maponpaths (hfiberpr1 g z)
  (maponpaths (ezmap f g z (pr1 fs))
     (homotinvweqweq (ezweq f g z fs) x))
maponpaths (hfiberpr1 g z)
  (homotweqinvweq (ezweq f g z fs) (ezmap f g z fs x)) =
maponpaths f (homotinvweqweq (ezweq f g z fs) x)
X, Y, Z: UU
f: X → Y
g: Y → Z
z: Z
fs: fibseqstr f g z
x: X
ff:= ezmap1 f g z fs (f x): g (f x) = z → hfiber f (f x)
gg:= invezmap1 f g z (pr1 fs) (f x): hfiber f (f x) → g (f x) = z
egf: ∏ e : g (f x) = z, gg (ff e) = e
e1:= ! pathscomp0rid
    (maponpaths f
       (homotinvweqweq (ezweq f g z fs) x)): maponpaths f (homotinvweqweq (ezweq f g z fs) x) =
maponpaths f (homotinvweqweq (ezweq f g z fs) x) @
idpath (f x)
e2: maponpaths (hfiberpr1 g z)
  (homotweqinvweq (ezweq f g z fs)
     (ezmap f g z fs x)) =
maponpaths f (homotinvweqweq (ezweq f g z fs) x)
maponpaths (hfiberpr1 g z)
  (homotweqinvweq (ezweq f g z fs) (ezmap f g z fs x)) =
maponpaths f (homotinvweqweq (ezweq f g z fs) x) @
idpath (f x)
X, Y, Z: UU
f: X → Y
g: Y → Z
z: Z
fs: fibseqstr f g z
y: Y
ff:= ezmap1 f g z fs y: g y = z → hfiber f y
gg:= invezmap1 f g z (pr1 fs) y: hfiber f y → g y = z
egf: ∏ e : g y = z, gg (ff e) = e
efg: ∏ xe : hfiber f y, ff (gg xe) = xe
isweq ff
  set (e4 := maponpathscomp (ezmap f g z (pr1 fs)) (hfiberpr1 g z)
                            (homotinvweqweq (ezweq f g z fs) x)).
X, Y, Z: UU
f: X → Y
g: Y → Z
z: Z
fs: fibseqstr f g z
x: X
ff:= ezmap1 f g z fs (f x): g (f x) = z → hfiber f (f x)
gg:= invezmap1 f g z (pr1 fs) (f x): hfiber f (f x) → g (f x) = z
egf: ∏ e : g (f x) = z, gg (ff e) = e
e1:= ! pathscomp0rid
    (maponpaths f
       (homotinvweqweq (ezweq f g z fs) x)): maponpaths f (homotinvweqweq (ezweq f g z fs) x) =
maponpaths f (homotinvweqweq (ezweq f g z fs) x) @
idpath (f x)
e3:= maponpaths
  (λ e : ezmap f g z (pr1 fs)
           (invmap (ezweq f g z fs)
              (ezmap f g z (pr1 fs) x)) =
         ezmap f g z (pr1 fs) x,
   maponpaths (hfiberpr1 g z) e)
  (! homotweqinvweqweq (ezweq f g z fs) x): maponpaths (hfiberpr1 g z)
  (homotweqinvweq (ezweq f g z fs)
     (ezmap f g z (pr1 fs) x)) =
maponpaths (hfiberpr1 g z)
  (maponpaths (ezmap f g z (pr1 fs))
     (homotinvweqweq (ezweq f g z fs) x))
e4:= maponpathscomp (ezmap f g z (pr1 fs))
  (hfiberpr1 g z)
  (homotinvweqweq (ezweq f g z fs) x): maponpaths (hfiberpr1 g z)
  (maponpaths (ezmap f g z (pr1 fs))
     (homotinvweqweq (ezweq f g z fs) x)) =
maponpaths (hfiberpr1 g z ∘ ezmap f g z (pr1 fs))
  (homotinvweqweq (ezweq f g z fs) x)
maponpaths (hfiberpr1 g z)
  (homotweqinvweq (ezweq f g z fs) (ezmap f g z fs x)) =
maponpaths f (homotinvweqweq (ezweq f g z fs) x)
X, Y, Z: UU
f: X → Y
g: Y → Z
z: Z
fs: fibseqstr f g z
x: X
ff:= ezmap1 f g z fs (f x): g (f x) = z → hfiber f (f x)
gg:= invezmap1 f g z (pr1 fs) (f x): hfiber f (f x) → g (f x) = z
egf: ∏ e : g (f x) = z, gg (ff e) = e
e1:= ! pathscomp0rid
    (maponpaths f
       (homotinvweqweq (ezweq f g z fs) x)): maponpaths f (homotinvweqweq (ezweq f g z fs) x) =
maponpaths f (homotinvweqweq (ezweq f g z fs) x) @
idpath (f x)
e2: maponpaths (hfiberpr1 g z)
  (homotweqinvweq (ezweq f g z fs)
     (ezmap f g z fs x)) =
maponpaths f (homotinvweqweq (ezweq f g z fs) x)
maponpaths (hfiberpr1 g z)
  (homotweqinvweq (ezweq f g z fs) (ezmap f g z fs x)) =
maponpaths f (homotinvweqweq (ezweq f g z fs) x) @
idpath (f x)
X, Y, Z: UU
f: X → Y
g: Y → Z
z: Z
fs: fibseqstr f g z
y: Y
ff:= ezmap1 f g z fs y: g y = z → hfiber f y
gg:= invezmap1 f g z (pr1 fs) y: hfiber f y → g y = z
egf: ∏ e : g y = z, gg (ff e) = e
efg: ∏ xe : hfiber f y, ff (gg xe) = xe
isweq ff
  simpl in e4.
X, Y, Z: UU
f: X → Y
g: Y → Z
z: Z
fs: fibseqstr f g z
x: X
ff:= ezmap1 f g z fs (f x): g (f x) = z → hfiber f (f x)
gg:= invezmap1 f g z (pr1 fs) (f x): hfiber f (f x) → g (f x) = z
egf: ∏ e : g (f x) = z, gg (ff e) = e
e1:= ! pathscomp0rid
    (maponpaths f
       (homotinvweqweq (ezweq f g z fs) x)): maponpaths f (homotinvweqweq (ezweq f g z fs) x) =
maponpaths f (homotinvweqweq (ezweq f g z fs) x) @
idpath (f x)
e3:= maponpaths
  (λ e : ezmap f g z (pr1 fs)
           (invmap (ezweq f g z fs)
              (ezmap f g z (pr1 fs) x)) =
         ezmap f g z (pr1 fs) x,
   maponpaths (hfiberpr1 g z) e)
  (! homotweqinvweqweq (ezweq f g z fs) x): maponpaths (hfiberpr1 g z)
  (homotweqinvweq (ezweq f g z fs)
     (ezmap f g z (pr1 fs) x)) =
maponpaths (hfiberpr1 g z)
  (maponpaths (ezmap f g z (pr1 fs))
     (homotinvweqweq (ezweq f g z fs) x))
e4:= maponpathscomp (ezmap f g z (pr1 fs))
  (hfiberpr1 g z)
  (homotinvweqweq (ezweq f g z fs) x): maponpaths (hfiberpr1 g z)
  (maponpaths (ezmap f g z (pr1 fs))
     (homotinvweqweq (ezweq f g z fs) x)) =
maponpaths (hfiberpr1 g z ∘ ezmap f g z (pr1 fs))
  (homotinvweqweq (ezweq f g z fs) x)
maponpaths (hfiberpr1 g z)
  (homotweqinvweq (ezweq f g z fs) (ezmap f g z fs x)) =
maponpaths f (homotinvweqweq (ezweq f g z fs) x)
X, Y, Z: UU
f: X → Y
g: Y → Z
z: Z
fs: fibseqstr f g z
x: X
ff:= ezmap1 f g z fs (f x): g (f x) = z → hfiber f (f x)
gg:= invezmap1 f g z (pr1 fs) (f x): hfiber f (f x) → g (f x) = z
egf: ∏ e : g (f x) = z, gg (ff e) = e
e1:= ! pathscomp0rid
    (maponpaths f
       (homotinvweqweq (ezweq f g z fs) x)): maponpaths f (homotinvweqweq (ezweq f g z fs) x) =
maponpaths f (homotinvweqweq (ezweq f g z fs) x) @
idpath (f x)
e2: maponpaths (hfiberpr1 g z)
  (homotweqinvweq (ezweq f g z fs)
     (ezmap f g z fs x)) =
maponpaths f (homotinvweqweq (ezweq f g z fs) x)
maponpaths (hfiberpr1 g z)
  (homotweqinvweq (ezweq f g z fs) (ezmap f g z fs x)) =
maponpaths f (homotinvweqweq (ezweq f g z fs) x) @
idpath (f x)
X, Y, Z: UU
f: X → Y
g: Y → Z
z: Z
fs: fibseqstr f g z
y: Y
ff:= ezmap1 f g z fs y: g y = z → hfiber f y
gg:= invezmap1 f g z (pr1 fs) y: hfiber f y → g y = z
egf: ∏ e : g y = z, gg (ff e) = e
efg: ∏ xe : hfiber f y, ff (gg xe) = xe
isweq ff apply (pathscomp0 e3 e4).
X, Y, Z: UU
f: X → Y
g: Y → Z
z: Z
fs: fibseqstr f g z
x: X
ff:= ezmap1 f g z fs (f x): g (f x) = z → hfiber f (f x)
gg:= invezmap1 f g z (pr1 fs) (f x): hfiber f (f x) → g (f x) = z
egf: ∏ e : g (f x) = z, gg (ff e) = e
e1:= ! pathscomp0rid
    (maponpaths f
       (homotinvweqweq (ezweq f g z fs) x)): maponpaths f (homotinvweqweq (ezweq f g z fs) x) =
maponpaths f (homotinvweqweq (ezweq f g z fs) x) @
idpath (f x)
e2: maponpaths (hfiberpr1 g z)
  (homotweqinvweq (ezweq f g z fs)
     (ezmap f g z fs x)) =
maponpaths f (homotinvweqweq (ezweq f g z fs) x)
maponpaths (hfiberpr1 g z)
  (homotweqinvweq (ezweq f g z fs) (ezmap f g z fs x)) =
maponpaths f (homotinvweqweq (ezweq f g z fs) x) @
idpath (f x)
X, Y, Z: UU
f: X → Y
g: Y → Z
z: Z
fs: fibseqstr f g z
y: Y
ff:= ezmap1 f g z fs y: g y = z → hfiber f y
gg:= invezmap1 f g z (pr1 fs) y: hfiber f y → g y = z
egf: ∏ e : g y = z, gg (ff e) = e
efg: ∏ xe : hfiber f y, ff (gg xe) = xe
isweq ff apply (pathscomp0 e2 e1).
X, Y, Z: UU
f: X → Y
g: Y → Z
z: Z
fs: fibseqstr f g z
y: Y
ff:= ezmap1 f g z fs y: g y = z → hfiber f y
gg:= invezmap1 f g z (pr1 fs) y: hfiber f y → g y = z
egf: ∏ e : g y = z, gg (ff e) = e
efg: ∏ xe : hfiber f y, ff (gg xe) = xe
isweq ff
  apply (isweq_iso _ _ egf efg).
Defined.

Definition ezweq1 {X Y Z : UU} (f : X -> Y) (g : Y -> Z) (z : Z)
           (fs : fibseqstr f g z) (y : Y) := make_weq _ (isweqezmap1 f g z fs y).

Definition fibseq1 {X Y Z : UU} (f :X -> Y) (g : Y -> Z) (z : Z)
           (fs : fibseqstr f g z) (y : Y) : fibseqstr (d1 f g z fs y) f y
  := make_fibseqstr _ _ _ _ (isweqezmap1 f g z fs y).



(** *** Explicit description of the first map in the second derived sequence *)

Definition d2 {X Y Z : UU} (f : X -> Y) (g : Y -> Z) (z : Z)
           (fs : fibseqstr f g z) (y : Y) (x : X) (e : (f x) = y) :
  (g y) = z := pathscomp0 (maponpaths g (pathsinv0 e)) ((pr1 fs) x).
Definition ezweq2 {X Y Z : UU} (f : X -> Y) (g : Y -> Z) (z : Z)
           (fs : fibseqstr f g z) (y : Y) (x : X) :
  f x = y  ≃  hfiber (d1 f g z fs y) x
  := ezweq1 (d1 f g z fs y) f y (fibseq1 f g z fs y) x.
Definition fibseq2 {X Y Z : UU} (f : X -> Y) (g : Y->Z) (z : Z)
           (fs : fibseqstr f g z) (y : Y) (x : X) :
  fibseqstr (d2 f g z fs y x) (d1 f g z fs y) x
  := make_fibseqstr _ _ _ _
                   (isweqezmap1 (d1 f g z fs y) f y (fibseq1 f g z fs y) x).



(** *** Fibration sequences based on [ tpair P z ] and [ pr1 : total2 P -> Z ] ( the "pr1-case" ) *)


(** Construction of the fibration sequence. *)

Definition ezmappr1 {Z : UU} (P : Z -> UU) (z : Z) :
  P z -> hfiber (@pr1 Z P) z
  := λ p : P z, tpair _ (tpair _  z p) (idpath z).

Definition invezmappr1 {Z : UU} (P : Z -> UU) (z : Z) :
  hfiber (@pr1 Z P) z -> P z
  := λ te, transportf P (pr2 te) (pr2 (pr1 te)).

Definition isweqezmappr1 {Z : UU} (P : Z -> UU) (z : Z) :
  isweq (ezmappr1 P z).
Z: UU
P: Z → UU
z: Z
isweq (ezmappr1 P z)
Proof.
Z: UU
P: Z → UU
z: Z
isweq (ezmappr1 P z)
  intros.
Z: UU
P: Z → UU
z: Z
isweq (ezmappr1 P z)
  assert (egf : ∏ x: P z , (invezmappr1 _ z ((ezmappr1 P z) x)) = x).
Z: UU
P: Z → UU
z: Z
∏ x : P z, invezmappr1 P z (ezmappr1 P z x) = x
Z: UU
P: Z → UU
z: Z
egf: ∏ x : P z, invezmappr1 P z (ezmappr1 P z x) = x
isweq (ezmappr1 P z)
  intro.
Z: UU
P: Z → UU
z: Z
x: P z
invezmappr1 P z (ezmappr1 P z x) = x
Z: UU
P: Z → UU
z: Z
egf: ∏ x : P z, invezmappr1 P z (ezmappr1 P z x) = x
isweq (ezmappr1 P z) unfold ezmappr1.
Z: UU
P: Z → UU
z: Z
x: P z
invezmappr1 P z ((z,, x),, idpath z) = x
Z: UU
P: Z → UU
z: Z
egf: ∏ x : P z, invezmappr1 P z (ezmappr1 P z x) = x
isweq (ezmappr1 P z) unfold invezmappr1.
Z: UU
P: Z → UU
z: Z
x: P z
transportf P (pr2 ((z,, x),, idpath z))
  (pr2 (pr1 ((z,, x),, idpath z))) = x
Z: UU
P: Z → UU
z: Z
egf: ∏ x : P z, invezmappr1 P z (ezmappr1 P z x) = x
isweq (ezmappr1 P z) simpl.
Z: UU
P: Z → UU
z: Z
x: P z
transportf P (idpath z) x = x
Z: UU
P: Z → UU
z: Z
egf: ∏ x : P z, invezmappr1 P z (ezmappr1 P z x) = x
isweq (ezmappr1 P z) apply idpath.
Z: UU
P: Z → UU
z: Z
egf: ∏ x : P z, invezmappr1 P z (ezmappr1 P z x) = x
isweq (ezmappr1 P z)
  assert (efg : ∏ x: hfiber (@pr1 Z P) z ,
                     (ezmappr1 _ z (invezmappr1 P z x)) = x).
Z: UU
P: Z → UU
z: Z
egf: ∏ x : P z, invezmappr1 P z (ezmappr1 P z x) = x
∏ x : hfiber pr1 z,
ezmappr1 P z (invezmappr1 P z x) = x
Z: UU
P: Z → UU
z: Z
egf: ∏ x : P z, invezmappr1 P z (ezmappr1 P z x) = x
efg: ∏ x : hfiber pr1 z, ezmappr1 P z (invezmappr1 P z x) = x
isweq (ezmappr1 P z)
  intros.
Z: UU
P: Z → UU
z: Z
egf: ∏ x : P z, invezmappr1 P z (ezmappr1 P z x) = x
x: hfiber pr1 z
ezmappr1 P z (invezmappr1 P z x) = x
Z: UU
P: Z → UU
z: Z
egf: ∏ x : P z, invezmappr1 P z (ezmappr1 P z x) = x
efg: ∏ x : hfiber pr1 z, ezmappr1 P z (invezmappr1 P z x) = x
isweq (ezmappr1 P z) induction x as [ x t0 ].
Z: UU
P: Z → UU
z: Z
egf: ∏ x : P z, invezmappr1 P z (ezmappr1 P z x) = x
x: ∑ y, P y
t0: pr1 x = z
ezmappr1 P z (invezmappr1 P z (x,, t0)) = x,, t0
Z: UU
P: Z → UU
z: Z
egf: ∏ x : P z, invezmappr1 P z (ezmappr1 P z x) = x
efg: ∏ x : hfiber pr1 z, ezmappr1 P z (invezmappr1 P z x) = x
isweq (ezmappr1 P z) induction t0.
Z: UU
P: Z → UU
x: ∑ y, P y
egf: ∏ x0 : P (pr1 x), invezmappr1 P (pr1 x) (ezmappr1 P (pr1 x) x0) = x0
ezmappr1 P (pr1 x)
  (invezmappr1 P (pr1 x) (x,, idpath (pr1 x))) =
x,, idpath (pr1 x)
Z: UU
P: Z → UU
z: Z
egf: ∏ x : P z, invezmappr1 P z (ezmappr1 P z x) = x
efg: ∏ x : hfiber pr1 z, ezmappr1 P z (invezmappr1 P z x) = x
isweq (ezmappr1 P z) simpl in x.
Z: UU
P: Z → UU
x: ∑ y, P y
egf: ∏ x0 : P (pr1 x), invezmappr1 P (pr1 x) (ezmappr1 P (pr1 x) x0) = x0
ezmappr1 P (pr1 x)
  (invezmappr1 P (pr1 x) (x,, idpath (pr1 x))) =
x,, idpath (pr1 x)
Z: UU
P: Z → UU
z: Z
egf: ∏ x : P z, invezmappr1 P z (ezmappr1 P z x) = x
efg: ∏ x : hfiber pr1 z, ezmappr1 P z (invezmappr1 P z x) = x
isweq (ezmappr1 P z) simpl.
Z: UU
P: Z → UU
x: ∑ y, P y
egf: ∏ x0 : P (pr1 x), invezmappr1 P (pr1 x) (ezmappr1 P (pr1 x) x0) = x0
ezmappr1 P (pr1 x)
  (invezmappr1 P (pr1 x) (x,, idpath (pr1 x))) =
x,, idpath (pr1 x)
Z: UU
P: Z → UU
z: Z
egf: ∏ x : P z, invezmappr1 P z (ezmappr1 P z x) = x
efg: ∏ x : hfiber pr1 z, ezmappr1 P z (invezmappr1 P z x) = x
isweq (ezmappr1 P z)
  induction x.
Z: UU
P: Z → UU
pr1: Z
pr2: P pr1
egf: ∏ x : P (Preamble.pr1 (pr1,, pr2)),
invezmappr1 P (Preamble.pr1 (pr1,, pr2))
(ezmappr1 P (Preamble.pr1 (pr1,, pr2)) x) = x
ezmappr1 P (Preamble.pr1 (pr1,, pr2))
  (invezmappr1 P (Preamble.pr1 (pr1,, pr2))
     ((pr1,, pr2),, idpath (Preamble.pr1 (pr1,, pr2)))) =
(pr1,, pr2),, idpath (Preamble.pr1 (pr1,, pr2))
Z: UU
P: Z → UU
z: Z
egf: ∏ x : P z, invezmappr1 P z (ezmappr1 P z x) = x
efg: ∏ x : hfiber pr1 z, ezmappr1 P z (invezmappr1 P z x) = x
isweq (ezmappr1 P z) simpl.
Z: UU
P: Z → UU
pr1: Z
pr2: P pr1
egf: ∏ x : P (Preamble.pr1 (pr1,, pr2)),
invezmappr1 P (Preamble.pr1 (pr1,, pr2))
(ezmappr1 P (Preamble.pr1 (pr1,, pr2)) x) = x
ezmappr1 P pr1
  (invezmappr1 P pr1 ((pr1,, pr2),, idpath pr1)) =
(pr1,, pr2),, idpath pr1
Z: UU
P: Z → UU
z: Z
egf: ∏ x : P z, invezmappr1 P z (ezmappr1 P z x) = x
efg: ∏ x : hfiber pr1 z, ezmappr1 P z (invezmappr1 P z x) = x
isweq (ezmappr1 P z) unfold transportf.
Z: UU
P: Z → UU
pr1: Z
pr2: P pr1
egf: ∏ x : P (Preamble.pr1 (pr1,, pr2)),
invezmappr1 P (Preamble.pr1 (pr1,, pr2))
(ezmappr1 P (Preamble.pr1 (pr1,, pr2)) x) = x
ezmappr1 P pr1
  (invezmappr1 P pr1 ((pr1,, pr2),, idpath pr1)) =
(pr1,, pr2),, idpath pr1
Z: UU
P: Z → UU
z: Z
egf: ∏ x : P z, invezmappr1 P z (ezmappr1 P z x) = x
efg: ∏ x : hfiber pr1 z, ezmappr1 P z (invezmappr1 P z x) = x
isweq (ezmappr1 P z) unfold ezmappr1.
Z: UU
P: Z → UU
pr1: Z
pr2: P pr1
egf: ∏ x : P (Preamble.pr1 (pr1,, pr2)),
invezmappr1 P (Preamble.pr1 (pr1,, pr2))
(ezmappr1 P (Preamble.pr1 (pr1,, pr2)) x) = x
(pr1,, invezmappr1 P pr1 ((pr1,, pr2),, idpath pr1)),,
idpath pr1 = (pr1,, pr2),, idpath pr1
Z: UU
P: Z → UU
z: Z
egf: ∏ x : P z, invezmappr1 P z (ezmappr1 P z x) = x
efg: ∏ x : hfiber pr1 z, ezmappr1 P z (invezmappr1 P z x) = x
isweq (ezmappr1 P z) apply idpath.
Z: UU
P: Z → UU
z: Z
egf: ∏ x : P z, invezmappr1 P z (ezmappr1 P z x) = x
efg: ∏ x : hfiber pr1 z, ezmappr1 P z (invezmappr1 P z x) = x
isweq (ezmappr1 P z)
  apply (isweq_iso _ _ egf efg).
Defined.

Definition ezweqpr1 {Z : UU} (P : Z -> UU) (z : Z)
  := make_weq _ (isweqezmappr1 P z).

Lemma isfibseqpr1 {Z : UU} (P : Z -> UU) (z : Z) :
  isfibseq (λ p : P z, tpair _ z p) (@pr1 Z P) z (λ p : P z, idpath z).
Z: UU
P: Z → UU
z: Z
isfibseq (λ p : P z, z,, p) pr1 z
  (λ _ : P z, idpath z)
Proof.
Z: UU
P: Z → UU
z: Z
isfibseq (λ p : P z, z,, p) pr1 z
  (λ _ : P z, idpath z)
  intros.
Z: UU
P: Z → UU
z: Z
isfibseq (λ p : P z, z,, p) pr1 z
  (λ _ : P z, idpath z) unfold isfibseq.
Z: UU
P: Z → UU
z: Z
isweq
  (ezmap (λ p : P z, z,, p) pr1 z
     (λ _ : P z, idpath z)) unfold ezmap.
Z: UU
P: Z → UU
z: Z
isweq (λ x : P z, make_hfiber pr1 (z,, x) (idpath z)) apply isweqezmappr1.
Defined.

Definition fibseqpr1 {Z : UU} (P : Z -> UU) (z : Z) :
  fibseqstr (λ p : P z, tpair _ z p) (@pr1 Z P) z
  := make_fibseqstr _ _ _ _ (isfibseqpr1 P z).


(** The main weak equivalence defined by the first derived of [ fibseqpr1 ]. *)

Definition ezweq1pr1 {Z : UU} (P : Z -> UU) (z : Z) (zp : total2 P) :
  pr1 zp = z  ≃  hfiber (tpair P z) zp
  := ezweq1 _ _ z (fibseqpr1 P z) zp.







(** *** Fibration sequences based on [ hfiberpr1 : hfiber g z -> Y ] and [ g : Y -> Z ] (the "g-case") *)


Theorem isfibseqg {Y Z : UU} (g : Y -> Z) (z : Z) :
  isfibseq (hfiberpr1 g z) g z (λ ye: _, pr2 ye).
Y, Z: UU
g: Y → Z
z: Z
isfibseq (hfiberpr1 g z) g z
  (λ ye : hfiber g z, pr2 ye)
Proof.
Y, Z: UU
g: Y → Z
z: Z
isfibseq (hfiberpr1 g z) g z
  (λ ye : hfiber g z, pr2 ye)
  intros.
Y, Z: UU
g: Y → Z
z: Z
isfibseq (hfiberpr1 g z) g z
  (λ ye : hfiber g z, pr2 ye)
  simple refine (isweqhomot _ _ _ (idisweq _)).
Y, Z: UU
g: Y → Z
z: Z
idfun (hfiber g z) ~
ezmap (hfiberpr1 g z) g z (λ ye : hfiber g z, pr2 ye)
  -
Y, Z: UU
g: Y → Z
z: Z
idfun (hfiber g z) ~
ezmap (hfiberpr1 g z) g z (λ ye : hfiber g z, pr2 ye) intro.
Y, Z: UU
g: Y → Z
z: Z
x: hfiber g z
idfun (hfiber g z) x =
ezmap (hfiberpr1 g z) g z (λ ye : hfiber g z, pr2 ye)
  x apply idpath.
Defined.

Definition ezweqg {Y Z : UU} (g : Y -> Z) (z : Z) := make_weq _ (isfibseqg g z).
Definition fibseqg {Y Z : UU} (g : Y -> Z) (z : Z)
  : fibseqstr (hfiberpr1 g z) g z := make_fibseqstr _ _ _ _ (isfibseqg g z).


(** The first derived of [ fibseqg ]. *)

Definition d1g {Y Z : UU} (g : Y -> Z) (z : Z) (y : Y) :
  (g y) = z -> hfiber g z := make_hfiber g y.

(** note that [ d1g ] coincides with [ d1 _ _ _ (fibseqg g z) ] which makes
  the following two definitions possible. *)

Definition ezweq1g {Y Z : UU} (g : Y -> Z) (z : Z) (y : Y) :
  g y = z ≃  hfiber (hfiberpr1 g z) y
  := make_weq _ (isweqezmap1 (hfiberpr1  g z) g z (fibseqg g z) y).
Definition fibseq1g {Y Z : UU} (g : Y -> Z) (z : Z) (y : Y) :
  fibseqstr (d1g g z y) (hfiberpr1 g z) y
  := make_fibseqstr _ _ _ _ (isweqezmap1 (hfiberpr1 g z) g z (fibseqg g z) y).


(** The second derived of [ fibseqg ]. *)

Definition d2g {Y Z : UU} (g : Y -> Z) {z : Z} (y : Y) (ye' : hfiber g z)
           (e: (pr1 ye') = y) : (g y) = z
  := pathscomp0 (maponpaths g (pathsinv0 e)) (pr2  ye').

(** note that [ d2g ] coincides with [ d2 _ _ _ (fibseqg g z) ] which makes
  the following two definitions possible. *)

Definition ezweq2g
           {Y Z : UU} (g : Y -> Z) {z : Z} (y : Y) (ye' : hfiber g z) :
  (pr1 ye') = y  ≃  hfiber (make_hfiber g y) ye'
  := ezweq2 _ _ _ (fibseqg g z) _ _.
Definition fibseq2g {Y Z : UU} (g : Y -> Z) {z : Z} (y : Y) (ye' : hfiber g z) :
  fibseqstr (d2g g y ye') (make_hfiber g y) ye'
  := fibseq2 _ _ _ (fibseqg g z) _ _.


(** The third derived of [ fibseqg ] and an explicit description of the
  corresponding first map. *)

Definition d3g {Y Z : UU} (g : Y -> Z) {z : Z} (y : Y) (ye' : hfiber g z)
           (e : (g y) = z) : (make_hfiber g y e) = ye' -> (pr1 ye') = y
  := d2 (d1g  g z y) (hfiberpr1 g z) y (fibseq1g g z y) ye' e.

Lemma homotd3g {Y Z : UU} (g : Y -> Z) {z : Z} (y : Y) (ye' : hfiber g z)
      (e : (g y) = z) (ee : (make_hfiber g y e) = ye') :
  (d3g g y ye' e ee) = (maponpaths (@pr1 _ _) (pathsinv0 ee)).
Y, Z: UU
g: Y → Z
z: Z
y: Y
ye': hfiber g z
e: g y = z
ee: make_hfiber g y e = ye'
d3g g y ye' e ee = maponpaths pr1 (! ee)
Proof.
Y, Z: UU
g: Y → Z
z: Z
y: Y
ye': hfiber g z
e: g y = z
ee: make_hfiber g y e = ye'
d3g g y ye' e ee = maponpaths pr1 (! ee)
  intros.
Y, Z: UU
g: Y → Z
z: Z
y: Y
ye': hfiber g z
e: g y = z
ee: make_hfiber g y e = ye'
d3g g y ye' e ee = maponpaths pr1 (! ee) unfold d3g.
Y, Z: UU
g: Y → Z
z: Z
y: Y
ye': hfiber g z
e: g y = z
ee: make_hfiber g y e = ye'
d2 (d1g g z y) (hfiberpr1 g z) y (fibseq1g g z y) ye'
  e ee = maponpaths pr1 (! ee) unfold d2.
Y, Z: UU
g: Y → Z
z: Z
y: Y
ye': hfiber g z
e: g y = z
ee: make_hfiber g y e = ye'
maponpaths (hfiberpr1 g z) (! ee) @
pr1 (fibseq1g g z y) e = maponpaths pr1 (! ee) simpl.
Y, Z: UU
g: Y → Z
z: Z
y: Y
ye': hfiber g z
e: g y = z
ee: make_hfiber g y e = ye'
maponpaths (hfiberpr1 g z) (! ee) @ idpath y =
maponpaths pr1 (! ee) apply pathscomp0rid.
Defined.

Definition ezweq3g {Y Z : UU} (g : Y -> Z) {z : Z} (y : Y) (ye' : hfiber g z)
           (e : (g y) = z)
  := ezweq2 (d1g g z y) (hfiberpr1 g z) y (fibseq1g g z y) ye' e.
Definition fibseq3g {Y Z : UU} (g : Y -> Z) {z : Z} (y : Y) (ye' : hfiber g z)
           (e : (g y) = z)
  := fibseq2 (d1g g z y) (hfiberpr1 g z) y (fibseq1g g z y) ye' e.



(** *** Fibration sequence of h-fibers defined by a composable pair of functions (the "hf-case")

  We construct a fibration sequence based on [ hfibersftogf f g z ye : hfiber f (pr1 ye) -> hfiber gf z) ]
  and [ hfibersgftog f g z : hfiber gf z -> hfiber g z) ].

*)




Definition hfibersftogf {X Y Z : UU} (f : X -> Y) (g : Y -> Z) (z : Z)
           (ye : hfiber g z) (xe : hfiber f (pr1 ye)) : hfiber (funcomp f g) z.
X, Y, Z: UU
f: X → Y
g: Y → Z
z: Z
ye: hfiber g z
xe: hfiber f (pr1 ye)
hfiber (g ∘ f) z
Proof.
X, Y, Z: UU
f: X → Y
g: Y → Z
z: Z
ye: hfiber g z
xe: hfiber f (pr1 ye)
hfiber (g ∘ f) z
  intros.
X, Y, Z: UU
f: X → Y
g: Y → Z
z: Z
ye: hfiber g z
xe: hfiber f (pr1 ye)
hfiber (g ∘ f) z
  split with (pr1 xe).
X, Y, Z: UU
f: X → Y
g: Y → Z
z: Z
ye: hfiber g z
xe: hfiber f (pr1 ye)
(g ∘ f) (pr1 xe) = z
  apply (pathscomp0 (maponpaths g (pr2 xe)) (pr2 ye)).
Defined.



Definition ezmaphf {X Y Z : UU} (f : X -> Y) (g : Y -> Z) (z : Z)
           (ye : hfiber g z) (xe : hfiber f (pr1 ye)) :
  hfiber (hfibersgftog f g z) ye.
X, Y, Z: UU
f: X → Y
g: Y → Z
z: Z
ye: hfiber g z
xe: hfiber f (pr1 ye)
hfiber (hfibersgftog f g z) ye
Proof.
X, Y, Z: UU
f: X → Y
g: Y → Z
z: Z
ye: hfiber g z
xe: hfiber f (pr1 ye)
hfiber (hfibersgftog f g z) ye
  intros.
X, Y, Z: UU
f: X → Y
g: Y → Z
z: Z
ye: hfiber g z
xe: hfiber f (pr1 ye)
hfiber (hfibersgftog f g z) ye
  split with (hfibersftogf f g z ye xe).
X, Y, Z: UU
f: X → Y
g: Y → Z
z: Z
ye: hfiber g z
xe: hfiber f (pr1 ye)
hfibersgftog f g z (hfibersftogf f g z ye xe) = ye simpl.
X, Y, Z: UU
f: X → Y
g: Y → Z
z: Z
ye: hfiber g z
xe: hfiber f (pr1 ye)
hfibersgftog f g z (hfibersftogf f g z ye xe) = ye
  apply (hfibertriangle2
           g (make_hfiber g (f (pr1 xe)) (pathscomp0 (maponpaths g (pr2 xe))
                                                    (pr2 ye))) ye (pr2 xe)).
X, Y, Z: UU
f: X → Y
g: Y → Z
z: Z
ye: hfiber g z
xe: hfiber f (pr1 ye)
pr2
  (make_hfiber g (f (pr1 xe))
     (maponpaths g (pr2 xe) @ pr2 ye)) =
maponpaths g (pr2 xe) @ pr2 ye
  simpl.
X, Y, Z: UU
f: X → Y
g: Y → Z
z: Z
ye: hfiber g z
xe: hfiber f (pr1 ye)
maponpaths g (pr2 xe) @ pr2 ye =
maponpaths g (pr2 xe) @ pr2 ye apply idpath.
Defined.

Definition invezmaphf {X Y Z : UU} (f : X -> Y) (g : Y -> Z) (z : Z)
           (ye : hfiber g z) (xee' : hfiber (hfibersgftog f g z) ye) :
  hfiber f (pr1 ye).
X, Y, Z: UU
f: X → Y
g: Y → Z
z: Z
ye: hfiber g z
xee': hfiber (hfibersgftog f g z) ye
hfiber f (pr1 ye)
Proof.
X, Y, Z: UU
f: X → Y
g: Y → Z
z: Z
ye: hfiber g z
xee': hfiber (hfibersgftog f g z) ye
hfiber f (pr1 ye)
  intros.
X, Y, Z: UU
f: X → Y
g: Y → Z
z: Z
ye: hfiber g z
xee': hfiber (hfibersgftog f g z) ye
hfiber f (pr1 ye)
  split with (pr1 (pr1 xee')).
X, Y, Z: UU
f: X → Y
g: Y → Z
z: Z
ye: hfiber g z
xee': hfiber (hfibersgftog f g z) ye
f (pr1 (pr1 xee')) = pr1 ye
  apply (maponpaths (hfiberpr1 _ _) (pr2 xee')).
Defined.

Definition ffgg {X Y Z : UU} (f : X -> Y) (g : Y -> Z) (z : Z)
           (ye : hfiber g z) (xee' : hfiber (hfibersgftog f g z) ye) :
  hfiber (hfibersgftog f g z) ye.
X, Y, Z: UU
f: X → Y
g: Y → Z
z: Z
ye: hfiber g z
xee': hfiber (hfibersgftog f g z) ye
hfiber (hfibersgftog f g z) ye
Proof.
X, Y, Z: UU
f: X → Y
g: Y → Z
z: Z
ye: hfiber g z
xee': hfiber (hfibersgftog f g z) ye
hfiber (hfibersgftog f g z) ye
  intros.
X, Y, Z: UU
f: X → Y
g: Y → Z
z: Z
ye: hfiber g z
xee': hfiber (hfibersgftog f g z) ye
hfiber (hfibersgftog f g z) ye
  induction ye as [ y e ].
X, Y, Z: UU
f: X → Y
g: Y → Z
z: Z
y: Y
e: g y = z
xee': hfiber (hfibersgftog f g z) (y,, e)
hfiber (hfibersgftog f g z) (y,, e) induction e.
X, Y, Z: UU
f: X → Y
g: Y → Z
y: Y
xee': hfiber (hfibersgftog f g (g y))
  (y,, idpath (g y))
hfiber (hfibersgftog f g (g y)) (y,, idpath (g y)) unfold hfibersgftog.
X, Y, Z: UU
f: X → Y
g: Y → Z
y: Y
xee': hfiber (hfibersgftog f g (g y))
  (y,, idpath (g y))
hfiber
  (λ xe : hfiber (g ∘ f) (g y),
   make_hfiber g (f (pr1 xe)) (pr2 xe))
  (y,, idpath (g y))
  unfold hfibersgftog in xee'.
X, Y, Z: UU
f: X → Y
g: Y → Z
y: Y
xee': hfiber
  (λ xe : hfiber (g ∘ f) (g y),
   make_hfiber g (f (pr1 xe)) (pr2 xe))
  (y,, idpath (g y))
hfiber
  (λ xe : hfiber (g ∘ f) (g y),
   make_hfiber g (f (pr1 xe)) (pr2 xe))
  (y,, idpath (g y))
  induction xee' as [ xe e' ].
X, Y, Z: UU
f: X → Y
g: Y → Z
y: Y
xe: hfiber (g ∘ f) (g y)
e': make_hfiber g (f (pr1 xe)) (pr2 xe) =
y,, idpath (g y)
hfiber
  (λ xe : hfiber (g ∘ f) (g y),
   make_hfiber g (f (pr1 xe)) (pr2 xe))
  (y,, idpath (g y)) induction xe as [ x e ].
X, Y, Z: UU
f: X → Y
g: Y → Z
y: Y
x: X
e: (g ∘ f) x = g y
e': make_hfiber g (f (pr1 (x,, e))) (pr2 (x,, e)) =
y,, idpath (g y)
hfiber
  (λ xe : hfiber (g ∘ f) (g y),
   make_hfiber g (f (pr1 xe)) (pr2 xe))
  (y,, idpath (g y))
  set (e'' := (maponpaths g (maponpaths (hfiberpr1 g (g y)) e'))).
X, Y, Z: UU
f: X → Y
g: Y → Z
y: Y
x: X
e: (g ∘ f) x = g y
e': make_hfiber g (f (pr1 (x,, e))) (pr2 (x,, e)) =
y,, idpath (g y)
e'':= maponpaths g (maponpaths (hfiberpr1 g (g y)) e'): g
  (hfiberpr1 g (g y)
     (make_hfiber g (f (pr1 (x,, e)))
        (pr2 (x,, e)))) =
g (hfiberpr1 g (g y) (y,, idpath (g y)))
hfiber
  (λ xe : hfiber (g ∘ f) (g y),
   make_hfiber g (f (pr1 xe)) (pr2 xe))
  (y,, idpath (g y))
  simpl in e'.
X, Y, Z: UU
f: X → Y
g: Y → Z
y: Y
x: X
e: (g ∘ f) x = g y
e': make_hfiber g (f x) e = y,, idpath (g y)
e'':= maponpaths g (maponpaths (hfiberpr1 g (g y)) e'): g
  (hfiberpr1 g (g y)
     (make_hfiber g (f (pr1 (x,, e)))
        (pr2 (x,, e)))) =
g (hfiberpr1 g (g y) (y,, idpath (g y)))
hfiber
  (λ xe : hfiber (g ∘ f) (g y),
   make_hfiber g (f (pr1 xe)) (pr2 xe))
  (y,, idpath (g y))
  split with (make_hfiber (funcomp f g) x (pathscomp0 e'' (idpath (g y)))).
X, Y, Z: UU
f: X → Y
g: Y → Z
y: Y
x: X
e: (g ∘ f) x = g y
e': make_hfiber g (f x) e = y,, idpath (g y)
e'':= maponpaths g (maponpaths (hfiberpr1 g (g y)) e'): g
  (hfiberpr1 g (g y)
     (make_hfiber g (f (pr1 (x,, e)))
        (pr2 (x,, e)))) =
g (hfiberpr1 g (g y) (y,, idpath (g y)))
make_hfiber g
  (f
     (pr1 (make_hfiber (g ∘ f) x (e'' @ idpath (g y)))))
  (pr2 (make_hfiber (g ∘ f) x (e'' @ idpath (g y)))) =
y,, idpath (g y)
  simpl.
X, Y, Z: UU
f: X → Y
g: Y → Z
y: Y
x: X
e: (g ∘ f) x = g y
e': make_hfiber g (f x) e = y,, idpath (g y)
e'':= maponpaths g (maponpaths (hfiberpr1 g (g y)) e'): g
  (hfiberpr1 g (g y)
     (make_hfiber g (f (pr1 (x,, e)))
        (pr2 (x,, e)))) =
g (hfiberpr1 g (g y) (y,, idpath (g y)))
make_hfiber g (f x) (e'' @ idpath (g y)) =
y,, idpath (g y)
  apply (hfibertriangle2 _ (make_hfiber g (f x) (pathscomp0 e'' (idpath (g y))))
                         (make_hfiber g y (idpath _))
                         (maponpaths (hfiberpr1 _ _) e') (idpath _)).
Defined.

Definition homotffggid {X Y Z : UU} (f : X -> Y) (g : Y -> Z) (z : Z)
           (ye : hfiber g z) (xee' : hfiber (hfibersgftog f g z) ye) :
  (ffgg f g z ye xee') = xee'.
X, Y, Z: UU
f: X → Y
g: Y → Z
z: Z
ye: hfiber g z
xee': hfiber (hfibersgftog f g z) ye
ffgg f g z ye xee' = xee'
Proof.
X, Y, Z: UU
f: X → Y
g: Y → Z
z: Z
ye: hfiber g z
xee': hfiber (hfibersgftog f g z) ye
ffgg f g z ye xee' = xee'
  intros.
X, Y, Z: UU
f: X → Y
g: Y → Z
z: Z
ye: hfiber g z
xee': hfiber (hfibersgftog f g z) ye
ffgg f g z ye xee' = xee'
  induction ye as [ y e ].
X, Y, Z: UU
f: X → Y
g: Y → Z
z: Z
y: Y
e: g y = z
xee': hfiber (hfibersgftog f g z) (y,, e)
ffgg f g z (y,, e) xee' = xee' induction e.
X, Y, Z: UU
f: X → Y
g: Y → Z
y: Y
xee': hfiber (hfibersgftog f g (g y))
  (y,, idpath (g y))
ffgg f g (g y) (y,, idpath (g y)) xee' = xee'
  induction xee' as [ xe e' ].
X, Y, Z: UU
f: X → Y
g: Y → Z
y: Y
xe: hfiber (g ∘ f) (g y)
e': hfibersgftog f g (g y) xe = y,, idpath (g y)
ffgg f g (g y) (y,, idpath (g y)) (xe,, e') = xe,, e' induction e'.
X, Y, Z: UU
f: X → Y
g: Y → Z
y: Y
xe: hfiber (g ∘ f) (g y)
ffgg f g (g y) (hfibersgftog f g (g y) xe)
  (xe,, idpath (hfibersgftog f g (g y) xe)) =
xe,, idpath (hfibersgftog f g (g y) xe)
  induction xe as [ x e ].
X, Y, Z: UU
f: X → Y
g: Y → Z
y: Y
x: X
e: (g ∘ f) x = g y
ffgg f g (g y) (hfibersgftog f g (g y) (x,, e))
  ((x,, e),, idpath (hfibersgftog f g (g y) (x,, e))) =
(x,, e),, idpath (hfibersgftog f g (g y) (x,, e)) induction e.
X, Y, Z: UU
f: X → Y
g: Y → Z
y: Y
x: X
ffgg f g ((g ∘ f) x)
  (hfibersgftog f g ((g ∘ f) x)
     (x,, idpath ((g ∘ f) x)))
  ((x,, idpath ((g ∘ f) x)),,
   idpath
     (hfibersgftog f g ((g ∘ f) x)
        (x,, idpath ((g ∘ f) x)))) =
(x,, idpath ((g ∘ f) x)),,
idpath
  (hfibersgftog f g ((g ∘ f) x)
     (x,, idpath ((g ∘ f) x)))
  simpl.
X, Y, Z: UU
f: X → Y
g: Y → Z
y: Y
x: X
make_hfiber (g ∘ f) x (idpath (g (f x))),,
idpath (make_hfiber g (f x) (idpath (g (f x)))) =
(x,, idpath (g (f x))),,
idpath
  (hfibersgftog f g (g (f x)) (x,, idpath (g (f x)))) apply idpath.
Defined.

Theorem isweqezmaphf {X Y Z : UU} (f : X -> Y) (g : Y -> Z)
        (z : Z) (ye : hfiber g z) : isweq (ezmaphf f g z ye).
X, Y, Z: UU
f: X → Y
g: Y → Z
z: Z
ye: hfiber g z
isweq (ezmaphf f g z ye)
Proof.
X, Y, Z: UU
f: X → Y
g: Y → Z
z: Z
ye: hfiber g z
isweq (ezmaphf f g z ye)
  intros.
X, Y, Z: UU
f: X → Y
g: Y → Z
z: Z
ye: hfiber g z
isweq (ezmaphf f g z ye)
  set (ff := ezmaphf f g z ye).
X, Y, Z: UU
f: X → Y
g: Y → Z
z: Z
ye: hfiber g z
ff:= ezmaphf f g z ye: hfiber f (pr1 ye)
→ hfiber (hfibersgftog f g z) ye
isweq ff set (gg := invezmaphf f g z ye).
X, Y, Z: UU
f: X → Y
g: Y → Z
z: Z
ye: hfiber g z
ff:= ezmaphf f g z ye: hfiber f (pr1 ye)
→ hfiber (hfibersgftog f g z) ye
gg:= invezmaphf f g z ye: hfiber (hfibersgftog f g z) ye
→ hfiber f (pr1 ye)
isweq ff
  assert (egf : ∏ xe : _ , (gg (ff xe)) = xe).
X, Y, Z: UU
f: X → Y
g: Y → Z
z: Z
ye: hfiber g z
ff:= ezmaphf f g z ye: hfiber f (pr1 ye)
→ hfiber (hfibersgftog f g z) ye
gg:= invezmaphf f g z ye: hfiber (hfibersgftog f g z) ye
→ hfiber f (pr1 ye)
∏ xe : hfiber f (pr1 ye), gg (ff xe) = xe
X, Y, Z: UU
f: X → Y
g: Y → Z
z: Z
ye: hfiber g z
ff:= ezmaphf f g z ye: hfiber f (pr1 ye)
→ hfiber (hfibersgftog f g z) ye
gg:= invezmaphf f g z ye: hfiber (hfibersgftog f g z) ye
→ hfiber f (pr1 ye)
egf: ∏ xe : hfiber f (pr1 ye), gg (ff xe) = xe
isweq ff
  induction ye as [ y e ].
X, Y, Z: UU
f: X → Y
g: Y → Z
z: Z
y: Y
e: g y = z
ff:= ezmaphf f g z (y,, e): hfiber f (pr1 (y,, e))
→ hfiber (hfibersgftog f g z) (y,, e)
gg:= invezmaphf f g z (y,, e): hfiber (hfibersgftog f g z) (y,, e)
→ hfiber f (pr1 (y,, e))
∏ xe : hfiber f (pr1 (y,, e)), gg (ff xe) = xe
X, Y, Z: UU
f: X → Y
g: Y → Z
z: Z
ye: hfiber g z
ff:= ezmaphf f g z ye: hfiber f (pr1 ye)
→ hfiber (hfibersgftog f g z) ye
gg:= invezmaphf f g z ye: hfiber (hfibersgftog f g z) ye
→ hfiber f (pr1 ye)
egf: ∏ xe : hfiber f (pr1 ye), gg (ff xe) = xe
isweq ff induction e.
X, Y, Z: UU
f: X → Y
g: Y → Z
y: Y
ff:= ezmaphf f g (g y) (y,, idpath (g y)): hfiber f (pr1 (y,, idpath (g y)))
→ hfiber (hfibersgftog f g (g y))
    (y,, idpath (g y))
gg:= invezmaphf f g (g y) (y,, idpath (g y)): hfiber (hfibersgftog f g (g y))
  (y,, idpath (g y))
→ hfiber f (pr1 (y,, idpath (g y)))
∏ xe : hfiber f (pr1 (y,, idpath (g y))),
gg (ff xe) = xe
X, Y, Z: UU
f: X → Y
g: Y → Z
z: Z
ye: hfiber g z
ff:= ezmaphf f g z ye: hfiber f (pr1 ye)
→ hfiber (hfibersgftog f g z) ye
gg:= invezmaphf f g z ye: hfiber (hfibersgftog f g z) ye
→ hfiber f (pr1 ye)
egf: ∏ xe : hfiber f (pr1 ye), gg (ff xe) = xe
isweq ff intro xe.
X, Y, Z: UU
f: X → Y
g: Y → Z
y: Y
ff:= ezmaphf f g (g y) (y,, idpath (g y)): hfiber f (pr1 (y,, idpath (g y)))
→ hfiber (hfibersgftog f g (g y))
    (y,, idpath (g y))
gg:= invezmaphf f g (g y) (y,, idpath (g y)): hfiber (hfibersgftog f g (g y))
  (y,, idpath (g y))
→ hfiber f (pr1 (y,, idpath (g y)))
xe: hfiber f (pr1 (y,, idpath (g y)))
gg (ff xe) = xe
X, Y, Z: UU
f: X → Y
g: Y → Z
z: Z
ye: hfiber g z
ff:= ezmaphf f g z ye: hfiber f (pr1 ye)
→ hfiber (hfibersgftog f g z) ye
gg:= invezmaphf f g z ye: hfiber (hfibersgftog f g z) ye
→ hfiber f (pr1 ye)
egf: ∏ xe : hfiber f (pr1 ye), gg (ff xe) = xe
isweq ff
  apply (hfibertriangle2 f (gg (ff xe)) xe (idpath (pr1 xe))).
X, Y, Z: UU
f: X → Y
g: Y → Z
y: Y
ff:= ezmaphf f g (g y) (y,, idpath (g y)): hfiber f (pr1 (y,, idpath (g y)))
→ hfiber (hfibersgftog f g (g y))
    (y,, idpath (g y))
gg:= invezmaphf f g (g y) (y,, idpath (g y)): hfiber (hfibersgftog f g (g y))
  (y,, idpath (g y))
→ hfiber f (pr1 (y,, idpath (g y)))
xe: hfiber f (pr1 (y,, idpath (g y)))
pr2 (gg (ff xe)) =
maponpaths f (idpath (pr1 xe)) @ pr2 xe
X, Y, Z: UU
f: X → Y
g: Y → Z
z: Z
ye: hfiber g z
ff:= ezmaphf f g z ye: hfiber f (pr1 ye)
→ hfiber (hfibersgftog f g z) ye
gg:= invezmaphf f g z ye: hfiber (hfibersgftog f g z) ye
→ hfiber f (pr1 ye)
egf: ∏ xe : hfiber f (pr1 ye), gg (ff xe) = xe
isweq ff
  induction xe as [ x ex ].
X, Y, Z: UU
f: X → Y
g: Y → Z
y: Y
ff:= ezmaphf f g (g y) (y,, idpath (g y)): hfiber f (pr1 (y,, idpath (g y)))
→ hfiber (hfibersgftog f g (g y))
    (y,, idpath (g y))
gg:= invezmaphf f g (g y) (y,, idpath (g y)): hfiber (hfibersgftog f g (g y))
  (y,, idpath (g y))
→ hfiber f (pr1 (y,, idpath (g y)))
x: X
ex: f x = pr1 (y,, idpath (g y))
pr2 (gg (ff (x,, ex))) =
maponpaths f (idpath (pr1 (x,, ex))) @ pr2 (x,, ex)
X, Y, Z: UU
f: X → Y
g: Y → Z
z: Z
ye: hfiber g z
ff:= ezmaphf f g z ye: hfiber f (pr1 ye)
→ hfiber (hfibersgftog f g z) ye
gg:= invezmaphf f g z ye: hfiber (hfibersgftog f g z) ye
→ hfiber f (pr1 ye)
egf: ∏ xe : hfiber f (pr1 ye), gg (ff xe) = xe
isweq ff simpl in ex.
X, Y, Z: UU
f: X → Y
g: Y → Z
y: Y
ff:= ezmaphf f g (g y) (y,, idpath (g y)): hfiber f (pr1 (y,, idpath (g y)))
→ hfiber (hfibersgftog f g (g y))
    (y,, idpath (g y))
gg:= invezmaphf f g (g y) (y,, idpath (g y)): hfiber (hfibersgftog f g (g y))
  (y,, idpath (g y))
→ hfiber f (pr1 (y,, idpath (g y)))
x: X
ex: f x = y
pr2 (gg (ff (x,, ex))) =
maponpaths f (idpath (pr1 (x,, ex))) @ pr2 (x,, ex)
X, Y, Z: UU
f: X → Y
g: Y → Z
z: Z
ye: hfiber g z
ff:= ezmaphf f g z ye: hfiber f (pr1 ye)
→ hfiber (hfibersgftog f g z) ye
gg:= invezmaphf f g z ye: hfiber (hfibersgftog f g z) ye
→ hfiber f (pr1 ye)
egf: ∏ xe : hfiber f (pr1 ye), gg (ff xe) = xe
isweq ff induction ex.
X, Y, Z: UU
f: X → Y
g: Y → Z
x: X
ff:= ezmaphf f g (g (f x)) (f x,, idpath (g (f x))): hfiber f (pr1 (f x,, idpath (g (f x))))
→ hfiber (hfibersgftog f g (g (f x)))
    (f x,, idpath (g (f x)))
gg:= invezmaphf f g (g (f x)) (f x,, idpath (g (f x))): hfiber (hfibersgftog f g (g (f x)))
  (f x,, idpath (g (f x)))
→ hfiber f (pr1 (f x,, idpath (g (f x))))
pr2 (gg (ff (x,, idpath (f x)))) =
maponpaths f (idpath (pr1 (x,, idpath (f x)))) @
pr2 (x,, idpath (f x))
X, Y, Z: UU
f: X → Y
g: Y → Z
z: Z
ye: hfiber g z
ff:= ezmaphf f g z ye: hfiber f (pr1 ye)
→ hfiber (hfibersgftog f g z) ye
gg:= invezmaphf f g z ye: hfiber (hfibersgftog f g z) ye
→ hfiber f (pr1 ye)
egf: ∏ xe : hfiber f (pr1 ye), gg (ff xe) = xe
isweq ff simpl.
X, Y, Z: UU
f: X → Y
g: Y → Z
x: X
ff:= ezmaphf f g (g (f x)) (f x,, idpath (g (f x))): hfiber f (pr1 (f x,, idpath (g (f x))))
→ hfiber (hfibersgftog f g (g (f x)))
    (f x,, idpath (g (f x)))
gg:= invezmaphf f g (g (f x)) (f x,, idpath (g (f x))): hfiber (hfibersgftog f g (g (f x)))
  (f x,, idpath (g (f x)))
→ hfiber f (pr1 (f x,, idpath (g (f x))))
idpath (f x) = idpath (f x)
X, Y, Z: UU
f: X → Y
g: Y → Z
z: Z
ye: hfiber g z
ff:= ezmaphf f g z ye: hfiber f (pr1 ye)
→ hfiber (hfibersgftog f g z) ye
gg:= invezmaphf f g z ye: hfiber (hfibersgftog f g z) ye
→ hfiber f (pr1 ye)
egf: ∏ xe : hfiber f (pr1 ye), gg (ff xe) = xe
isweq ff apply idpath.
X, Y, Z: UU
f: X → Y
g: Y → Z
z: Z
ye: hfiber g z
ff:= ezmaphf f g z ye: hfiber f (pr1 ye)
→ hfiber (hfibersgftog f g z) ye
gg:= invezmaphf f g z ye: hfiber (hfibersgftog f g z) ye
→ hfiber f (pr1 ye)
egf: ∏ xe : hfiber f (pr1 ye), gg (ff xe) = xe
isweq ff
  assert (efg : ∏ xee' : _ , (ff (gg xee')) = xee').
X, Y, Z: UU
f: X → Y
g: Y → Z
z: Z
ye: hfiber g z
ff:= ezmaphf f g z ye: hfiber f (pr1 ye)
→ hfiber (hfibersgftog f g z) ye
gg:= invezmaphf f g z ye: hfiber (hfibersgftog f g z) ye
→ hfiber f (pr1 ye)
egf: ∏ xe : hfiber f (pr1 ye), gg (ff xe) = xe
∏ xee' : hfiber (hfibersgftog f g z) ye,
ff (gg xee') = xee'
X, Y, Z: UU
f: X → Y
g: Y → Z
z: Z
ye: hfiber g z
ff:= ezmaphf f g z ye: hfiber f (pr1 ye)
→ hfiber (hfibersgftog f g z) ye
gg:= invezmaphf f g z ye: hfiber (hfibersgftog f g z) ye
→ hfiber f (pr1 ye)
egf: ∏ xe : hfiber f (pr1 ye), gg (ff xe) = xe
efg: ∏ xee' : hfiber (hfibersgftog f g z) ye, ff (gg xee') = xee'
isweq ff
  induction ye as [ y e ].
X, Y, Z: UU
f: X → Y
g: Y → Z
z: Z
y: Y
e: g y = z
ff:= ezmaphf f g z (y,, e): hfiber f (pr1 (y,, e))
→ hfiber (hfibersgftog f g z) (y,, e)
gg:= invezmaphf f g z (y,, e): hfiber (hfibersgftog f g z) (y,, e)
→ hfiber f (pr1 (y,, e))
egf: ∏ xe : hfiber f (pr1 (y,, e)), gg (ff xe) = xe
∏ xee' : hfiber (hfibersgftog f g z) (y,, e),
ff (gg xee') = xee'
X, Y, Z: UU
f: X → Y
g: Y → Z
z: Z
ye: hfiber g z
ff:= ezmaphf f g z ye: hfiber f (pr1 ye)
→ hfiber (hfibersgftog f g z) ye
gg:= invezmaphf f g z ye: hfiber (hfibersgftog f g z) ye
→ hfiber f (pr1 ye)
egf: ∏ xe : hfiber f (pr1 ye), gg (ff xe) = xe
efg: ∏ xee' : hfiber (hfibersgftog f g z) ye, ff (gg xee') = xee'
isweq ff induction e.
X, Y, Z: UU
f: X → Y
g: Y → Z
y: Y
ff:= ezmaphf f g (g y) (y,, idpath (g y)): hfiber f (pr1 (y,, idpath (g y)))
→ hfiber (hfibersgftog f g (g y))
    (y,, idpath (g y))
gg:= invezmaphf f g (g y) (y,, idpath (g y)): hfiber (hfibersgftog f g (g y))
  (y,, idpath (g y))
→ hfiber f (pr1 (y,, idpath (g y)))
egf: ∏ xe : hfiber f (pr1 (y,, idpath (g y))), gg (ff xe) = xe
∏
xee' : hfiber (hfibersgftog f g (g y))
         (y,, idpath (g y)), ff (gg xee') = xee'
X, Y, Z: UU
f: X → Y
g: Y → Z
z: Z
ye: hfiber g z
ff:= ezmaphf f g z ye: hfiber f (pr1 ye)
→ hfiber (hfibersgftog f g z) ye
gg:= invezmaphf f g z ye: hfiber (hfibersgftog f g z) ye
→ hfiber f (pr1 ye)
egf: ∏ xe : hfiber f (pr1 ye), gg (ff xe) = xe
efg: ∏ xee' : hfiber (hfibersgftog f g z) ye, ff (gg xee') = xee'
isweq ff intro xee'.
X, Y, Z: UU
f: X → Y
g: Y → Z
y: Y
ff:= ezmaphf f g (g y) (y,, idpath (g y)): hfiber f (pr1 (y,, idpath (g y)))
→ hfiber (hfibersgftog f g (g y))
    (y,, idpath (g y))
gg:= invezmaphf f g (g y) (y,, idpath (g y)): hfiber (hfibersgftog f g (g y))
  (y,, idpath (g y))
→ hfiber f (pr1 (y,, idpath (g y)))
egf: ∏ xe : hfiber f (pr1 (y,, idpath (g y))), gg (ff xe) = xe
xee': hfiber (hfibersgftog f g (g y))
  (y,, idpath (g y))
ff (gg xee') = xee'
X, Y, Z: UU
f: X → Y
g: Y → Z
z: Z
ye: hfiber g z
ff:= ezmaphf f g z ye: hfiber f (pr1 ye)
→ hfiber (hfibersgftog f g z) ye
gg:= invezmaphf f g z ye: hfiber (hfibersgftog f g z) ye
→ hfiber f (pr1 ye)
egf: ∏ xe : hfiber f (pr1 ye), gg (ff xe) = xe
efg: ∏ xee' : hfiber (hfibersgftog f g z) ye,
ff (gg xee') = xee'
isweq ff
  assert (hint : (ff (gg xee'))
                 = (ffgg f g (g y) (make_hfiber g y (idpath _)) xee')).
X, Y, Z: UU
f: X → Y
g: Y → Z
y: Y
ff:= ezmaphf f g (g y) (y,, idpath (g y)): hfiber f (pr1 (y,, idpath (g y)))
→ hfiber (hfibersgftog f g (g y))
    (y,, idpath (g y))
gg:= invezmaphf f g (g y) (y,, idpath (g y)): hfiber (hfibersgftog f g (g y))
  (y,, idpath (g y))
→ hfiber f (pr1 (y,, idpath (g y)))
egf: ∏ xe : hfiber f (pr1 (y,, idpath (g y))),
gg (ff xe) = xe
xee': hfiber (hfibersgftog f g (g y))
  (y,, idpath (g y))
ff (gg xee') =
ffgg f g (g y) (make_hfiber g y (idpath (g y))) xee'
X, Y, Z: UU
f: X → Y
g: Y → Z
y: Y
ff:= ezmaphf f g (g y) (y,, idpath (g y)): hfiber f (pr1 (y,, idpath (g y)))
→ hfiber (hfibersgftog f g (g y))
    (y,, idpath (g y))
gg:= invezmaphf f g (g y) (y,, idpath (g y)): hfiber (hfibersgftog f g (g y))
  (y,, idpath (g y))
→ hfiber f (pr1 (y,, idpath (g y)))
egf: ∏ xe : hfiber f (pr1 (y,, idpath (g y))),
gg (ff xe) = xe
xee': hfiber (hfibersgftog f g (g y))
  (y,, idpath (g y))
hint: ff (gg xee') =
ffgg f g (g y) (make_hfiber g y (idpath (g y)))
  xee'
ff (gg xee') = xee'
X, Y, Z: UU
f: X → Y
g: Y → Z
z: Z
ye: hfiber g z
ff:= ezmaphf f g z ye: hfiber f (pr1 ye)
→ hfiber (hfibersgftog f g z) ye
gg:= invezmaphf f g z ye: hfiber (hfibersgftog f g z) ye
→ hfiber f (pr1 ye)
egf: ∏ xe : hfiber f (pr1 ye), gg (ff xe) = xe
efg: ∏ xee' : hfiber (hfibersgftog f g z) ye,
ff (gg xee') = xee'
isweq ff
  induction xee' as [ xe e' ].
X, Y, Z: UU
f: X → Y
g: Y → Z
y: Y
ff:= ezmaphf f g (g y) (y,, idpath (g y)): hfiber f (pr1 (y,, idpath (g y)))
→ hfiber (hfibersgftog f g (g y))
    (y,, idpath (g y))
gg:= invezmaphf f g (g y) (y,, idpath (g y)): hfiber (hfibersgftog f g (g y))
  (y,, idpath (g y))
→ hfiber f (pr1 (y,, idpath (g y)))
egf: ∏ xe : hfiber f (pr1 (y,, idpath (g y))),
gg (ff xe) = xe
xe: hfiber (g ∘ f) (g y)
e': hfibersgftog f g (g y) xe = y,, idpath (g y)
ff (gg (xe,, e')) =
ffgg f g (g y) (make_hfiber g y (idpath (g y)))
  (xe,, e')
X, Y, Z: UU
f: X → Y
g: Y → Z
y: Y
ff:= ezmaphf f g (g y) (y,, idpath (g y)): hfiber f (pr1 (y,, idpath (g y)))
→ hfiber (hfibersgftog f g (g y))
    (y,, idpath (g y))
gg:= invezmaphf f g (g y) (y,, idpath (g y)): hfiber (hfibersgftog f g (g y))
  (y,, idpath (g y))
→ hfiber f (pr1 (y,, idpath (g y)))
egf: ∏ xe : hfiber f (pr1 (y,, idpath (g y))),
gg (ff xe) = xe
xee': hfiber (hfibersgftog f g (g y))
  (y,, idpath (g y))
hint: ff (gg xee') =
ffgg f g (g y) (make_hfiber g y (idpath (g y)))
  xee'
ff (gg xee') = xee'
X, Y, Z: UU
f: X → Y
g: Y → Z
z: Z
ye: hfiber g z
ff:= ezmaphf f g z ye: hfiber f (pr1 ye)
→ hfiber (hfibersgftog f g z) ye
gg:= invezmaphf f g z ye: hfiber (hfibersgftog f g z) ye
→ hfiber f (pr1 ye)
egf: ∏ xe : hfiber f (pr1 ye), gg (ff xe) = xe
efg: ∏ xee' : hfiber (hfibersgftog f g z) ye,
ff (gg xee') = xee'
isweq ff induction xe as [ x e ].
X, Y, Z: UU
f: X → Y
g: Y → Z
y: Y
ff:= ezmaphf f g (g y) (y,, idpath (g y)): hfiber f (pr1 (y,, idpath (g y)))
→ hfiber (hfibersgftog f g (g y))
    (y,, idpath (g y))
gg:= invezmaphf f g (g y) (y,, idpath (g y)): hfiber (hfibersgftog f g (g y))
  (y,, idpath (g y))
→ hfiber f (pr1 (y,, idpath (g y)))
egf: ∏ xe : hfiber f (pr1 (y,, idpath (g y))),
gg (ff xe) = xe
x: X
e: (g ∘ f) x = g y
e': hfibersgftog f g (g y) (x,, e) = y,, idpath (g y)
ff (gg ((x,, e),, e')) =
ffgg f g (g y) (make_hfiber g y (idpath (g y)))
  ((x,, e),, e')
X, Y, Z: UU
f: X → Y
g: Y → Z
y: Y
ff:= ezmaphf f g (g y) (y,, idpath (g y)): hfiber f (pr1 (y,, idpath (g y)))
→ hfiber (hfibersgftog f g (g y))
    (y,, idpath (g y))
gg:= invezmaphf f g (g y) (y,, idpath (g y)): hfiber (hfibersgftog f g (g y))
  (y,, idpath (g y))
→ hfiber f (pr1 (y,, idpath (g y)))
egf: ∏ xe : hfiber f (pr1 (y,, idpath (g y))),
gg (ff xe) = xe
xee': hfiber (hfibersgftog f g (g y))
  (y,, idpath (g y))
hint: ff (gg xee') =
ffgg f g (g y) (make_hfiber g y (idpath (g y)))
  xee'
ff (gg xee') = xee'
X, Y, Z: UU
f: X → Y
g: Y → Z
z: Z
ye: hfiber g z
ff:= ezmaphf f g z ye: hfiber f (pr1 ye)
→ hfiber (hfibersgftog f g z) ye
gg:= invezmaphf f g z ye: hfiber (hfibersgftog f g z) ye
→ hfiber f (pr1 ye)
egf: ∏ xe : hfiber f (pr1 ye), gg (ff xe) = xe
efg: ∏ xee' : hfiber (hfibersgftog f g z) ye,
ff (gg xee') = xee'
isweq ff apply idpath.
X, Y, Z: UU
f: X → Y
g: Y → Z
y: Y
ff:= ezmaphf f g (g y) (y,, idpath (g y)): hfiber f (pr1 (y,, idpath (g y)))
→ hfiber (hfibersgftog f g (g y))
    (y,, idpath (g y))
gg:= invezmaphf f g (g y) (y,, idpath (g y)): hfiber (hfibersgftog f g (g y))
  (y,, idpath (g y))
→ hfiber f (pr1 (y,, idpath (g y)))
egf: ∏ xe : hfiber f (pr1 (y,, idpath (g y))),
gg (ff xe) = xe
xee': hfiber (hfibersgftog f g (g y))
  (y,, idpath (g y))
hint: ff (gg xee') =
ffgg f g (g y) (make_hfiber g y (idpath (g y)))
  xee'
ff (gg xee') = xee'
X, Y, Z: UU
f: X → Y
g: Y → Z
z: Z
ye: hfiber g z
ff:= ezmaphf f g z ye: hfiber f (pr1 ye)
→ hfiber (hfibersgftog f g z) ye
gg:= invezmaphf f g z ye: hfiber (hfibersgftog f g z) ye
→ hfiber f (pr1 ye)
egf: ∏ xe : hfiber f (pr1 ye), gg (ff xe) = xe
efg: ∏ xee' : hfiber (hfibersgftog f g z) ye,
ff (gg xee') = xee'
isweq ff
  apply (pathscomp0 hint (homotffggid _ _ _ _ xee')).
X, Y, Z: UU
f: X → Y
g: Y → Z
z: Z
ye: hfiber g z
ff:= ezmaphf f g z ye: hfiber f (pr1 ye)
→ hfiber (hfibersgftog f g z) ye
gg:= invezmaphf f g z ye: hfiber (hfibersgftog f g z) ye
→ hfiber f (pr1 ye)
egf: ∏ xe : hfiber f (pr1 ye), gg (ff xe) = xe
efg: ∏ xee' : hfiber (hfibersgftog f g z) ye,
ff (gg xee') = xee'
isweq ff
  apply (isweq_iso _ _ egf efg).
Defined.


Definition ezweqhf {X Y Z : UU} (f : X -> Y) (g : Y -> Z) (z : Z)
           (ye : hfiber g z) :
  hfiber f (pr1 ye) ≃ hfiber (hfibersgftog f g z) ye
  := make_weq _ (isweqezmaphf f g z ye).

Definition fibseqhf {X Y Z : UU} (f : X -> Y) (g : Y -> Z) (z : Z)
           (ye : hfiber g z) :
  fibseqstr (hfibersftogf f g z ye) (hfibersgftog f g z) ye
  := make_fibseqstr _ _ _ _ (isweqezmaphf f g z ye).

Definition isweqinvezmaphf {X Y Z : UU} (f : X -> Y) (g : Y -> Z) (z : Z)
           (ye : hfiber g z) :
  isweq (invezmaphf f g z ye) := pr2 (invweq (ezweqhf f g z ye)).


Corollary weqhfibersgwtog {X Y Z : UU} (w : X ≃ Y) (g : Y -> Z) (z : Z) :
  hfiber (funcomp w g) z ≃ hfiber g z.
X, Y, Z: UU
w: X ≃ Y
g: Y → Z
z: Z
hfiber (g ∘ w) z ≃ hfiber g z
Proof.
X, Y, Z: UU
w: X ≃ Y
g: Y → Z
z: Z
hfiber (g ∘ w) z ≃ hfiber g z
  intros.
X, Y, Z: UU
w: X ≃ Y
g: Y → Z
z: Z
hfiber (g ∘ w) z ≃ hfiber g z
  split with (hfibersgftog w g z).
X, Y, Z: UU
w: X ≃ Y
g: Y → Z
z: Z
isweq (hfibersgftog w g z)
  intro ye.
X, Y, Z: UU
w: X ≃ Y
g: Y → Z
z: Z
ye: hfiber g z
iscontr (hfiber (hfibersgftog w g z) ye)
  apply (iscontrweqf (ezweqhf w g z ye) ((pr2 w) (pr1 ye))).
Defined.



(** ** Functions between total spaces of families


(** *** Function [ totalfun ] between total spaces from a family of functions between the fibers

Including theorems saying that a fiber-wise morphism between total spaces is a weak
equivalence if and only if all the morphisms between the fibers are weak
equivalences. *)

*)

Definition totalfun {X : UU} (P Q : X -> UU) (f : ∏ x : X, P x -> Q x)
  : (∑ y, P y) → (∑ y, Q y)
  := (λ z: total2 P, tpair Q (pr1 z) (f (pr1 z) (pr2 z))).

Theorem isweqtotaltofib {X : UU} (P Q : X -> UU) (f : ∏ x : X, P x -> Q x):
  isweq (totalfun _ _ f) -> ∏ x : X, isweq (f x).
X: UU
P, Q: X → UU
f: ∏ x : X, P x → Q x
isweq (totalfun P Q f) → ∏ x : X, isweq (f x)
Proof.
X: UU
P, Q: X → UU
f: ∏ x : X, P x → Q x
isweq (totalfun P Q f) → ∏ x : X, isweq (f x)
  intros X0 x.
X: UU
P, Q: X → UU
f: ∏ x : X, P x → Q x
X0: isweq (totalfun P Q f)
x: X
isweq (f x)
  set (totp := total2 P).
X: UU
P, Q: X → UU
f: ∏ x : X, P x → Q x
X0: isweq (totalfun P Q f)
x: X
totp:= ∑ y, P y: Type
isweq (f x) set (totq := total2 Q).
X: UU
P, Q: X → UU
f: ∏ x : X, P x → Q x
X0: isweq (totalfun P Q f)
x: X
totp:= ∑ y, P y: Type
totq:= ∑ y, Q y: Type
isweq (f x)
  set (totf := (totalfun _ _ f)).
X: UU
P, Q: X → UU
f: ∏ x : X, P x → Q x
X0: isweq (totalfun P Q f)
x: X
totp:= ∑ y, P y: Type
totq:= ∑ y, Q y: Type
totf:= totalfun P Q f: (∑ y : X, P y) → ∑ y : X, Q y
isweq (f x)
  set (pip := λ z: totp, pr1  z).
X: UU
P, Q: X → UU
f: ∏ x : X, P x → Q x
X0: isweq (totalfun P Q f)
x: X
totp:= ∑ y, P y: Type
totq:= ∑ y, Q y: Type
totf:= totalfun P Q f: (∑ y : X, P y) → ∑ y : X, Q y
pip:= λ z : totp, pr1 z: totp → X
isweq (f x) set (piq:= λ z: totq, pr1  z).
X: UU
P, Q: X → UU
f: ∏ x : X, P x → Q x
X0: isweq (totalfun P Q f)
x: X
totp:= ∑ y, P y: Type
totq:= ∑ y, Q y: Type
totf:= totalfun P Q f: (∑ y : X, P y) → ∑ y : X, Q y
pip:= λ z : totp, pr1 z: totp → X
piq:= λ z : totq, pr1 z: totq → X
isweq (f x)
  set (hfx := hfibersgftog totf piq x).
X: UU
P, Q: X → UU
f: ∏ x : X, P x → Q x
X0: isweq (totalfun P Q f)
x: X
totp:= ∑ y, P y: Type
totq:= ∑ y, Q y: Type
totf:= totalfun P Q f: (∑ y : X, P y) → ∑ y : X, Q y
pip:= λ z : totp, pr1 z: totp → X
piq:= λ z : totq, pr1 z: totq → X
hfx:= hfibersgftog totf piq x: hfiber (piq ∘ totf) x → hfiber piq x
isweq (f x) simpl in hfx.
X: UU
P, Q: X → UU
f: ∏ x : X, P x → Q x
X0: isweq (totalfun P Q f)
x: X
totp:= ∑ y, P y: Type
totq:= ∑ y, Q y: Type
totf:= totalfun P Q f: (∑ y : X, P y) → ∑ y : X, Q y
pip:= λ z : totp, pr1 z: totp → X
piq:= λ z : totq, pr1 z: totq → X
hfx:= hfibersgftog totf piq x: hfiber (piq ∘ totf) x → hfiber piq x
isweq (f x)
  assert (H : isweq hfx).
X: UU
P, Q: X → UU
f: ∏ x : X, P x → Q x
X0: isweq (totalfun P Q f)
x: X
totp:= ∑ y, P y: Type
totq:= ∑ y, Q y: Type
totf:= totalfun P Q f: (∑ y : X, P y) → ∑ y : X, Q y
pip:= λ z : totp, pr1 z: totp → X
piq:= λ z : totq, pr1 z: totq → X
hfx:= hfibersgftog totf piq x: hfiber (piq ∘ totf) x → hfiber piq x
isweq hfx
X: UU
P, Q: X → UU
f: ∏ x : X, P x → Q x
X0: isweq (totalfun P Q f)
x: X
totp:= ∑ y, P y: Type
totq:= ∑ y, Q y: Type
totf:= totalfun P Q f: (∑ y : X, P y) → ∑ y : X, Q y
pip:= λ z : totp, pr1 z: totp → X
piq:= λ z : totq, pr1 z: totq → X
hfx:= hfibersgftog totf piq x: hfiber (piq ∘ totf) x → hfiber piq x
H: isweq hfx
isweq (f x) unfold isweq.
X: UU
P, Q: X → UU
f: ∏ x : X, P x → Q x
X0: isweq (totalfun P Q f)
x: X
totp:= ∑ y, P y: Type
totq:= ∑ y, Q y: Type
totf:= totalfun P Q f: (∑ y : X, P y) → ∑ y : X, Q y
pip:= λ z : totp, pr1 z: totp → X
piq:= λ z : totq, pr1 z: totq → X
hfx:= hfibersgftog totf piq x: hfiber (piq ∘ totf) x → hfiber piq x
∏ y : hfiber piq x, iscontr (hfiber hfx y)
X: UU
P, Q: X → UU
f: ∏ x : X, P x → Q x
X0: isweq (totalfun P Q f)
x: X
totp:= ∑ y, P y: Type
totq:= ∑ y, Q y: Type
totf:= totalfun P Q f: (∑ y : X, P y) → ∑ y : X, Q y
pip:= λ z : totp, pr1 z: totp → X
piq:= λ z : totq, pr1 z: totq → X
hfx:= hfibersgftog totf piq x: hfiber (piq ∘ totf) x → hfiber piq x
H: isweq hfx
isweq (f x) intro y.
X: UU
P, Q: X → UU
f: ∏ x : X, P x → Q x
X0: isweq (totalfun P Q f)
x: X
totp:= ∑ y, P y: Type
totq:= ∑ y, Q y: Type
totf:= totalfun P Q f: (∑ y : X, P y) → ∑ y : X, Q y
pip:= λ z : totp, pr1 z: totp → X
piq:= λ z : totq, pr1 z: totq → X
hfx:= hfibersgftog totf piq x: hfiber (piq ∘ totf) x → hfiber piq x
y: hfiber piq x
iscontr (hfiber hfx y)
X: UU
P, Q: X → UU
f: ∏ x : X, P x → Q x
X0: isweq (totalfun P Q f)
x: X
totp:= ∑ y, P y: Type
totq:= ∑ y, Q y: Type
totf:= totalfun P Q f: (∑ y : X, P y) → ∑ y : X, Q y
pip:= λ z : totp, pr1 z: totp → X
piq:= λ z : totq, pr1 z: totq → X
hfx:= hfibersgftog totf piq x: hfiber (piq ∘ totf) x → hfiber piq x
H: isweq hfx
isweq (f x)
  set (int := invezmaphf totf piq x y).
X: UU
P, Q: X → UU
f: ∏ x : X, P x → Q x
X0: isweq (totalfun P Q f)
x: X
totp:= ∑ y, P y: Type
totq:= ∑ y, Q y: Type
totf:= totalfun P Q f: (∑ y : X, P y) → ∑ y : X, Q y
pip:= λ z : totp, pr1 z: totp → X
piq:= λ z : totq, pr1 z: totq → X
hfx:= hfibersgftog totf piq x: hfiber (piq ∘ totf) x → hfiber piq x
y: hfiber piq x
int:= invezmaphf totf piq x y: hfiber (hfibersgftog totf piq x) y
→ hfiber totf (pr1 y)
iscontr (hfiber hfx y)
X: UU
P, Q: X → UU
f: ∏ x : X, P x → Q x
X0: isweq (totalfun P Q f)
x: X
totp:= ∑ y, P y: Type
totq:= ∑ y, Q y: Type
totf:= totalfun P Q f: (∑ y : X, P y) → ∑ y : X, Q y
pip:= λ z : totp, pr1 z: totp → X
piq:= λ z : totq, pr1 z: totq → X
hfx:= hfibersgftog totf piq x: hfiber (piq ∘ totf) x → hfiber piq x
H: isweq hfx
isweq (f x)
  assert (X1 : isweq int).
X: UU
P, Q: X → UU
f: ∏ x : X, P x → Q x
X0: isweq (totalfun P Q f)
x: X
totp:= ∑ y, P y: Type
totq:= ∑ y, Q y: Type
totf:= totalfun P Q f: (∑ y : X, P y) → ∑ y : X, Q y
pip:= λ z : totp, pr1 z: totp → X
piq:= λ z : totq, pr1 z: totq → X
hfx:= hfibersgftog totf piq x: hfiber (piq ∘ totf) x → hfiber piq x
y: hfiber piq x
int:= invezmaphf totf piq x y: hfiber (hfibersgftog totf piq x) y
→ hfiber totf (pr1 y)
isweq int
X: UU
P, Q: X → UU
f: ∏ x : X, P x → Q x
X0: isweq (totalfun P Q f)
x: X
totp:= ∑ y, P y: Type
totq:= ∑ y, Q y: Type
totf:= totalfun P Q f: (∑ y : X, P y) → ∑ y : X, Q y
pip:= λ z : totp, pr1 z: totp → X
piq:= λ z : totq, pr1 z: totq → X
hfx:= hfibersgftog totf piq x: hfiber (piq ∘ totf) x → hfiber piq x
y: hfiber piq x
int:= invezmaphf totf piq x y: hfiber (hfibersgftog totf piq x) y
→ hfiber totf (pr1 y)
X1: isweq int
iscontr (hfiber hfx y)
X: UU
P, Q: X → UU
f: ∏ x : X, P x → Q x
X0: isweq (totalfun P Q f)
x: X
totp:= ∑ y, P y: Type
totq:= ∑ y, Q y: Type
totf:= totalfun P Q f: (∑ y : X, P y) → ∑ y : X, Q y
pip:= λ z : totp, pr1 z: totp → X
piq:= λ z : totq, pr1 z: totq → X
hfx:= hfibersgftog totf piq x: hfiber (piq ∘ totf) x → hfiber piq x
H: isweq hfx
isweq (f x) apply (isweqinvezmaphf totf piq x y).
X: UU
P, Q: X → UU
f: ∏ x : X, P x → Q x
X0: isweq (totalfun P Q f)
x: X
totp:= ∑ y, P y: Type
totq:= ∑ y, Q y: Type
totf:= totalfun P Q f: (∑ y : X, P y) → ∑ y : X, Q y
pip:= λ z : totp, pr1 z: totp → X
piq:= λ z : totq, pr1 z: totq → X
hfx:= hfibersgftog totf piq x: hfiber (piq ∘ totf) x → hfiber piq x
y: hfiber piq x
int:= invezmaphf totf piq x y: hfiber (hfibersgftog totf piq x) y
→ hfiber totf (pr1 y)
X1: isweq int
iscontr (hfiber hfx y)
X: UU
P, Q: X → UU
f: ∏ x : X, P x → Q x
X0: isweq (totalfun P Q f)
x: X
totp:= ∑ y, P y: Type
totq:= ∑ y, Q y: Type
totf:= totalfun P Q f: (∑ y : X, P y) → ∑ y : X, Q y
pip:= λ z : totp, pr1 z: totp → X
piq:= λ z : totq, pr1 z: totq → X
hfx:= hfibersgftog totf piq x: hfiber (piq ∘ totf) x → hfiber piq x
H: isweq hfx
isweq (f x)
  induction y as [ t e ].
X: UU
P, Q: X → UU
f: ∏ x : X, P x → Q x
X0: isweq (totalfun P Q f)
x: X
totp:= ∑ y, P y: Type
totq:= ∑ y, Q y: Type
totf:= totalfun P Q f: (∑ y : X, P y) → ∑ y : X, Q y
pip:= λ z : totp, pr1 z: totp → X
piq:= λ z : totq, pr1 z: totq → X
hfx:= hfibersgftog totf piq x: hfiber (piq ∘ totf) x → hfiber piq x
t: ∑ y : X, Q y
e: piq t = x
int:= invezmaphf totf piq x (t,, e): hfiber (hfibersgftog totf piq x) (t,, e)
→ hfiber totf (pr1 (t,, e))
X1: isweq int
iscontr (hfiber hfx (t,, e))
X: UU
P, Q: X → UU
f: ∏ x : X, P x → Q x
X0: isweq (totalfun P Q f)
x: X
totp:= ∑ y, P y: Type
totq:= ∑ y, Q y: Type
totf:= totalfun P Q f: (∑ y : X, P y) → ∑ y : X, Q y
pip:= λ z : totp, pr1 z: totp → X
piq:= λ z : totq, pr1 z: totq → X
hfx:= hfibersgftog totf piq x: hfiber (piq ∘ totf) x → hfiber piq x
H: isweq hfx
isweq (f x)
  assert (is1 : iscontr (hfiber totf t)).
X: UU
P, Q: X → UU
f: ∏ x : X, P x → Q x
X0: isweq (totalfun P Q f)
x: X
totp:= ∑ y, P y: Type
totq:= ∑ y, Q y: Type
totf:= totalfun P Q f: (∑ y : X, P y) → ∑ y : X, Q y
pip:= λ z : totp, pr1 z: totp → X
piq:= λ z : totq, pr1 z: totq → X
hfx:= hfibersgftog totf piq x: hfiber (piq ∘ totf) x → hfiber piq x
t: ∑ y : X, Q y
e: piq t = x
int:= invezmaphf totf piq x (t,, e): hfiber (hfibersgftog totf piq x) (t,, e)
→ hfiber totf (pr1 (t,, e))
X1: isweq int
iscontr (hfiber totf t)
X: UU
P, Q: X → UU
f: ∏ x : X, P x → Q x
X0: isweq (totalfun P Q f)
x: X
totp:= ∑ y, P y: Type
totq:= ∑ y, Q y: Type
totf:= totalfun P Q f: (∑ y : X, P y) → ∑ y : X, Q y
pip:= λ z : totp, pr1 z: totp → X
piq:= λ z : totq, pr1 z: totq → X
hfx:= hfibersgftog totf piq x: hfiber (piq ∘ totf) x → hfiber piq x
t: ∑ y : X, Q y
e: piq t = x
int:= invezmaphf totf piq x (t,, e): hfiber (hfibersgftog totf piq x) (t,, e)
→ hfiber totf (pr1 (t,, e))
X1: isweq int
is1: iscontr (hfiber totf t)
iscontr (hfiber hfx (t,, e))
X: UU
P, Q: X → UU
f: ∏ x : X, P x → Q x
X0: isweq (totalfun P Q f)
x: X
totp:= ∑ y, P y: Type
totq:= ∑ y, Q y: Type
totf:= totalfun P Q f: (∑ y : X, P y) → ∑ y : X, Q y
pip:= λ z : totp, pr1 z: totp → X
piq:= λ z : totq, pr1 z: totq → X
hfx:= hfibersgftog totf piq x: hfiber (piq ∘ totf) x → hfiber piq x
H: isweq hfx
isweq (f x)
  apply (X0 t).
X: UU
P, Q: X → UU
f: ∏ x : X, P x → Q x
X0: isweq (totalfun P Q f)
x: X
totp:= ∑ y, P y: Type
totq:= ∑ y, Q y: Type
totf:= totalfun P Q f: (∑ y : X, P y) → ∑ y : X, Q y
pip:= λ z : totp, pr1 z: totp → X
piq:= λ z : totq, pr1 z: totq → X
hfx:= hfibersgftog totf piq x: hfiber (piq ∘ totf) x → hfiber piq x
t: ∑ y : X, Q y
e: piq t = x
int:= invezmaphf totf piq x (t,, e): hfiber (hfibersgftog totf piq x) (t,, e)
→ hfiber totf (pr1 (t,, e))
X1: isweq int
is1: iscontr (hfiber totf t)
iscontr (hfiber hfx (t,, e))
X: UU
P, Q: X → UU
f: ∏ x : X, P x → Q x
X0: isweq (totalfun P Q f)
x: X
totp:= ∑ y, P y: Type
totq:= ∑ y, Q y: Type
totf:= totalfun P Q f: (∑ y : X, P y) → ∑ y : X, Q y
pip:= λ z : totp, pr1 z: totp → X
piq:= λ z : totq, pr1 z: totq → X
hfx:= hfibersgftog totf piq x: hfiber (piq ∘ totf) x → hfiber piq x
H: isweq hfx
isweq (f x) apply (iscontrweqb (make_weq int X1) is1).
X: UU
P, Q: X → UU
f: ∏ x : X, P x → Q x
X0: isweq (totalfun P Q f)
x: X
totp:= ∑ y, P y: Type
totq:= ∑ y, Q y: Type
totf:= totalfun P Q f: (∑ y : X, P y) → ∑ y : X, Q y
pip:= λ z : totp, pr1 z: totp → X
piq:= λ z : totq, pr1 z: totq → X
hfx:= hfibersgftog totf piq x: hfiber (piq ∘ totf) x → hfiber piq x
H: isweq hfx
isweq (f x)
  set (ip := ezmappr1 P x).
X: UU
P, Q: X → UU
f: ∏ x : X, P x → Q x
X0: isweq (totalfun P Q f)
x: X
totp:= ∑ y, P y: Type
totq:= ∑ y, Q y: Type
totf:= totalfun P Q f: (∑ y : X, P y) → ∑ y : X, Q y
pip:= λ z : totp, pr1 z: totp → X
piq:= λ z : totq, pr1 z: totq → X
hfx:= hfibersgftog totf piq x: hfiber (piq ∘ totf) x → hfiber piq x
H: isweq hfx
ip:= ezmappr1 P x: P x → hfiber pr1 x
isweq (f x) set (iq := ezmappr1 Q x).
X: UU
P, Q: X → UU
f: ∏ x : X, P x → Q x
X0: isweq (totalfun P Q f)
x: X
totp:= ∑ y, P y: Type
totq:= ∑ y, Q y: Type
totf:= totalfun P Q f: (∑ y : X, P y) → ∑ y : X, Q y
pip:= λ z : totp, pr1 z: totp → X
piq:= λ z : totq, pr1 z: totq → X
hfx:= hfibersgftog totf piq x: hfiber (piq ∘ totf) x → hfiber piq x
H: isweq hfx
ip:= ezmappr1 P x: P x → hfiber pr1 x
iq:= ezmappr1 Q x: Q x → hfiber pr1 x
isweq (f x)
  set (h := λ p: P x, hfx (ip p)).
X: UU
P, Q: X → UU
f: ∏ x : X, P x → Q x
X0: isweq (totalfun P Q f)
x: X
totp:= ∑ y, P y: Type
totq:= ∑ y, Q y: Type
totf:= totalfun P Q f: (∑ y : X, P y) → ∑ y : X, Q y
pip:= λ z : totp, pr1 z: totp → X
piq:= λ z : totq, pr1 z: totq → X
hfx:= hfibersgftog totf piq x: hfiber (piq ∘ totf) x → hfiber piq x
H: isweq hfx
ip:= ezmappr1 P x: P x → hfiber pr1 x
iq:= ezmappr1 Q x: Q x → hfiber pr1 x
h:= λ p : P x, hfx (ip p): P x → hfiber piq x
isweq (f x)
  assert (is2 : isweq h).
X: UU
P, Q: X → UU
f: ∏ x : X, P x → Q x
X0: isweq (totalfun P Q f)
x: X
totp:= ∑ y, P y: Type
totq:= ∑ y, Q y: Type
totf:= totalfun P Q f: (∑ y : X, P y) → ∑ y : X, Q y
pip:= λ z : totp, pr1 z: totp → X
piq:= λ z : totq, pr1 z: totq → X
hfx:= hfibersgftog totf piq x: hfiber (piq ∘ totf) x → hfiber piq x
H: isweq hfx
ip:= ezmappr1 P x: P x → hfiber pr1 x
iq:= ezmappr1 Q x: Q x → hfiber pr1 x
h:= λ p : P x, hfx (ip p): P x → hfiber piq x
isweq h
X: UU
P, Q: X → UU
f: ∏ x : X, P x → Q x
X0: isweq (totalfun P Q f)
x: X
totp:= ∑ y, P y: Type
totq:= ∑ y, Q y: Type
totf:= totalfun P Q f: (∑ y : X, P y) → ∑ y : X, Q y
pip:= λ z : totp, pr1 z: totp → X
piq:= λ z : totq, pr1 z: totq → X
hfx:= hfibersgftog totf piq x: hfiber (piq ∘ totf) x → hfiber piq x
H: isweq hfx
ip:= ezmappr1 P x: P x → hfiber pr1 x
iq:= ezmappr1 Q x: Q x → hfiber pr1 x
h:= λ p : P x, hfx (ip p): P x → hfiber piq x
is2: isweq h
isweq (f x)
  apply (twooutof3c ip hfx (isweqezmappr1 P x) H).
X: UU
P, Q: X → UU
f: ∏ x : X, P x → Q x
X0: isweq (totalfun P Q f)
x: X
totp:= ∑ y, P y: Type
totq:= ∑ y, Q y: Type
totf:= totalfun P Q f: (∑ y : X, P y) → ∑ y : X, Q y
pip:= λ z : totp, pr1 z: totp → X
piq:= λ z : totq, pr1 z: totq → X
hfx:= hfibersgftog totf piq x: hfiber (piq ∘ totf) x → hfiber piq x
H: isweq hfx
ip:= ezmappr1 P x: P x → hfiber pr1 x
iq:= ezmappr1 Q x: Q x → hfiber pr1 x
h:= λ p : P x, hfx (ip p): P x → hfiber piq x
is2: isweq h
isweq (f x)
  set (h':= λ p: P x, iq ((f x) p)).
X: UU
P, Q: X → UU
f: ∏ x : X, P x → Q x
X0: isweq (totalfun P Q f)
x: X
totp:= ∑ y, P y: Type
totq:= ∑ y, Q y: Type
totf:= totalfun P Q f: (∑ y : X, P y) → ∑ y : X, Q y
pip:= λ z : totp, pr1 z: totp → X
piq:= λ z : totq, pr1 z: totq → X
hfx:= hfibersgftog totf piq x: hfiber (piq ∘ totf) x → hfiber piq x
H: isweq hfx
ip:= ezmappr1 P x: P x → hfiber pr1 x
iq:= ezmappr1 Q x: Q x → hfiber pr1 x
h:= λ p : P x, hfx (ip p): P x → hfiber piq x
is2: isweq h
h':= λ p : P x, iq (f x p): P x → hfiber pr1 x
isweq (f x)
  assert (ee : ∏ p:P x, (h p) = (h' p)).
X: UU
P, Q: X → UU
f: ∏ x : X, P x → Q x
X0: isweq (totalfun P Q f)
x: X
totp:= ∑ y, P y: Type
totq:= ∑ y, Q y: Type
totf:= totalfun P Q f: (∑ y : X, P y) → ∑ y : X, Q y
pip:= λ z : totp, pr1 z: totp → X
piq:= λ z : totq, pr1 z: totq → X
hfx:= hfibersgftog totf piq x: hfiber (piq ∘ totf) x → hfiber piq x
H: isweq hfx
ip:= ezmappr1 P x: P x → hfiber pr1 x
iq:= ezmappr1 Q x: Q x → hfiber pr1 x
h:= λ p : P x, hfx (ip p): P x → hfiber piq x
is2: isweq h
h':= λ p : P x, iq (f x p): P x → hfiber pr1 x
∏ p : P x, h p = h' p
X: UU
P, Q: X → UU
f: ∏ x : X, P x → Q x
X0: isweq (totalfun P Q f)
x: X
totp:= ∑ y, P y: Type
totq:= ∑ y, Q y: Type
totf:= totalfun P Q f: (∑ y : X, P y) → ∑ y : X, Q y
pip:= λ z : totp, pr1 z: totp → X
piq:= λ z : totq, pr1 z: totq → X
hfx:= hfibersgftog totf piq x: hfiber (piq ∘ totf) x → hfiber piq x
H: isweq hfx
ip:= ezmappr1 P x: P x → hfiber pr1 x
iq:= ezmappr1 Q x: Q x → hfiber pr1 x
h:= λ p : P x, hfx (ip p): P x → hfiber piq x
is2: isweq h
h':= λ p : P x, iq (f x p): P x → hfiber pr1 x
ee: ∏ p : P x, h p = h' p
isweq (f x) intro.
X: UU
P, Q: X → UU
f: ∏ x : X, P x → Q x
X0: isweq (totalfun P Q f)
x: X
totp:= ∑ y, P y: Type
totq:= ∑ y, Q y: Type
totf:= totalfun P Q f: (∑ y : X, P y) → ∑ y : X, Q y
pip:= λ z : totp, pr1 z: totp → X
piq:= λ z : totq, pr1 z: totq → X
hfx:= hfibersgftog totf piq x: hfiber (piq ∘ totf) x → hfiber piq x
H: isweq hfx
ip:= ezmappr1 P x: P x → hfiber pr1 x
iq:= ezmappr1 Q x: Q x → hfiber pr1 x
h:= λ p : P x, hfx (ip p): P x → hfiber piq x
is2: isweq h
h':= λ p : P x, iq (f x p): P x → hfiber pr1 x
p: P x
h p = h' p
X: UU
P, Q: X → UU
f: ∏ x : X, P x → Q x
X0: isweq (totalfun P Q f)
x: X
totp:= ∑ y, P y: Type
totq:= ∑ y, Q y: Type
totf:= totalfun P Q f: (∑ y : X, P y) → ∑ y : X, Q y
pip:= λ z : totp, pr1 z: totp → X
piq:= λ z : totq, pr1 z: totq → X
hfx:= hfibersgftog totf piq x: hfiber (piq ∘ totf) x → hfiber piq x
H: isweq hfx
ip:= ezmappr1 P x: P x → hfiber pr1 x
iq:= ezmappr1 Q x: Q x → hfiber pr1 x
h:= λ p : P x, hfx (ip p): P x → hfiber piq x
is2: isweq h
h':= λ p : P x, iq (f x p): P x → hfiber pr1 x
ee: ∏ p : P x, h p = h' p
isweq (f x) apply idpath.
X: UU
P, Q: X → UU
f: ∏ x : X, P x → Q x
X0: isweq (totalfun P Q f)
x: X
totp:= ∑ y, P y: Type
totq:= ∑ y, Q y: Type
totf:= totalfun P Q f: (∑ y : X, P y) → ∑ y : X, Q y
pip:= λ z : totp, pr1 z: totp → X
piq:= λ z : totq, pr1 z: totq → X
hfx:= hfibersgftog totf piq x: hfiber (piq ∘ totf) x → hfiber piq x
H: isweq hfx
ip:= ezmappr1 P x: P x → hfiber pr1 x
iq:= ezmappr1 Q x: Q x → hfiber pr1 x
h:= λ p : P x, hfx (ip p): P x → hfiber piq x
is2: isweq h
h':= λ p : P x, iq (f x p): P x → hfiber pr1 x
ee: ∏ p : P x, h p = h' p
isweq (f x)
  assert (X2 : isweq h').
X: UU
P, Q: X → UU
f: ∏ x : X, P x → Q x
X0: isweq (totalfun P Q f)
x: X
totp:= ∑ y, P y: Type
totq:= ∑ y, Q y: Type
totf:= totalfun P Q f: (∑ y : X, P y) → ∑ y : X, Q y
pip:= λ z : totp, pr1 z: totp → X
piq:= λ z : totq, pr1 z: totq → X
hfx:= hfibersgftog totf piq x: hfiber (piq ∘ totf) x → hfiber piq x
H: isweq hfx
ip:= ezmappr1 P x: P x → hfiber pr1 x
iq:= ezmappr1 Q x: Q x → hfiber pr1 x
h:= λ p : P x, hfx (ip p): P x → hfiber piq x
is2: isweq h
h':= λ p : P x, iq (f x p): P x → hfiber pr1 x
ee: ∏ p : P x, h p = h' p
isweq h'
X: UU
P, Q: X → UU
f: ∏ x : X, P x → Q x
X0: isweq (totalfun P Q f)
x: X
totp:= ∑ y, P y: Type
totq:= ∑ y, Q y: Type
totf:= totalfun P Q f: (∑ y : X, P y) → ∑ y : X, Q y
pip:= λ z : totp, pr1 z: totp → X
piq:= λ z : totq, pr1 z: totq → X
hfx:= hfibersgftog totf piq x: hfiber (piq ∘ totf) x → hfiber piq x
H: isweq hfx
ip:= ezmappr1 P x: P x → hfiber pr1 x
iq:= ezmappr1 Q x: Q x → hfiber pr1 x
h:= λ p : P x, hfx (ip p): P x → hfiber piq x
is2: isweq h
h':= λ p : P x, iq (f x p): P x → hfiber pr1 x
ee: ∏ p : P x, h p = h' p
X2: isweq h'
isweq (f x) apply (isweqhomot h h' ee is2).
X: UU
P, Q: X → UU
f: ∏ x : X, P x → Q x
X0: isweq (totalfun P Q f)
x: X
totp:= ∑ y, P y: Type
totq:= ∑ y, Q y: Type
totf:= totalfun P Q f: (∑ y : X, P y) → ∑ y : X, Q y
pip:= λ z : totp, pr1 z: totp → X
piq:= λ z : totq, pr1 z: totq → X
hfx:= hfibersgftog totf piq x: hfiber (piq ∘ totf) x → hfiber piq x
H: isweq hfx
ip:= ezmappr1 P x: P x → hfiber pr1 x
iq:= ezmappr1 Q x: Q x → hfiber pr1 x
h:= λ p : P x, hfx (ip p): P x → hfiber piq x
is2: isweq h
h':= λ p : P x, iq (f x p): P x → hfiber pr1 x
ee: ∏ p : P x, h p = h' p
X2: isweq h'
isweq (f x)
  apply (twooutof3a (f x) iq X2).
X: UU
P, Q: X → UU
f: ∏ x : X, P x → Q x
X0: isweq (totalfun P Q f)
x: X
totp:= ∑ y, P y: Type
totq:= ∑ y, Q y: Type
totf:= totalfun P Q f: (∑ y : X, P y) → ∑ y : X, Q y
pip:= λ z : totp, pr1 z: totp → X
piq:= λ z : totq, pr1 z: totq → X
hfx:= hfibersgftog totf piq x: hfiber (piq ∘ totf) x → hfiber piq x
H: isweq hfx
ip:= ezmappr1 P x: P x → hfiber pr1 x
iq:= ezmappr1 Q x: Q x → hfiber pr1 x
h:= λ p : P x, hfx (ip p): P x → hfiber piq x
is2: isweq h
h':= λ p : P x, iq (f x p): P x → hfiber pr1 x
ee: ∏ p : P x, h p = h' p
X2: isweq h'
isweq iq
  apply (isweqezmappr1 Q x).
Defined.


Definition weqtotaltofib {X : UU} (P Q : X -> UU) (f : ∏ x : X , P x -> Q x)
           (is : isweq (totalfun _ _ f)) (x : X) : P x ≃ Q x
  := make_weq _ (isweqtotaltofib P Q f is x).


Theorem isweqfibtototal {X : UU} (P Q : X -> UU) (f : ∏ x : X, P x ≃ Q x) :
  isweq (totalfun _ _ f).
X: UU
P, Q: X → UU
f: ∏ x : X, P x ≃ Q x
isweq (totalfun P Q (λ x : X, f x))
Proof.
X: UU
P, Q: X → UU
f: ∏ x : X, P x ≃ Q x
isweq (totalfun P Q (λ x : X, f x))
  set (fpq := totalfun P Q f).
X: UU
P, Q: X → UU
f: ∏ x : X, P x ≃ Q x
fpq:= totalfun P Q (λ x : X, f x): (∑ y : X, P y) → ∑ y : X, Q y
isweq fpq set (pr1p := λ z : total2 P, pr1 z).
X: UU
P, Q: X → UU
f: ∏ x : X, P x ≃ Q x
fpq:= totalfun P Q (λ x : X, f x): (∑ y : X, P y) → ∑ y : X, Q y
pr1p:= λ z : ∑ y, P y, pr1 z: (∑ y, P y) → X
isweq fpq
  set (pr1q := λ z : total2 Q, pr1  z).
X: UU
P, Q: X → UU
f: ∏ x : X, P x ≃ Q x
fpq:= totalfun P Q (λ x : X, f x): (∑ y : X, P y) → ∑ y : X, Q y
pr1p:= λ z : ∑ y, P y, pr1 z: (∑ y, P y) → X
pr1q:= λ z : ∑ y, Q y, pr1 z: (∑ y, Q y) → X
isweq fpq
  unfold isweq.
X: UU
P, Q: X → UU
f: ∏ x : X, P x ≃ Q x
fpq:= totalfun P Q (λ x : X, f x): (∑ y : X, P y) → ∑ y : X, Q y
pr1p:= λ z : ∑ y, P y, pr1 z: (∑ y, P y) → X
pr1q:= λ z : ∑ y, Q y, pr1 z: (∑ y, Q y) → X
∏ y : ∑ y : X, Q y, iscontr (hfiber fpq y) intro xq.
X: UU
P, Q: X → UU
f: ∏ x : X, P x ≃ Q x
fpq:= totalfun P Q (λ x : X, f x): (∑ y : X, P y) → ∑ y : X, Q y
pr1p:= λ z : ∑ y, P y, pr1 z: (∑ y, P y) → X
pr1q:= λ z : ∑ y, Q y, pr1 z: (∑ y, Q y) → X
xq: ∑ y : X, Q y
iscontr (hfiber fpq xq)
  set (x:= pr1q xq).
X: UU
P, Q: X → UU
f: ∏ x : X, P x ≃ Q x
fpq:= totalfun P Q (λ x : X, f x): (∑ y : X, P y) → ∑ y : X, Q y
pr1p:= λ z : ∑ y, P y, pr1 z: (∑ y, P y) → X
pr1q:= λ z : ∑ y, Q y, pr1 z: (∑ y, Q y) → X
xq: ∑ y : X, Q y
x:= pr1q xq: X
iscontr (hfiber fpq xq)
  set (xqe:= make_hfiber pr1q xq (idpath _)).
X: UU
P, Q: X → UU
f: ∏ x : X, P x ≃ Q x
fpq:= totalfun P Q (λ x : X, f x): (∑ y : X, P y) → ∑ y : X, Q y
pr1p:= λ z : ∑ y, P y, pr1 z: (∑ y, P y) → X
pr1q:= λ z : ∑ y, Q y, pr1 z: (∑ y, Q y) → X
xq: ∑ y : X, Q y
x:= pr1q xq: X
xqe:= make_hfiber pr1q xq (idpath (pr1q xq)): hfiber pr1q (pr1q xq)
iscontr (hfiber fpq xq)
  set (hfpqx:= hfibersgftog fpq pr1q x).
X: UU
P, Q: X → UU
f: ∏ x : X, P x ≃ Q x
fpq:= totalfun P Q (λ x : X, f x): (∑ y : X, P y) → ∑ y : X, Q y
pr1p:= λ z : ∑ y, P y, pr1 z: (∑ y, P y) → X
pr1q:= λ z : ∑ y, Q y, pr1 z: (∑ y, Q y) → X
xq: ∑ y : X, Q y
x:= pr1q xq: X
xqe:= make_hfiber pr1q xq (idpath (pr1q xq)): hfiber pr1q (pr1q xq)
hfpqx:= hfibersgftog fpq pr1q x: hfiber (pr1q ∘ fpq) x → hfiber pr1q x
iscontr (hfiber fpq xq)

  assert (isint : iscontr (hfiber hfpqx xqe)).
X: UU
P, Q: X → UU
f: ∏ x : X, P x ≃ Q x
fpq:= totalfun P Q (λ x : X, f x): (∑ y : X, P y) → ∑ y : X, Q y
pr1p:= λ z : ∑ y, P y, pr1 z: (∑ y, P y) → X
pr1q:= λ z : ∑ y, Q y, pr1 z: (∑ y, Q y) → X
xq: ∑ y : X, Q y
x:= pr1q xq: X
xqe:= make_hfiber pr1q xq (idpath (pr1q xq)): hfiber pr1q (pr1q xq)
hfpqx:= hfibersgftog fpq pr1q x: hfiber (pr1q ∘ fpq) x → hfiber pr1q x
iscontr (hfiber hfpqx xqe)
X: UU
P, Q: X → UU
f: ∏ x : X, P x ≃ Q x
fpq:= totalfun P Q (λ x : X, f x): (∑ y : X, P y) → ∑ y : X, Q y
pr1p:= λ z : ∑ y, P y, pr1 z: (∑ y, P y) → X
pr1q:= λ z : ∑ y, Q y, pr1 z: (∑ y, Q y) → X
xq: ∑ y : X, Q y
x:= pr1q xq: X
xqe:= make_hfiber pr1q xq (idpath (pr1q xq)): hfiber pr1q (pr1q xq)
hfpqx:= hfibersgftog fpq pr1q x: hfiber (pr1q ∘ fpq) x → hfiber pr1q x
isint: iscontr (hfiber hfpqx xqe)
iscontr (hfiber fpq xq)
  assert (isint1 : isweq hfpqx).
X: UU
P, Q: X → UU
f: ∏ x : X, P x ≃ Q x
fpq:= totalfun P Q (λ x : X, f x): (∑ y : X, P y) → ∑ y : X, Q y
pr1p:= λ z : ∑ y, P y, pr1 z: (∑ y, P y) → X
pr1q:= λ z : ∑ y, Q y, pr1 z: (∑ y, Q y) → X
xq: ∑ y : X, Q y
x:= pr1q xq: X
xqe:= make_hfiber pr1q xq (idpath (pr1q xq)): hfiber pr1q (pr1q xq)
hfpqx:= hfibersgftog fpq pr1q x: hfiber (pr1q ∘ fpq) x → hfiber pr1q x
isweq hfpqx
X: UU
P, Q: X → UU
f: ∏ x : X, P x ≃ Q x
fpq:= totalfun P Q (λ x : X, f x): (∑ y : X, P y) → ∑ y : X, Q y
pr1p:= λ z : ∑ y, P y, pr1 z: (∑ y, P y) → X
pr1q:= λ z : ∑ y, Q y, pr1 z: (∑ y, Q y) → X
xq: ∑ y : X, Q y
x:= pr1q xq: X
xqe:= make_hfiber pr1q xq (idpath (pr1q xq)): hfiber pr1q (pr1q xq)
hfpqx:= hfibersgftog fpq pr1q x: hfiber (pr1q ∘ fpq) x → hfiber pr1q x
isint1: isweq hfpqx
iscontr (hfiber hfpqx xqe)
X: UU
P, Q: X → UU
f: ∏ x : X, P x ≃ Q x
fpq:= totalfun P Q (λ x : X, f x): (∑ y : X, P y) → ∑ y : X, Q y
pr1p:= λ z : ∑ y, P y, pr1 z: (∑ y, P y) → X
pr1q:= λ z : ∑ y, Q y, pr1 z: (∑ y, Q y) → X
xq: ∑ y : X, Q y
x:= pr1q xq: X
xqe:= make_hfiber pr1q xq (idpath (pr1q xq)): hfiber pr1q (pr1q xq)
hfpqx:= hfibersgftog fpq pr1q x: hfiber (pr1q ∘ fpq) x → hfiber pr1q x
isint: iscontr (hfiber hfpqx xqe)
iscontr (hfiber fpq xq)
  set (ipx := ezmappr1 P x).
X: UU
P, Q: X → UU
f: ∏ x : X, P x ≃ Q x
fpq:= totalfun P Q (λ x : X, f x): (∑ y : X, P y) → ∑ y : X, Q y
pr1p:= λ z : ∑ y, P y, pr1 z: (∑ y, P y) → X
pr1q:= λ z : ∑ y, Q y, pr1 z: (∑ y, Q y) → X
xq: ∑ y : X, Q y
x:= pr1q xq: X
xqe:= make_hfiber pr1q xq (idpath (pr1q xq)): hfiber pr1q (pr1q xq)
hfpqx:= hfibersgftog fpq pr1q x: hfiber (pr1q ∘ fpq) x → hfiber pr1q x
ipx:= ezmappr1 P x: P x → hfiber pr1 x
isweq hfpqx
X: UU
P, Q: X → UU
f: ∏ x : X, P x ≃ Q x
fpq:= totalfun P Q (λ x : X, f x): (∑ y : X, P y) → ∑ y : X, Q y
pr1p:= λ z : ∑ y, P y, pr1 z: (∑ y, P y) → X
pr1q:= λ z : ∑ y, Q y, pr1 z: (∑ y, Q y) → X
xq: ∑ y : X, Q y
x:= pr1q xq: X
xqe:= make_hfiber pr1q xq (idpath (pr1q xq)): hfiber pr1q (pr1q xq)
hfpqx:= hfibersgftog fpq pr1q x: hfiber (pr1q ∘ fpq) x → hfiber pr1q x
isint1: isweq hfpqx
iscontr (hfiber hfpqx xqe)
X: UU
P, Q: X → UU
f: ∏ x : X, P x ≃ Q x
fpq:= totalfun P Q (λ x : X, f x): (∑ y : X, P y) → ∑ y : X, Q y
pr1p:= λ z : ∑ y, P y, pr1 z: (∑ y, P y) → X
pr1q:= λ z : ∑ y, Q y, pr1 z: (∑ y, Q y) → X
xq: ∑ y : X, Q y
x:= pr1q xq: X
xqe:= make_hfiber pr1q xq (idpath (pr1q xq)): hfiber pr1q (pr1q xq)
hfpqx:= hfibersgftog fpq pr1q x: hfiber (pr1q ∘ fpq) x → hfiber pr1q x
isint: iscontr (hfiber hfpqx xqe)
iscontr (hfiber fpq xq) set (iqx := ezmappr1 Q x).
X: UU
P, Q: X → UU
f: ∏ x : X, P x ≃ Q x
fpq:= totalfun P Q (λ x : X, f x): (∑ y : X, P y) → ∑ y : X, Q y
pr1p:= λ z : ∑ y, P y, pr1 z: (∑ y, P y) → X
pr1q:= λ z : ∑ y, Q y, pr1 z: (∑ y, Q y) → X
xq: ∑ y : X, Q y
x:= pr1q xq: X
xqe:= make_hfiber pr1q xq (idpath (pr1q xq)): hfiber pr1q (pr1q xq)
hfpqx:= hfibersgftog fpq pr1q x: hfiber (pr1q ∘ fpq) x → hfiber pr1q x
ipx:= ezmappr1 P x: P x → hfiber pr1 x
iqx:= ezmappr1 Q x: Q x → hfiber pr1 x
isweq hfpqx
X: UU
P, Q: X → UU
f: ∏ x : X, P x ≃ Q x
fpq:= totalfun P Q (λ x : X, f x): (∑ y : X, P y) → ∑ y : X, Q y
pr1p:= λ z : ∑ y, P y, pr1 z: (∑ y, P y) → X
pr1q:= λ z : ∑ y, Q y, pr1 z: (∑ y, Q y) → X
xq: ∑ y : X, Q y
x:= pr1q xq: X
xqe:= make_hfiber pr1q xq (idpath (pr1q xq)): hfiber pr1q (pr1q xq)
hfpqx:= hfibersgftog fpq pr1q x: hfiber (pr1q ∘ fpq) x → hfiber pr1q x
isint1: isweq hfpqx
iscontr (hfiber hfpqx xqe)
X: UU
P, Q: X → UU
f: ∏ x : X, P x ≃ Q x
fpq:= totalfun P Q (λ x : X, f x): (∑ y : X, P y) → ∑ y : X, Q y
pr1p:= λ z : ∑ y, P y, pr1 z: (∑ y, P y) → X
pr1q:= λ z : ∑ y, Q y, pr1 z: (∑ y, Q y) → X
xq: ∑ y : X, Q y
x:= pr1q xq: X
xqe:= make_hfiber pr1q xq (idpath (pr1q xq)): hfiber pr1q (pr1q xq)
hfpqx:= hfibersgftog fpq pr1q x: hfiber (pr1q ∘ fpq) x → hfiber pr1q x
isint: iscontr (hfiber hfpqx xqe)
iscontr (hfiber fpq xq)
  set (diag := λ p : P x, (iqx ((f x) p))).
X: UU
P, Q: X → UU
f: ∏ x : X, P x ≃ Q x
fpq:= totalfun P Q (λ x : X, f x): (∑ y : X, P y) → ∑ y : X, Q y
pr1p:= λ z : ∑ y, P y, pr1 z: (∑ y, P y) → X
pr1q:= λ z : ∑ y, Q y, pr1 z: (∑ y, Q y) → X
xq: ∑ y : X, Q y
x:= pr1q xq: X
xqe:= make_hfiber pr1q xq (idpath (pr1q xq)): hfiber pr1q (pr1q xq)
hfpqx:= hfibersgftog fpq pr1q x: hfiber (pr1q ∘ fpq) x → hfiber pr1q x
ipx:= ezmappr1 P x: P x → hfiber pr1 x
iqx:= ezmappr1 Q x: Q x → hfiber pr1 x
diag:= λ p : P x, iqx (f x p): P x → hfiber pr1 x
isweq hfpqx
X: UU
P, Q: X → UU
f: ∏ x : X, P x ≃ Q x
fpq:= totalfun P Q (λ x : X, f x): (∑ y : X, P y) → ∑ y : X, Q y
pr1p:= λ z : ∑ y, P y, pr1 z: (∑ y, P y) → X
pr1q:= λ z : ∑ y, Q y, pr1 z: (∑ y, Q y) → X
xq: ∑ y : X, Q y
x:= pr1q xq: X
xqe:= make_hfiber pr1q xq (idpath (pr1q xq)): hfiber pr1q (pr1q xq)
hfpqx:= hfibersgftog fpq pr1q x: hfiber (pr1q ∘ fpq) x → hfiber pr1q x
isint1: isweq hfpqx
iscontr (hfiber hfpqx xqe)
X: UU
P, Q: X → UU
f: ∏ x : X, P x ≃ Q x
fpq:= totalfun P Q (λ x : X, f x): (∑ y : X, P y) → ∑ y : X, Q y
pr1p:= λ z : ∑ y, P y, pr1 z: (∑ y, P y) → X
pr1q:= λ z : ∑ y, Q y, pr1 z: (∑ y, Q y) → X
xq: ∑ y : X, Q y
x:= pr1q xq: X
xqe:= make_hfiber pr1q xq (idpath (pr1q xq)): hfiber pr1q (pr1q xq)
hfpqx:= hfibersgftog fpq pr1q x: hfiber (pr1q ∘ fpq) x → hfiber pr1q x
isint: iscontr (hfiber hfpqx xqe)
iscontr (hfiber fpq xq)
  assert (is2: isweq diag).
X: UU
P, Q: X → UU
f: ∏ x : X, P x ≃ Q x
fpq:= totalfun P Q (λ x : X, f x): (∑ y : X, P y) → ∑ y : X, Q y
pr1p:= λ z : ∑ y, P y, pr1 z: (∑ y, P y) → X
pr1q:= λ z : ∑ y, Q y, pr1 z: (∑ y, Q y) → X
xq: ∑ y : X, Q y
x:= pr1q xq: X
xqe:= make_hfiber pr1q xq (idpath (pr1q xq)): hfiber pr1q (pr1q xq)
hfpqx:= hfibersgftog fpq pr1q x: hfiber (pr1q ∘ fpq) x → hfiber pr1q x
ipx:= ezmappr1 P x: P x → hfiber pr1 x
iqx:= ezmappr1 Q x: Q x → hfiber pr1 x
diag:= λ p : P x, iqx (f x p): P x → hfiber pr1 x
isweq diag
X: UU
P, Q: X → UU
f: ∏ x : X, P x ≃ Q x
fpq:= totalfun P Q (λ x : X, f x): (∑ y : X, P y) → ∑ y : X, Q y
pr1p:= λ z : ∑ y, P y, pr1 z: (∑ y, P y) → X
pr1q:= λ z : ∑ y, Q y, pr1 z: (∑ y, Q y) → X
xq: ∑ y : X, Q y
x:= pr1q xq: X
xqe:= make_hfiber pr1q xq (idpath (pr1q xq)): hfiber pr1q (pr1q xq)
hfpqx:= hfibersgftog fpq pr1q x: hfiber (pr1q ∘ fpq) x → hfiber pr1q x
ipx:= ezmappr1 P x: P x → hfiber pr1 x
iqx:= ezmappr1 Q x: Q x → hfiber pr1 x
diag:= λ p : P x, iqx (f x p): P x → hfiber pr1 x
is2: isweq diag
isweq hfpqx
X: UU
P, Q: X → UU
f: ∏ x : X, P x ≃ Q x
fpq:= totalfun P Q (λ x : X, f x): (∑ y : X, P y) → ∑ y : X, Q y
pr1p:= λ z : ∑ y, P y, pr1 z: (∑ y, P y) → X
pr1q:= λ z : ∑ y, Q y, pr1 z: (∑ y, Q y) → X
xq: ∑ y : X, Q y
x:= pr1q xq: X
xqe:= make_hfiber pr1q xq (idpath (pr1q xq)): hfiber pr1q (pr1q xq)
hfpqx:= hfibersgftog fpq pr1q x: hfiber (pr1q ∘ fpq) x → hfiber pr1q x
isint1: isweq hfpqx
iscontr (hfiber hfpqx xqe)
X: UU
P, Q: X → UU
f: ∏ x : X, P x ≃ Q x
fpq:= totalfun P Q (λ x : X, f x): (∑ y : X, P y) → ∑ y : X, Q y
pr1p:= λ z : ∑ y, P y, pr1 z: (∑ y, P y) → X
pr1q:= λ z : ∑ y, Q y, pr1 z: (∑ y, Q y) → X
xq: ∑ y : X, Q y
x:= pr1q xq: X
xqe:= make_hfiber pr1q xq (idpath (pr1q xq)): hfiber pr1q (pr1q xq)
hfpqx:= hfibersgftog fpq pr1q x: hfiber (pr1q ∘ fpq) x → hfiber pr1q x
isint: iscontr (hfiber hfpqx xqe)
iscontr (hfiber fpq xq)
  apply (twooutof3c (f x) iqx (pr2 (f x)) (isweqezmappr1 Q x)).
X: UU
P, Q: X → UU
f: ∏ x : X, P x ≃ Q x
fpq:= totalfun P Q (λ x : X, f x): (∑ y : X, P y) → ∑ y : X, Q y
pr1p:= λ z : ∑ y, P y, pr1 z: (∑ y, P y) → X
pr1q:= λ z : ∑ y, Q y, pr1 z: (∑ y, Q y) → X
xq: ∑ y : X, Q y
x:= pr1q xq: X
xqe:= make_hfiber pr1q xq (idpath (pr1q xq)): hfiber pr1q (pr1q xq)
hfpqx:= hfibersgftog fpq pr1q x: hfiber (pr1q ∘ fpq) x → hfiber pr1q x
ipx:= ezmappr1 P x: P x → hfiber pr1 x
iqx:= ezmappr1 Q x: Q x → hfiber pr1 x
diag:= λ p : P x, iqx (f x p): P x → hfiber pr1 x
is2: isweq diag
isweq hfpqx
X: UU
P, Q: X → UU
f: ∏ x : X, P x ≃ Q x
fpq:= totalfun P Q (λ x : X, f x): (∑ y : X, P y) → ∑ y : X, Q y
pr1p:= λ z : ∑ y, P y, pr1 z: (∑ y, P y) → X
pr1q:= λ z : ∑ y, Q y, pr1 z: (∑ y, Q y) → X
xq: ∑ y : X, Q y
x:= pr1q xq: X
xqe:= make_hfiber pr1q xq (idpath (pr1q xq)): hfiber pr1q (pr1q xq)
hfpqx:= hfibersgftog fpq pr1q x: hfiber (pr1q ∘ fpq) x → hfiber pr1q x
isint1: isweq hfpqx
iscontr (hfiber hfpqx xqe)
X: UU
P, Q: X → UU
f: ∏ x : X, P x ≃ Q x
fpq:= totalfun P Q (λ x : X, f x): (∑ y : X, P y) → ∑ y : X, Q y
pr1p:= λ z : ∑ y, P y, pr1 z: (∑ y, P y) → X
pr1q:= λ z : ∑ y, Q y, pr1 z: (∑ y, Q y) → X
xq: ∑ y : X, Q y
x:= pr1q xq: X
xqe:= make_hfiber pr1q xq (idpath (pr1q xq)): hfiber pr1q (pr1q xq)
hfpqx:= hfibersgftog fpq pr1q x: hfiber (pr1q ∘ fpq) x → hfiber pr1q x
isint: iscontr (hfiber hfpqx xqe)
iscontr (hfiber fpq xq)
  apply (twooutof3b ipx hfpqx (isweqezmappr1 P x) is2).
X: UU
P, Q: X → UU
f: ∏ x : X, P x ≃ Q x
fpq:= totalfun P Q (λ x : X, f x): (∑ y : X, P y) → ∑ y : X, Q y
pr1p:= λ z : ∑ y, P y, pr1 z: (∑ y, P y) → X
pr1q:= λ z : ∑ y, Q y, pr1 z: (∑ y, Q y) → X
xq: ∑ y : X, Q y
x:= pr1q xq: X
xqe:= make_hfiber pr1q xq (idpath (pr1q xq)): hfiber pr1q (pr1q xq)
hfpqx:= hfibersgftog fpq pr1q x: hfiber (pr1q ∘ fpq) x → hfiber pr1q x
isint1: isweq hfpqx
iscontr (hfiber hfpqx xqe)
X: UU
P, Q: X → UU
f: ∏ x : X, P x ≃ Q x
fpq:= totalfun P Q (λ x : X, f x): (∑ y : X, P y) → ∑ y : X, Q y
pr1p:= λ z : ∑ y, P y, pr1 z: (∑ y, P y) → X
pr1q:= λ z : ∑ y, Q y, pr1 z: (∑ y, Q y) → X
xq: ∑ y : X, Q y
x:= pr1q xq: X
xqe:= make_hfiber pr1q xq (idpath (pr1q xq)): hfiber pr1q (pr1q xq)
hfpqx:= hfibersgftog fpq pr1q x: hfiber (pr1q ∘ fpq) x → hfiber pr1q x
isint: iscontr (hfiber hfpqx xqe)
iscontr (hfiber fpq xq)
  unfold isweq in isint1.
X: UU
P, Q: X → UU
f: ∏ x : X, P x ≃ Q x
fpq:= totalfun P Q (λ x : X, f x): (∑ y : X, P y) → ∑ y : X, Q y
pr1p:= λ z : ∑ y, P y, pr1 z: (∑ y, P y) → X
pr1q:= λ z : ∑ y, Q y, pr1 z: (∑ y, Q y) → X
xq: ∑ y : X, Q y
x:= pr1q xq: X
xqe:= make_hfiber pr1q xq (idpath (pr1q xq)): hfiber pr1q (pr1q xq)
hfpqx:= hfibersgftog fpq pr1q x: hfiber (pr1q ∘ fpq) x → hfiber pr1q x
isint1: ∏ y : hfiber pr1q x, iscontr (hfiber hfpqx y)
iscontr (hfiber hfpqx xqe)
X: UU
P, Q: X → UU
f: ∏ x : X, P x ≃ Q x
fpq:= totalfun P Q (λ x : X, f x): (∑ y : X, P y) → ∑ y : X, Q y
pr1p:= λ z : ∑ y, P y, pr1 z: (∑ y, P y) → X
pr1q:= λ z : ∑ y, Q y, pr1 z: (∑ y, Q y) → X
xq: ∑ y : X, Q y
x:= pr1q xq: X
xqe:= make_hfiber pr1q xq (idpath (pr1q xq)): hfiber pr1q (pr1q xq)
hfpqx:= hfibersgftog fpq pr1q x: hfiber (pr1q ∘ fpq) x → hfiber pr1q x
isint: iscontr (hfiber hfpqx xqe)
iscontr (hfiber fpq xq) apply (isint1 xqe).
X: UU
P, Q: X → UU
f: ∏ x : X, P x ≃ Q x
fpq:= totalfun P Q (λ x : X, f x): (∑ y : X, P y) → ∑ y : X, Q y
pr1p:= λ z : ∑ y, P y, pr1 z: (∑ y, P y) → X
pr1q:= λ z : ∑ y, Q y, pr1 z: (∑ y, Q y) → X
xq: ∑ y : X, Q y
x:= pr1q xq: X
xqe:= make_hfiber pr1q xq (idpath (pr1q xq)): hfiber pr1q (pr1q xq)
hfpqx:= hfibersgftog fpq pr1q x: hfiber (pr1q ∘ fpq) x → hfiber pr1q x
isint: iscontr (hfiber hfpqx xqe)
iscontr (hfiber fpq xq)
  set (intmap := invezmaphf fpq pr1q x xqe).
X: UU
P, Q: X → UU
f: ∏ x : X, P x ≃ Q x
fpq:= totalfun P Q (λ x : X, f x): (∑ y : X, P y) → ∑ y : X, Q y
pr1p:= λ z : ∑ y, P y, pr1 z: (∑ y, P y) → X
pr1q:= λ z : ∑ y, Q y, pr1 z: (∑ y, Q y) → X
xq: ∑ y : X, Q y
x:= pr1q xq: X
xqe:= make_hfiber pr1q xq (idpath (pr1q xq)): hfiber pr1q (pr1q xq)
hfpqx:= hfibersgftog fpq pr1q x: hfiber (pr1q ∘ fpq) x → hfiber pr1q x
isint: iscontr (hfiber hfpqx xqe)
intmap:= invezmaphf fpq pr1q x xqe: hfiber (hfibersgftog fpq pr1q x) xqe
→ hfiber fpq (pr1 xqe)
iscontr (hfiber fpq xq)
  apply (iscontrweqf (make_weq intmap (isweqinvezmaphf fpq pr1q x xqe)) isint).
Defined.

Theorem isweqfibtototal' {X : UU} (P Q : X -> UU) (f : ∏ x : X, P x ≃ Q x) :
  isweq (totalfun _ _ f).
X: UU
P, Q: X → UU
f: ∏ x : X, P x ≃ Q x
isweq (totalfun P Q (λ x : X, f x))
Proof.
X: UU
P, Q: X → UU
f: ∏ x : X, P x ≃ Q x
isweq (totalfun P Q (λ x : X, f x))
  use isweq_iso.
X: UU
P, Q: X → UU
f: ∏ x : X, P x ≃ Q x
(∑ y : X, Q y) → ∑ y : X, P y
X: UU
P, Q: X → UU
f: ∏ x : X, P x ≃ Q x
∏ x : ∑ y : X, P y,
?g (totalfun P Q (λ x0 : X, f x0) x) = x
X: UU
P, Q: X → UU
f: ∏ x : X, P x ≃ Q x
∏ y : ∑ y : X, Q y,
totalfun P Q (λ x : X, f x) (?g y) = y
  -
X: UU
P, Q: X → UU
f: ∏ x : X, P x ≃ Q x
(∑ y : X, Q y) → ∑ y : X, P y use totalfun.
X: UU
P, Q: X → UU
f: ∏ x : X, P x ≃ Q x
∏ x : X, Q x → P x
    intro x.
X: UU
P, Q: X → UU
f: ∏ x : X, P x ≃ Q x
x: X
Q x → P x apply (invmap (f x)).
  -
X: UU
P, Q: X → UU
f: ∏ x : X, P x ≃ Q x
∏ x : ∑ y : X, P y,
totalfun Q P (λ x0 : X, invmap (f x0))
  (totalfun P Q (λ x0 : X, f x0) x) = x intro xp.
X: UU
P, Q: X → UU
f: ∏ x : X, P x ≃ Q x
xp: ∑ y : X, P y
totalfun Q P (λ x : X, invmap (f x))
  (totalfun P Q (λ x : X, f x) xp) = xp
    use total2_paths_f.
X: UU
P, Q: X → UU
f: ∏ x : X, P x ≃ Q x
xp: ∑ y : X, P y
pr1
  (totalfun Q P (λ x : X, invmap (f x))
     (totalfun P Q (λ x : X, f x) xp)) = pr1 xp
X: UU
P, Q: X → UU
f: ∏ x : X, P x ≃ Q x
xp: ∑ y : X, P y
transportf P ?p
  (pr2
     (totalfun Q P (λ x : X, invmap (f x))
        (totalfun P Q (λ x : X, f x) xp))) = pr2 xp
    +
X: UU
P, Q: X → UU
f: ∏ x : X, P x ≃ Q x
xp: ∑ y : X, P y
pr1
  (totalfun Q P (λ x : X, invmap (f x))
     (totalfun P Q (λ x : X, f x) xp)) = pr1 xp apply idpath.
    +
X: UU
P, Q: X → UU
f: ∏ x : X, P x ≃ Q x
xp: ∑ y : X, P y
transportf P (idpath (pr1 xp))
  (pr2
     (totalfun Q P (λ x : X, invmap (f x))
        (totalfun P Q (λ x : X, f x) xp))) = pr2 xp apply homotinvweqweq.
  -
X: UU
P, Q: X → UU
f: ∏ x : X, P x ≃ Q x
∏ y : ∑ y : X, Q y,
totalfun P Q (λ x : X, f x)
  (totalfun Q P (λ x : X, invmap (f x)) y) = y intro xp.
X: UU
P, Q: X → UU
f: ∏ x : X, P x ≃ Q x
xp: ∑ y : X, Q y
totalfun P Q (λ x : X, f x)
  (totalfun Q P (λ x : X, invmap (f x)) xp) = xp
    use total2_paths_f.
X: UU
P, Q: X → UU
f: ∏ x : X, P x ≃ Q x
xp: ∑ y : X, Q y
pr1
  (totalfun P Q (λ x : X, f x)
     (totalfun Q P (λ x : X, invmap (f x)) xp)) =
pr1 xp
X: UU
P, Q: X → UU
f: ∏ x : X, P x ≃ Q x
xp: ∑ y : X, Q y
transportf Q ?p
  (pr2
     (totalfun P Q (λ x : X, f x)
        (totalfun Q P (λ x : X, invmap (f x)) xp))) =
pr2 xp
    +
X: UU
P, Q: X → UU
f: ∏ x : X, P x ≃ Q x
xp: ∑ y : X, Q y
pr1
  (totalfun P Q (λ x : X, f x)
     (totalfun Q P (λ x : X, invmap (f x)) xp)) =
pr1 xp apply idpath.
    +
X: UU
P, Q: X → UU
f: ∏ x : X, P x ≃ Q x
xp: ∑ y : X, Q y
transportf Q (idpath (pr1 xp))
  (pr2
     (totalfun P Q (λ x : X, f x)
        (totalfun Q P (λ x : X, invmap (f x)) xp))) =
pr2 xp apply homotweqinvweq.
Defined.

Definition weqfibtototal {X : UU} (P Q : X -> UU) (f : ∏ x, P x ≃ Q x) :
  (∑ x, P x) ≃ (∑ x, Q x) := make_weq _ (isweqfibtototal' P Q f).


(** *** Function [ fpmap ] between the total spaces from a function between the bases

Given [ X Y ] in [ UU ], [ P:Y -> UU ] and [ f: X -> Y ] we get a function
[ fpmap: total2 X (P f) -> total2 Y P ]. The main theorem of this section
asserts that the homotopy fiber of fpmap over [ yp:total Y P ] is naturally
weakly equivalent to the homotopy fiber of [ f ] over [ pr1 yp ]. In
particular, if  [ f ] is a weak equivalence then so is [ fpmap ]. *)


Definition fpmap {X Y : UU} (f : X -> Y) (P : Y -> UU) :
  (∑ x, P (f x)) -> (∑ y, P y) := λ z, tpair P (f (pr1 z)) (pr2 z).

Definition hffpmap2 {X Y : UU} (f : X -> Y) (P : Y -> UU) :
  (∑ x, P (f x)) -> ∑ u : total2 P, hfiber f (pr1 u).
X, Y: UU
f: X → Y
P: Y → UU
(∑ x : X, P (f x)) → ∑ u : ∑ y, P y, hfiber f (pr1 u)
Proof.
X, Y: UU
f: X → Y
P: Y → UU
(∑ x : X, P (f x)) → ∑ u : ∑ y, P y, hfiber f (pr1 u)
  intros X0.
X, Y: UU
f: X → Y
P: Y → UU
X0: ∑ x : X, P (f x)
∑ u : ∑ y, P y, hfiber f (pr1 u)
  set (u:= fpmap f P X0).
X, Y: UU
f: X → Y
P: Y → UU
X0: ∑ x : X, P (f x)
u:= fpmap f P X0: ∑ y : Y, P y
∑ u : ∑ y, P y, hfiber f (pr1 u)
  split with u.
X, Y: UU
f: X → Y
P: Y → UU
X0: ∑ x : X, P (f x)
u:= fpmap f P X0: ∑ y : Y, P y
hfiber f (pr1 u)
  set (x:= pr1  X0).
X, Y: UU
f: X → Y
P: Y → UU
X0: ∑ x : X, P (f x)
u:= fpmap f P X0: ∑ y : Y, P y
x:= pr1 X0: X
hfiber f (pr1 u)
  split with x.
X, Y: UU
f: X → Y
P: Y → UU
X0: ∑ x : X, P (f x)
u:= fpmap f P X0: ∑ y : Y, P y
x:= pr1 X0: X
f x = pr1 u
  simpl.
X, Y: UU
f: X → Y
P: Y → UU
X0: ∑ x : X, P (f x)
u:= fpmap f P X0: ∑ y : Y, P y
x:= pr1 X0: X
f x = f (pr1 X0) apply idpath.
Defined.

Lemma centralfiber {X : UU} (P : X -> UU) (x : X) :
  isweq (λ p : P x, tpair (λ u : coconusfromt X x, P (pr1 u))
                              (coconusfromtpair X (idpath x)) p).
X: UU
P: X → UU
x: X
isweq (λ p : P x, coconusfromtpair X (idpath x),, p)
Proof.
X: UU
P: X → UU
x: X
isweq (λ p : P x, coconusfromtpair X (idpath x),, p)
  intros.
X: UU
P: X → UU
x: X
isweq (λ p : P x, coconusfromtpair X (idpath x),, p)
  set (f := λ p: P x, tpair (λ u: coconusfromt X x, P(pr1 u))
                                (coconusfromtpair X (idpath x)) p).
X: UU
P: X → UU
x: X
f:= λ p : P x, coconusfromtpair X (idpath x),, p: P x → ∑ u : coconusfromt X x, P (pr1 u)
isweq f
  set (g := λ z: total2 (λ u: coconusfromt X x, P (pr1 u)),
            transportf P (pathsinv0 (pr2 (pr1 z))) (pr2 z)).
X: UU
P: X → UU
x: X
f:= λ p : P x, coconusfromtpair X (idpath x),, p: P x → ∑ u : coconusfromt X x, P (pr1 u)
g:= λ z : ∑ u : coconusfromt X x, P (pr1 u),
transportf P (! pr2 (pr1 z)) (pr2 z): (∑ u : coconusfromt X x, P (pr1 u)) → P x
isweq f

  assert (efg : ∏ z : total2 (λ u : coconusfromt X x, P (pr1 u)),
                      (f (g z)) = z).
X: UU
P: X → UU
x: X
f:= λ p : P x, coconusfromtpair X (idpath x),, p: P x → ∑ u : coconusfromt X x, P (pr1 u)
g:= λ z : ∑ u : coconusfromt X x, P (pr1 u),
transportf P (! pr2 (pr1 z)) (pr2 z): (∑ u : coconusfromt X x, P (pr1 u)) → P x
∏ z : ∑ u : coconusfromt X x, P (pr1 u), f (g z) = z
X: UU
P: X → UU
x: X
f:= λ p : P x, coconusfromtpair X (idpath x),, p: P x → ∑ u : coconusfromt X x, P (pr1 u)
g:= λ z : ∑ u : coconusfromt X x, P (pr1 u),
transportf P (! pr2 (pr1 z)) (pr2 z): (∑ u : coconusfromt X x, P (pr1 u)) → P x
efg: ∏ z : ∑ u : coconusfromt X x, P (pr1 u), f (g z) = z
isweq f
  intro.
X: UU
P: X → UU
x: X
f:= λ p : P x, coconusfromtpair X (idpath x),, p: P x → ∑ u : coconusfromt X x, P (pr1 u)
g:= λ z : ∑ u : coconusfromt X x, P (pr1 u),
transportf P (! pr2 (pr1 z)) (pr2 z): (∑ u : coconusfromt X x, P (pr1 u)) → P x
z: ∑ u : coconusfromt X x, P (pr1 u)
f (g z) = z
X: UU
P: X → UU
x: X
f:= λ p : P x, coconusfromtpair X (idpath x),, p: P x → ∑ u : coconusfromt X x, P (pr1 u)
g:= λ z : ∑ u : coconusfromt X x, P (pr1 u),
transportf P (! pr2 (pr1 z)) (pr2 z): (∑ u : coconusfromt X x, P (pr1 u)) → P x
efg: ∏ z : ∑ u : coconusfromt X x, P (pr1 u), f (g z) = z
isweq f
  induction z as [ t x0 ].
X: UU
P: X → UU
x: X
f:= λ p : P x, coconusfromtpair X (idpath x),, p: P x → ∑ u : coconusfromt X x, P (pr1 u)
g:= λ z : ∑ u : coconusfromt X x, P (pr1 u),
transportf P (! pr2 (pr1 z)) (pr2 z): (∑ u : coconusfromt X x, P (pr1 u)) → P x
t: coconusfromt X x
x0: P (pr1 t)
f (g (t,, x0)) = t,, x0
X: UU
P: X → UU
x: X
f:= λ p : P x, coconusfromtpair X (idpath x),, p: P x → ∑ u : coconusfromt X x, P (pr1 u)
g:= λ z : ∑ u : coconusfromt X x, P (pr1 u),
transportf P (! pr2 (pr1 z)) (pr2 z): (∑ u : coconusfromt X x, P (pr1 u)) → P x
efg: ∏ z : ∑ u : coconusfromt X x, P (pr1 u), f (g z) = z
isweq f induction t as [ t x1 ].
X: UU
P: X → UU
x: X
f:= λ p : P x, coconusfromtpair X (idpath x),, p: P x → ∑ u : coconusfromt X x, P (pr1 u)
g:= λ z : ∑ u : coconusfromt X x, P (pr1 u),
transportf P (! pr2 (pr1 z)) (pr2 z): (∑ u : coconusfromt X x, P (pr1 u)) → P x
t: X
x1: x = t
x0: P (pr1 (t,, x1))
f (g ((t,, x1),, x0)) = (t,, x1),, x0
X: UU
P: X → UU
x: X
f:= λ p : P x, coconusfromtpair X (idpath x),, p: P x → ∑ u : coconusfromt X x, P (pr1 u)
g:= λ z : ∑ u : coconusfromt X x, P (pr1 u),
transportf P (! pr2 (pr1 z)) (pr2 z): (∑ u : coconusfromt X x, P (pr1 u)) → P x
efg: ∏ z : ∑ u : coconusfromt X x, P (pr1 u), f (g z) = z
isweq f
  simpl.
X: UU
P: X → UU
x: X
f:= λ p : P x, coconusfromtpair X (idpath x),, p: P x → ∑ u : coconusfromt X x, P (pr1 u)
g:= λ z : ∑ u : coconusfromt X x, P (pr1 u),
transportf P (! pr2 (pr1 z)) (pr2 z): (∑ u : coconusfromt X x, P (pr1 u)) → P x
t: X
x1: x = t
x0: P (pr1 (t,, x1))
f (g ((t,, x1),, x0)) = (t,, x1),, x0
X: UU
P: X → UU
x: X
f:= λ p : P x, coconusfromtpair X (idpath x),, p: P x → ∑ u : coconusfromt X x, P (pr1 u)
g:= λ z : ∑ u : coconusfromt X x, P (pr1 u),
transportf P (! pr2 (pr1 z)) (pr2 z): (∑ u : coconusfromt X x, P (pr1 u)) → P x
efg: ∏ z : ∑ u : coconusfromt X x, P (pr1 u), f (g z) = z
isweq f induction x1.
X: UU
P: X → UU
x: X
f:= λ p : P x, coconusfromtpair X (idpath x),, p: P x → ∑ u : coconusfromt X x, P (pr1 u)
g:= λ z : ∑ u : coconusfromt X x, P (pr1 u),
transportf P (! pr2 (pr1 z)) (pr2 z): (∑ u : coconusfromt X x, P (pr1 u)) → P x
x0: P (pr1 (x,, idpath x))
f (g ((x,, idpath x),, x0)) = (x,, idpath x),, x0
X: UU
P: X → UU
x: X
f:= λ p : P x, coconusfromtpair X (idpath x),, p: P x → ∑ u : coconusfromt X x, P (pr1 u)
g:= λ z : ∑ u : coconusfromt X x, P (pr1 u),
transportf P (! pr2 (pr1 z)) (pr2 z): (∑ u : coconusfromt X x, P (pr1 u)) → P x
efg: ∏ z : ∑ u : coconusfromt X x, P (pr1 u), f (g z) = z
isweq f simpl.
X: UU
P: X → UU
x: X
f:= λ p : P x, coconusfromtpair X (idpath x),, p: P x → ∑ u : coconusfromt X x, P (pr1 u)
g:= λ z : ∑ u : coconusfromt X x, P (pr1 u),
transportf P (! pr2 (pr1 z)) (pr2 z): (∑ u : coconusfromt X x, P (pr1 u)) → P x
x0: P (pr1 (x,, idpath x))
f (g ((x,, idpath x),, x0)) = (x,, idpath x),, x0
X: UU
P: X → UU
x: X
f:= λ p : P x, coconusfromtpair X (idpath x),, p: P x → ∑ u : coconusfromt X x, P (pr1 u)
g:= λ z : ∑ u : coconusfromt X x, P (pr1 u),
transportf P (! pr2 (pr1 z)) (pr2 z): (∑ u : coconusfromt X x, P (pr1 u)) → P x
efg: ∏ z : ∑ u : coconusfromt X x, P (pr1 u), f (g z) = z
isweq f apply idpath.
X: UU
P: X → UU
x: X
f:= λ p : P x, coconusfromtpair X (idpath x),, p: P x → ∑ u : coconusfromt X x, P (pr1 u)
g:= λ z : ∑ u : coconusfromt X x, P (pr1 u),
transportf P (! pr2 (pr1 z)) (pr2 z): (∑ u : coconusfromt X x, P (pr1 u)) → P x
efg: ∏ z : ∑ u : coconusfromt X x, P (pr1 u), f (g z) = z
isweq f

  assert (egf : ∏ p : P x , (g (f p)) = p).
X: UU
P: X → UU
x: X
f:= λ p : P x, coconusfromtpair X (idpath x),, p: P x → ∑ u : coconusfromt X x, P (pr1 u)
g:= λ z : ∑ u : coconusfromt X x, P (pr1 u),
transportf P (! pr2 (pr1 z)) (pr2 z): (∑ u : coconusfromt X x, P (pr1 u)) → P x
efg: ∏ z : ∑ u : coconusfromt X x, P (pr1 u), f (g z) = z
∏ p : P x, g (f p) = p
X: UU
P: X → UU
x: X
f:= λ p : P x, coconusfromtpair X (idpath x),, p: P x → ∑ u : coconusfromt X x, P (pr1 u)
g:= λ z : ∑ u : coconusfromt X x, P (pr1 u),
transportf P (! pr2 (pr1 z)) (pr2 z): (∑ u : coconusfromt X x, P (pr1 u)) → P x
efg: ∏ z : ∑ u : coconusfromt X x, P (pr1 u), f (g z) = z
egf: ∏ p : P x, g (f p) = p
isweq f intro.
X: UU
P: X → UU
x: X
f:= λ p : P x, coconusfromtpair X (idpath x),, p: P x → ∑ u : coconusfromt X x, P (pr1 u)
g:= λ z : ∑ u : coconusfromt X x, P (pr1 u),
transportf P (! pr2 (pr1 z)) (pr2 z): (∑ u : coconusfromt X x, P (pr1 u)) → P x
efg: ∏ z : ∑ u : coconusfromt X x, P (pr1 u), f (g z) = z
p: P x
g (f p) = p
X: UU
P: X → UU
x: X
f:= λ p : P x, coconusfromtpair X (idpath x),, p: P x → ∑ u : coconusfromt X x, P (pr1 u)
g:= λ z : ∑ u : coconusfromt X x, P (pr1 u),
transportf P (! pr2 (pr1 z)) (pr2 z): (∑ u : coconusfromt X x, P (pr1 u)) → P x
efg: ∏ z : ∑ u : coconusfromt X x, P (pr1 u), f (g z) = z
egf: ∏ p : P x, g (f p) = p
isweq f apply idpath.
X: UU
P: X → UU
x: X
f:= λ p : P x, coconusfromtpair X (idpath x),, p: P x → ∑ u : coconusfromt X x, P (pr1 u)
g:= λ z : ∑ u : coconusfromt X x, P (pr1 u),
transportf P (! pr2 (pr1 z)) (pr2 z): (∑ u : coconusfromt X x, P (pr1 u)) → P x
efg: ∏ z : ∑ u : coconusfromt X x, P (pr1 u), f (g z) = z
egf: ∏ p : P x, g (f p) = p
isweq f

  apply (isweq_iso f g egf efg).
Defined.


Lemma isweqhff {X Y : UU} (f : X -> Y) (P : Y -> UU) : isweq (hffpmap2 f P).
X, Y: UU
f: X → Y
P: Y → UU
isweq (hffpmap2 f P)
Proof.
X, Y: UU
f: X → Y
P: Y → UU
isweq (hffpmap2 f P)
  intros.
X, Y: UU
f: X → Y
P: Y → UU
isweq (hffpmap2 f P)
  set (int := total2 (λ x : X, total2 (λ u : coconusfromt Y (f x),
                                             P (pr1  u)))).
X, Y: UU
f: X → Y
P: Y → UU
int:= ∑ (x : X) (u : coconusfromt Y (f x)), P (pr1 u): Type
isweq (hffpmap2 f P)
  set (intpair := tpair (λ x:X, total2 (λ u : coconusfromt Y (f x),
                                              P (pr1  u)))).
X, Y: UU
f: X → Y
P: Y → UU
int:= ∑ (x : X) (u : coconusfromt Y (f x)), P (pr1 u): Type
intpair:= tpair
  (λ x : X,
   ∑ u : coconusfromt Y (f x), P (pr1 u)): ∏ pr1 : X,
(λ x : X,
 ∑ u : coconusfromt Y (f x),
 P (Preamble.pr1 u)) pr1
→ ∑ (x : X) (u : coconusfromt Y (f x)),
  P (Preamble.pr1 u)
isweq (hffpmap2 f P)
  set (toint :=
         λ z : (total2 (λ u : total2 P, hfiber f (pr1 u))),
               intpair (pr1 (pr2 z))
                       (tpair (fun u: coconusfromt Y (f (pr1 (pr2 z))) => P (pr1 u))
                              (coconusfromtpair _ (pr2 (pr2 z))) (pr2 (pr1 z)))).
X, Y: UU
f: X → Y
P: Y → UU
int:= ∑ (x : X) (u : coconusfromt Y (f x)), P (pr1 u): Type
intpair:= tpair
  (λ x : X,
   ∑ u : coconusfromt Y (f x), P (pr1 u)): ∏ pr1 : X,
(λ x : X,
 ∑ u : coconusfromt Y (f x),
 P (Preamble.pr1 u)) pr1
→ ∑ (x : X) (u : coconusfromt Y (f x)),
  P (Preamble.pr1 u)
toint:= λ z : ∑ u : ∑ y, P y, hfiber f (pr1 u),
intpair (pr1 (pr2 z))
  (coconusfromtpair Y (pr2 (pr2 z)),,
   pr2 (pr1 z)): (∑ u : ∑ y, P y, hfiber f (pr1 u))
→ ∑ (x : X) (u : coconusfromt Y (f x)),
  P (pr1 u)
isweq (hffpmap2 f P)
  set (fromint := λ z : int,
                        tpair (λ u : total2 P, hfiber f (pr1 u))
                              (tpair P (pr1 (pr1 (pr2 z))) (pr2 (pr2 z)))
                              (make_hfiber f (pr1 z) (pr2 (pr1 (pr2 z))))).
X, Y: UU
f: X → Y
P: Y → UU
int:= ∑ (x : X) (u : coconusfromt Y (f x)), P (pr1 u): Type
intpair:= tpair
  (λ x : X,
   ∑ u : coconusfromt Y (f x), P (pr1 u)): ∏ pr1 : X,
(λ x : X,
 ∑ u : coconusfromt Y (f x),
 P (Preamble.pr1 u)) pr1
→ ∑ (x : X) (u : coconusfromt Y (f x)),
  P (Preamble.pr1 u)
toint:= λ z : ∑ u : ∑ y, P y, hfiber f (pr1 u),
intpair (pr1 (pr2 z))
  (coconusfromtpair Y (pr2 (pr2 z)),,
   pr2 (pr1 z)): (∑ u : ∑ y, P y, hfiber f (pr1 u))
→ ∑ (x : X) (u : coconusfromt Y (f x)),
  P (pr1 u)
fromint:= λ z : int,
(pr1 (pr1 (pr2 z)),, pr2 (pr2 z)),,
make_hfiber f (pr1 z) (pr2 (pr1 (pr2 z))): int → ∑ u : ∑ y, P y, hfiber f (pr1 u)
isweq (hffpmap2 f P)

  assert (fromto : ∏ u : (total2 (λ u : total2 P, hfiber f (pr1 u))),
                         (fromint (toint u)) = u).
X, Y: UU
f: X → Y
P: Y → UU
int:= ∑ (x : X) (u : coconusfromt Y (f x)), P (pr1 u): Type
intpair:= tpair
  (λ x : X,
   ∑ u : coconusfromt Y (f x), P (pr1 u)): ∏ pr1 : X,
(λ x : X,
 ∑ u : coconusfromt Y (f x),
 P (Preamble.pr1 u)) pr1
→ ∑ (x : X) (u : coconusfromt Y (f x)),
  P (Preamble.pr1 u)
toint:= λ z : ∑ u : ∑ y, P y, hfiber f (pr1 u),
intpair (pr1 (pr2 z))
  (coconusfromtpair Y (pr2 (pr2 z)),,
   pr2 (pr1 z)): (∑ u : ∑ y, P y, hfiber f (pr1 u))
→ ∑ (x : X) (u : coconusfromt Y (f x)),
  P (pr1 u)
fromint:= λ z : int,
(pr1 (pr1 (pr2 z)),, pr2 (pr2 z)),,
make_hfiber f (pr1 z) (pr2 (pr1 (pr2 z))): int → ∑ u : ∑ y, P y, hfiber f (pr1 u)
∏ u : ∑ u : ∑ y, P y, hfiber f (pr1 u),
fromint (toint u) = u
X, Y: UU
f: X → Y
P: Y → UU
int:= ∑ (x : X) (u : coconusfromt Y (f x)), P (pr1 u): Type
intpair:= tpair
  (λ x : X,
   ∑ u : coconusfromt Y (f x), P (pr1 u)): ∏ pr1 : X,
(λ x : X,
 ∑ u : coconusfromt Y (f x),
 P (Preamble.pr1 u)) pr1
→ ∑ (x : X) (u : coconusfromt Y (f x)),
  P (Preamble.pr1 u)
toint:= λ z : ∑ u : ∑ y, P y, hfiber f (pr1 u),
intpair (pr1 (pr2 z))
  (coconusfromtpair Y (pr2 (pr2 z)),,
   pr2 (pr1 z)): (∑ u : ∑ y, P y, hfiber f (pr1 u))
→ ∑ (x : X) (u : coconusfromt Y (f x)),
  P (pr1 u)
fromint:= λ z : int,
(pr1 (pr1 (pr2 z)),, pr2 (pr2 z)),,
make_hfiber f (pr1 z) (pr2 (pr1 (pr2 z))): int → ∑ u : ∑ y, P y, hfiber f (pr1 u)
fromto: ∏ u : ∑ u : ∑ y, P y, hfiber f (pr1 u),
fromint (toint u) = u
isweq (hffpmap2 f P)
  simpl in toint.
X, Y: UU
f: X → Y
P: Y → UU
int:= ∑ (x : X) (u : coconusfromt Y (f x)), P (pr1 u): Type
intpair:= tpair
  (λ x : X,
   ∑ u : coconusfromt Y (f x), P (pr1 u)): ∏ pr1 : X,
(λ x : X,
 ∑ u : coconusfromt Y (f x),
 P (Preamble.pr1 u)) pr1
→ ∑ (x : X) (u : coconusfromt Y (f x)),
  P (Preamble.pr1 u)
toint:= λ z : ∑ u : ∑ y, P y, hfiber f (pr1 u),
intpair (pr1 (pr2 z))
  (coconusfromtpair Y (pr2 (pr2 z)),,
   pr2 (pr1 z)): (∑ u : ∑ y, P y, hfiber f (pr1 u))
→ ∑ (x : X) (u : coconusfromt Y (f x)),
  P (pr1 u)
fromint:= λ z : int,
(pr1 (pr1 (pr2 z)),, pr2 (pr2 z)),,
make_hfiber f (pr1 z) (pr2 (pr1 (pr2 z))): int → ∑ u : ∑ y, P y, hfiber f (pr1 u)
∏ u : ∑ u : ∑ y, P y, hfiber f (pr1 u),
fromint (toint u) = u
X, Y: UU
f: X → Y
P: Y → UU
int:= ∑ (x : X) (u : coconusfromt Y (f x)), P (pr1 u): Type
intpair:= tpair
  (λ x : X,
   ∑ u : coconusfromt Y (f x), P (pr1 u)): ∏ pr1 : X,
(λ x : X,
 ∑ u : coconusfromt Y (f x),
 P (Preamble.pr1 u)) pr1
→ ∑ (x : X) (u : coconusfromt Y (f x)),
  P (Preamble.pr1 u)
toint:= λ z : ∑ u : ∑ y, P y, hfiber f (pr1 u),
intpair (pr1 (pr2 z))
  (coconusfromtpair Y (pr2 (pr2 z)),,
   pr2 (pr1 z)): (∑ u : ∑ y, P y, hfiber f (pr1 u))
→ ∑ (x : X) (u : coconusfromt Y (f x)),
  P (pr1 u)
fromint:= λ z : int,
(pr1 (pr1 (pr2 z)),, pr2 (pr2 z)),,
make_hfiber f (pr1 z) (pr2 (pr1 (pr2 z))): int → ∑ u : ∑ y, P y, hfiber f (pr1 u)
fromto: ∏ u : ∑ u : ∑ y, P y, hfiber f (pr1 u),
fromint (toint u) = u
isweq (hffpmap2 f P) simpl in fromint.
X, Y: UU
f: X → Y
P: Y → UU
int:= ∑ (x : X) (u : coconusfromt Y (f x)), P (pr1 u): Type
intpair:= tpair
  (λ x : X,
   ∑ u : coconusfromt Y (f x), P (pr1 u)): ∏ pr1 : X,
(λ x : X,
 ∑ u : coconusfromt Y (f x),
 P (Preamble.pr1 u)) pr1
→ ∑ (x : X) (u : coconusfromt Y (f x)),
  P (Preamble.pr1 u)
toint:= λ z : ∑ u : ∑ y, P y, hfiber f (pr1 u),
intpair (pr1 (pr2 z))
  (coconusfromtpair Y (pr2 (pr2 z)),,
   pr2 (pr1 z)): (∑ u : ∑ y, P y, hfiber f (pr1 u))
→ ∑ (x : X) (u : coconusfromt Y (f x)),
  P (pr1 u)
fromint:= λ z : int,
(pr1 (pr1 (pr2 z)),, pr2 (pr2 z)),,
make_hfiber f (pr1 z) (pr2 (pr1 (pr2 z))): int → ∑ u : ∑ y, P y, hfiber f (pr1 u)
∏ u : ∑ u : ∑ y, P y, hfiber f (pr1 u),
fromint (toint u) = u
X, Y: UU
f: X → Y
P: Y → UU
int:= ∑ (x : X) (u : coconusfromt Y (f x)), P (pr1 u): Type
intpair:= tpair
  (λ x : X,
   ∑ u : coconusfromt Y (f x), P (pr1 u)): ∏ pr1 : X,
(λ x : X,
 ∑ u : coconusfromt Y (f x),
 P (Preamble.pr1 u)) pr1
→ ∑ (x : X) (u : coconusfromt Y (f x)),
  P (Preamble.pr1 u)
toint:= λ z : ∑ u : ∑ y, P y, hfiber f (pr1 u),
intpair (pr1 (pr2 z))
  (coconusfromtpair Y (pr2 (pr2 z)),,
   pr2 (pr1 z)): (∑ u : ∑ y, P y, hfiber f (pr1 u))
→ ∑ (x : X) (u : coconusfromt Y (f x)),
  P (pr1 u)
fromint:= λ z : int,
(pr1 (pr1 (pr2 z)),, pr2 (pr2 z)),,
make_hfiber f (pr1 z) (pr2 (pr1 (pr2 z))): int → ∑ u : ∑ y, P y, hfiber f (pr1 u)
fromto: ∏ u : ∑ u : ∑ y, P y, hfiber f (pr1 u),
fromint (toint u) = u
isweq (hffpmap2 f P) simpl.
X, Y: UU
f: X → Y
P: Y → UU
int:= ∑ (x : X) (u : coconusfromt Y (f x)), P (pr1 u): Type
intpair:= tpair
  (λ x : X,
   ∑ u : coconusfromt Y (f x), P (pr1 u)): ∏ pr1 : X,
(λ x : X,
 ∑ u : coconusfromt Y (f x),
 P (Preamble.pr1 u)) pr1
→ ∑ (x : X) (u : coconusfromt Y (f x)),
  P (Preamble.pr1 u)
toint:= λ z : ∑ u : ∑ y, P y, hfiber f (pr1 u),
intpair (pr1 (pr2 z))
  (coconusfromtpair Y (pr2 (pr2 z)),,
   pr2 (pr1 z)): (∑ u : ∑ y, P y, hfiber f (pr1 u))
→ ∑ (x : X) (u : coconusfromt Y (f x)),
  P (pr1 u)
fromint:= λ z : int,
(pr1 (pr1 (pr2 z)),, pr2 (pr2 z)),,
make_hfiber f (pr1 z) (pr2 (pr1 (pr2 z))): int → ∑ u : ∑ y, P y, hfiber f (pr1 u)
∏ u : ∑ u : ∑ y, P y, hfiber f (pr1 u),
fromint (toint u) = u
X, Y: UU
f: X → Y
P: Y → UU
int:= ∑ (x : X) (u : coconusfromt Y (f x)), P (pr1 u): Type
intpair:= tpair
  (λ x : X,
   ∑ u : coconusfromt Y (f x), P (pr1 u)): ∏ pr1 : X,
(λ x : X,
 ∑ u : coconusfromt Y (f x),
 P (Preamble.pr1 u)) pr1
→ ∑ (x : X) (u : coconusfromt Y (f x)),
  P (Preamble.pr1 u)
toint:= λ z : ∑ u : ∑ y, P y, hfiber f (pr1 u),
intpair (pr1 (pr2 z))
  (coconusfromtpair Y (pr2 (pr2 z)),,
   pr2 (pr1 z)): (∑ u : ∑ y, P y, hfiber f (pr1 u))
→ ∑ (x : X) (u : coconusfromt Y (f x)),
  P (pr1 u)
fromint:= λ z : int,
(pr1 (pr1 (pr2 z)),, pr2 (pr2 z)),,
make_hfiber f (pr1 z) (pr2 (pr1 (pr2 z))): int → ∑ u : ∑ y, P y, hfiber f (pr1 u)
fromto: ∏ u : ∑ u : ∑ y, P y, hfiber f (pr1 u),
fromint (toint u) = u
isweq (hffpmap2 f P)
  intro u.
X, Y: UU
f: X → Y
P: Y → UU
int:= ∑ (x : X) (u : coconusfromt Y (f x)), P (pr1 u): Type
intpair:= tpair
  (λ x : X,
   ∑ u : coconusfromt Y (f x), P (pr1 u)): ∏ pr1 : X,
(λ x : X,
 ∑ u : coconusfromt Y (f x),
 P (Preamble.pr1 u)) pr1
→ ∑ (x : X) (u : coconusfromt Y (f x)),
  P (Preamble.pr1 u)
toint:= λ z : ∑ u : ∑ y, P y, hfiber f (pr1 u),
intpair (pr1 (pr2 z))
  (coconusfromtpair Y (pr2 (pr2 z)),,
   pr2 (pr1 z)): (∑ u : ∑ y, P y, hfiber f (pr1 u))
→ ∑ (x : X) (u : coconusfromt Y (f x)),
  P (pr1 u)
fromint:= λ z : int,
(pr1 (pr1 (pr2 z)),, pr2 (pr2 z)),,
make_hfiber f (pr1 z) (pr2 (pr1 (pr2 z))): int → ∑ u : ∑ y, P y, hfiber f (pr1 u)
u: ∑ u : ∑ y, P y, hfiber f (pr1 u)
fromint (toint u) = u
X, Y: UU
f: X → Y
P: Y → UU
int:= ∑ (x : X) (u : coconusfromt Y (f x)), P (pr1 u): Type
intpair:= tpair
  (λ x : X,
   ∑ u : coconusfromt Y (f x), P (pr1 u)): ∏ pr1 : X,
(λ x : X,
 ∑ u : coconusfromt Y (f x),
 P (Preamble.pr1 u)) pr1
→ ∑ (x : X) (u : coconusfromt Y (f x)),
  P (Preamble.pr1 u)
toint:= λ z : ∑ u : ∑ y, P y, hfiber f (pr1 u),
intpair (pr1 (pr2 z))
  (coconusfromtpair Y (pr2 (pr2 z)),,
   pr2 (pr1 z)): (∑ u : ∑ y, P y, hfiber f (pr1 u))
→ ∑ (x : X) (u : coconusfromt Y (f x)),
  P (pr1 u)
fromint:= λ z : int,
(pr1 (pr1 (pr2 z)),, pr2 (pr2 z)),,
make_hfiber f (pr1 z) (pr2 (pr1 (pr2 z))): int → ∑ u : ∑ y, P y, hfiber f (pr1 u)
fromto: ∏ u : ∑ u : ∑ y, P y, hfiber f (pr1 u),
fromint (toint u) = u
isweq (hffpmap2 f P) induction u as [ t x ].
X, Y: UU
f: X → Y
P: Y → UU
int:= ∑ (x : X) (u : coconusfromt Y (f x)), P (pr1 u): Type
intpair:= tpair
  (λ x : X,
   ∑ u : coconusfromt Y (f x), P (pr1 u)): ∏ pr1 : X,
(λ x : X,
 ∑ u : coconusfromt Y (f x),
 P (Preamble.pr1 u)) pr1
→ ∑ (x : X) (u : coconusfromt Y (f x)),
  P (Preamble.pr1 u)
toint:= λ z : ∑ u : ∑ y, P y, hfiber f (pr1 u),
intpair (pr1 (pr2 z))
  (coconusfromtpair Y (pr2 (pr2 z)),,
   pr2 (pr1 z)): (∑ u : ∑ y, P y, hfiber f (pr1 u))
→ ∑ (x : X) (u : coconusfromt Y (f x)),
  P (pr1 u)
fromint:= λ z : int,
(pr1 (pr1 (pr2 z)),, pr2 (pr2 z)),,
make_hfiber f (pr1 z) (pr2 (pr1 (pr2 z))): int → ∑ u : ∑ y, P y, hfiber f (pr1 u)
t: ∑ y, P y
x: hfiber f (pr1 t)
fromint (toint (t,, x)) = t,, x
X, Y: UU
f: X → Y
P: Y → UU
int:= ∑ (x : X) (u : coconusfromt Y (f x)), P (pr1 u): Type
intpair:= tpair
  (λ x : X,
   ∑ u : coconusfromt Y (f x), P (pr1 u)): ∏ pr1 : X,
(λ x : X,
 ∑ u : coconusfromt Y (f x),
 P (Preamble.pr1 u)) pr1
→ ∑ (x : X) (u : coconusfromt Y (f x)),
  P (Preamble.pr1 u)
toint:= λ z : ∑ u : ∑ y, P y, hfiber f (pr1 u),
intpair (pr1 (pr2 z))
  (coconusfromtpair Y (pr2 (pr2 z)),,
   pr2 (pr1 z)): (∑ u : ∑ y, P y, hfiber f (pr1 u))
→ ∑ (x : X) (u : coconusfromt Y (f x)),
  P (pr1 u)
fromint:= λ z : int,
(pr1 (pr1 (pr2 z)),, pr2 (pr2 z)),,
make_hfiber f (pr1 z) (pr2 (pr1 (pr2 z))): int → ∑ u : ∑ y, P y, hfiber f (pr1 u)
fromto: ∏ u : ∑ u : ∑ y, P y, hfiber f (pr1 u),
fromint (toint u) = u
isweq (hffpmap2 f P) induction x.
X, Y: UU
f: X → Y
P: Y → UU
int:= ∑ (x : X) (u : coconusfromt Y (f x)),
P (Preamble.pr1 u): Type
intpair:= tpair
  (λ x : X,
   ∑ u : coconusfromt Y (f x),
   P (Preamble.pr1 u)): ∏ pr1 : X,
(λ x : X,
 ∑ u : coconusfromt Y (f x),
 P (Preamble.pr1 u)) pr1
→ ∑ (x : X) (u : coconusfromt Y (f x)),
  P (Preamble.pr1 u)
toint:= λ z : ∑ u : ∑ y, P y, hfiber f (Preamble.pr1 u),
intpair (Preamble.pr1 (Preamble.pr2 z))
  (coconusfromtpair Y
     (Preamble.pr2 (Preamble.pr2 z)),,
   Preamble.pr2 (Preamble.pr1 z)): (∑ u : ∑ y, P y, hfiber f (Preamble.pr1 u))
→ ∑ (x : X) (u : coconusfromt Y (f x)),
  P (Preamble.pr1 u)
fromint:= λ z : int,
(Preamble.pr1 (Preamble.pr1 (Preamble.pr2 z)),,
 Preamble.pr2 (Preamble.pr2 z)),,
make_hfiber f (Preamble.pr1 z)
  (Preamble.pr2
     (Preamble.pr1 (Preamble.pr2 z))): int
→ ∑ u : ∑ y, P y, hfiber f (Preamble.pr1 u)
t: ∑ y, P y
pr1: X
pr2: f pr1 = Preamble.pr1 t
fromint (toint (t,, pr1,, pr2)) = t,, pr1,, pr2
X, Y: UU
f: X → Y
P: Y → UU
int:= ∑ (x : X) (u : coconusfromt Y (f x)), P (pr1 u): Type
intpair:= tpair
  (λ x : X,
   ∑ u : coconusfromt Y (f x), P (pr1 u)): ∏ pr1 : X,
(λ x : X,
 ∑ u : coconusfromt Y (f x),
 P (Preamble.pr1 u)) pr1
→ ∑ (x : X) (u : coconusfromt Y (f x)),
  P (Preamble.pr1 u)
toint:= λ z : ∑ u : ∑ y, P y, hfiber f (pr1 u),
intpair (pr1 (pr2 z))
  (coconusfromtpair Y (pr2 (pr2 z)),,
   pr2 (pr1 z)): (∑ u : ∑ y, P y, hfiber f (pr1 u))
→ ∑ (x : X) (u : coconusfromt Y (f x)),
  P (pr1 u)
fromint:= λ z : int,
(pr1 (pr1 (pr2 z)),, pr2 (pr2 z)),,
make_hfiber f (pr1 z) (pr2 (pr1 (pr2 z))): int → ∑ u : ∑ y, P y, hfiber f (pr1 u)
fromto: ∏ u : ∑ u : ∑ y, P y, hfiber f (pr1 u),
fromint (toint u) = u
isweq (hffpmap2 f P) induction t as [ p0 p1 ].
X, Y: UU
f: X → Y
P: Y → UU
int:= ∑ (x : X) (u : coconusfromt Y (f x)),
P (Preamble.pr1 u): Type
intpair:= tpair
  (λ x : X,
   ∑ u : coconusfromt Y (f x),
   P (Preamble.pr1 u)): ∏ pr1 : X,
(λ x : X,
 ∑ u : coconusfromt Y (f x),
 P (Preamble.pr1 u)) pr1
→ ∑ (x : X) (u : coconusfromt Y (f x)),
  P (Preamble.pr1 u)
toint:= λ z : ∑ u : ∑ y, P y, hfiber f (Preamble.pr1 u),
intpair (Preamble.pr1 (Preamble.pr2 z))
  (coconusfromtpair Y
     (Preamble.pr2 (Preamble.pr2 z)),,
   Preamble.pr2 (Preamble.pr1 z)): (∑ u : ∑ y, P y, hfiber f (Preamble.pr1 u))
→ ∑ (x : X) (u : coconusfromt Y (f x)),
  P (Preamble.pr1 u)
fromint:= λ z : int,
(Preamble.pr1 (Preamble.pr1 (Preamble.pr2 z)),,
 Preamble.pr2 (Preamble.pr2 z)),,
make_hfiber f (Preamble.pr1 z)
  (Preamble.pr2
     (Preamble.pr1 (Preamble.pr2 z))): int
→ ∑ u : ∑ y, P y, hfiber f (Preamble.pr1 u)
p0: Y
p1: P p0
pr1: X
pr2: f pr1 = Preamble.pr1 (p0,, p1)
fromint (toint ((p0,, p1),, pr1,, pr2)) =
(p0,, p1),, pr1,, pr2
X, Y: UU
f: X → Y
P: Y → UU
int:= ∑ (x : X) (u : coconusfromt Y (f x)), P (pr1 u): Type
intpair:= tpair
  (λ x : X,
   ∑ u : coconusfromt Y (f x), P (pr1 u)): ∏ pr1 : X,
(λ x : X,
 ∑ u : coconusfromt Y (f x),
 P (Preamble.pr1 u)) pr1
→ ∑ (x : X) (u : coconusfromt Y (f x)),
  P (Preamble.pr1 u)
toint:= λ z : ∑ u : ∑ y, P y, hfiber f (pr1 u),
intpair (pr1 (pr2 z))
  (coconusfromtpair Y (pr2 (pr2 z)),,
   pr2 (pr1 z)): (∑ u : ∑ y, P y, hfiber f (pr1 u))
→ ∑ (x : X) (u : coconusfromt Y (f x)),
  P (pr1 u)
fromint:= λ z : int,
(pr1 (pr1 (pr2 z)),, pr2 (pr2 z)),,
make_hfiber f (pr1 z) (pr2 (pr1 (pr2 z))): int → ∑ u : ∑ y, P y, hfiber f (pr1 u)
fromto: ∏ u : ∑ u : ∑ y, P y, hfiber f (pr1 u),
fromint (toint u) = u
isweq (hffpmap2 f P)
  simpl.
X, Y: UU
f: X → Y
P: Y → UU
int:= ∑ (x : X) (u : coconusfromt Y (f x)),
P (Preamble.pr1 u): Type
intpair:= tpair
  (λ x : X,
   ∑ u : coconusfromt Y (f x),
   P (Preamble.pr1 u)): ∏ pr1 : X,
(λ x : X,
 ∑ u : coconusfromt Y (f x),
 P (Preamble.pr1 u)) pr1
→ ∑ (x : X) (u : coconusfromt Y (f x)),
  P (Preamble.pr1 u)
toint:= λ z : ∑ u : ∑ y, P y, hfiber f (Preamble.pr1 u),
intpair (Preamble.pr1 (Preamble.pr2 z))
  (coconusfromtpair Y
     (Preamble.pr2 (Preamble.pr2 z)),,
   Preamble.pr2 (Preamble.pr1 z)): (∑ u : ∑ y, P y, hfiber f (Preamble.pr1 u))
→ ∑ (x : X) (u : coconusfromt Y (f x)),
  P (Preamble.pr1 u)
fromint:= λ z : int,
(Preamble.pr1 (Preamble.pr1 (Preamble.pr2 z)),,
 Preamble.pr2 (Preamble.pr2 z)),,
make_hfiber f (Preamble.pr1 z)
  (Preamble.pr2
     (Preamble.pr1 (Preamble.pr2 z))): int
→ ∑ u : ∑ y, P y, hfiber f (Preamble.pr1 u)
p0: Y
p1: P p0
pr1: X
pr2: f pr1 = Preamble.pr1 (p0,, p1)
fromint (toint ((p0,, p1),, pr1,, pr2)) =
(p0,, p1),, pr1,, pr2
X, Y: UU
f: X → Y
P: Y → UU
int:= ∑ (x : X) (u : coconusfromt Y (f x)), P (pr1 u): Type
intpair:= tpair
  (λ x : X,
   ∑ u : coconusfromt Y (f x), P (pr1 u)): ∏ pr1 : X,
(λ x : X,
 ∑ u : coconusfromt Y (f x),
 P (Preamble.pr1 u)) pr1
→ ∑ (x : X) (u : coconusfromt Y (f x)),
  P (Preamble.pr1 u)
toint:= λ z : ∑ u : ∑ y, P y, hfiber f (pr1 u),
intpair (pr1 (pr2 z))
  (coconusfromtpair Y (pr2 (pr2 z)),,
   pr2 (pr1 z)): (∑ u : ∑ y, P y, hfiber f (pr1 u))
→ ∑ (x : X) (u : coconusfromt Y (f x)),
  P (pr1 u)
fromint:= λ z : int,
(pr1 (pr1 (pr2 z)),, pr2 (pr2 z)),,
make_hfiber f (pr1 z) (pr2 (pr1 (pr2 z))): int → ∑ u : ∑ y, P y, hfiber f (pr1 u)
fromto: ∏ u : ∑ u : ∑ y, P y, hfiber f (pr1 u),
fromint (toint u) = u
isweq (hffpmap2 f P) unfold toint.
X, Y: UU
f: X → Y
P: Y → UU
int:= ∑ (x : X) (u : coconusfromt Y (f x)),
P (Preamble.pr1 u): Type
intpair:= tpair
  (λ x : X,
   ∑ u : coconusfromt Y (f x),
   P (Preamble.pr1 u)): ∏ pr1 : X,
(λ x : X,
 ∑ u : coconusfromt Y (f x),
 P (Preamble.pr1 u)) pr1
→ ∑ (x : X) (u : coconusfromt Y (f x)),
  P (Preamble.pr1 u)
toint:= λ z : ∑ u : ∑ y, P y, hfiber f (Preamble.pr1 u),
intpair (Preamble.pr1 (Preamble.pr2 z))
  (coconusfromtpair Y
     (Preamble.pr2 (Preamble.pr2 z)),,
   Preamble.pr2 (Preamble.pr1 z)): (∑ u : ∑ y, P y, hfiber f (Preamble.pr1 u))
→ ∑ (x : X) (u : coconusfromt Y (f x)),
  P (Preamble.pr1 u)
fromint:= λ z : int,
(Preamble.pr1 (Preamble.pr1 (Preamble.pr2 z)),,
 Preamble.pr2 (Preamble.pr2 z)),,
make_hfiber f (Preamble.pr1 z)
  (Preamble.pr2
     (Preamble.pr1 (Preamble.pr2 z))): int
→ ∑ u : ∑ y, P y, hfiber f (Preamble.pr1 u)
p0: Y
p1: P p0
pr1: X
pr2: f pr1 = Preamble.pr1 (p0,, p1)
fromint
  (intpair
     (Preamble.pr1
        (Preamble.pr2 ((p0,, p1),, pr1,, pr2)))
     (coconusfromtpair Y
        (Preamble.pr2
           (Preamble.pr2 ((p0,, p1),, pr1,, pr2))),,
      Preamble.pr2
        (Preamble.pr1 ((p0,, p1),, pr1,, pr2)))) =
(p0,, p1),, pr1,, pr2
X, Y: UU
f: X → Y
P: Y → UU
int:= ∑ (x : X) (u : coconusfromt Y (f x)), P (pr1 u): Type
intpair:= tpair
  (λ x : X,
   ∑ u : coconusfromt Y (f x), P (pr1 u)): ∏ pr1 : X,
(λ x : X,
 ∑ u : coconusfromt Y (f x),
 P (Preamble.pr1 u)) pr1
→ ∑ (x : X) (u : coconusfromt Y (f x)),
  P (Preamble.pr1 u)
toint:= λ z : ∑ u : ∑ y, P y, hfiber f (pr1 u),
intpair (pr1 (pr2 z))
  (coconusfromtpair Y (pr2 (pr2 z)),,
   pr2 (pr1 z)): (∑ u : ∑ y, P y, hfiber f (pr1 u))
→ ∑ (x : X) (u : coconusfromt Y (f x)),
  P (pr1 u)
fromint:= λ z : int,
(pr1 (pr1 (pr2 z)),, pr2 (pr2 z)),,
make_hfiber f (pr1 z) (pr2 (pr1 (pr2 z))): int → ∑ u : ∑ y, P y, hfiber f (pr1 u)
fromto: ∏ u : ∑ u : ∑ y, P y, hfiber f (pr1 u),
fromint (toint u) = u
isweq (hffpmap2 f P) unfold fromint.
X, Y: UU
f: X → Y
P: Y → UU
int:= ∑ (x : X) (u : coconusfromt Y (f x)),
P (Preamble.pr1 u): Type
intpair:= tpair
  (λ x : X,
   ∑ u : coconusfromt Y (f x),
   P (Preamble.pr1 u)): ∏ pr1 : X,
(λ x : X,
 ∑ u : coconusfromt Y (f x),
 P (Preamble.pr1 u)) pr1
→ ∑ (x : X) (u : coconusfromt Y (f x)),
  P (Preamble.pr1 u)
toint:= λ z : ∑ u : ∑ y, P y, hfiber f (Preamble.pr1 u),
intpair (Preamble.pr1 (Preamble.pr2 z))
  (coconusfromtpair Y
     (Preamble.pr2 (Preamble.pr2 z)),,
   Preamble.pr2 (Preamble.pr1 z)): (∑ u : ∑ y, P y, hfiber f (Preamble.pr1 u))
→ ∑ (x : X) (u : coconusfromt Y (f x)),
  P (Preamble.pr1 u)
fromint:= λ z : int,
(Preamble.pr1 (Preamble.pr1 (Preamble.pr2 z)),,
 Preamble.pr2 (Preamble.pr2 z)),,
make_hfiber f (Preamble.pr1 z)
  (Preamble.pr2
     (Preamble.pr1 (Preamble.pr2 z))): int
→ ∑ u : ∑ y, P y, hfiber f (Preamble.pr1 u)
p0: Y
p1: P p0
pr1: X
pr2: f pr1 = Preamble.pr1 (p0,, p1)
(Preamble.pr1
   (Preamble.pr1
      (Preamble.pr2
         (intpair
            (Preamble.pr1
               (Preamble.pr2 ((p0,, p1),, pr1,, pr2)))
            (coconusfromtpair Y
               (Preamble.pr2
                  (Preamble.pr2
                     ((p0,, p1),, pr1,, pr2))),,
             Preamble.pr2
               (Preamble.pr1 ((p0,, p1),, pr1,, pr2)))))),,
 Preamble.pr2
   (Preamble.pr2
      (intpair
         (Preamble.pr1
            (Preamble.pr2 ((p0,, p1),, pr1,, pr2)))
         (coconusfromtpair Y
            (Preamble.pr2
               (Preamble.pr2 ((p0,, p1),, pr1,, pr2))),,
          Preamble.pr2
            (Preamble.pr1 ((p0,, p1),, pr1,, pr2)))))),,
make_hfiber f
  (Preamble.pr1
     (intpair
        (Preamble.pr1
           (Preamble.pr2 ((p0,, p1),, pr1,, pr2)))
        (coconusfromtpair Y
           (Preamble.pr2
              (Preamble.pr2 ((p0,, p1),, pr1,, pr2))),,
         Preamble.pr2
           (Preamble.pr1 ((p0,, p1),, pr1,, pr2)))))
  (Preamble.pr2
     (Preamble.pr1
        (Preamble.pr2
           (intpair
              (Preamble.pr1
                 (Preamble.pr2 ((p0,, p1),, pr1,, pr2)))
              (coconusfromtpair Y
                 (Preamble.pr2
                    (Preamble.pr2
                       ((p0,, p1),, pr1,, pr2))),,
               Preamble.pr2
                 (Preamble.pr1 ((p0,, p1),, pr1,, pr2))))))) =
(p0,, p1),, pr1,, pr2
X, Y: UU
f: X → Y
P: Y → UU
int:= ∑ (x : X) (u : coconusfromt Y (f x)), P (pr1 u): Type
intpair:= tpair
  (λ x : X,
   ∑ u : coconusfromt Y (f x), P (pr1 u)): ∏ pr1 : X,
(λ x : X,
 ∑ u : coconusfromt Y (f x),
 P (Preamble.pr1 u)) pr1
→ ∑ (x : X) (u : coconusfromt Y (f x)),
  P (Preamble.pr1 u)
toint:= λ z : ∑ u : ∑ y, P y, hfiber f (pr1 u),
intpair (pr1 (pr2 z))
  (coconusfromtpair Y (pr2 (pr2 z)),,
   pr2 (pr1 z)): (∑ u : ∑ y, P y, hfiber f (pr1 u))
→ ∑ (x : X) (u : coconusfromt Y (f x)),
  P (pr1 u)
fromint:= λ z : int,
(pr1 (pr1 (pr2 z)),, pr2 (pr2 z)),,
make_hfiber f (pr1 z) (pr2 (pr1 (pr2 z))): int → ∑ u : ∑ y, P y, hfiber f (pr1 u)
fromto: ∏ u : ∑ u : ∑ y, P y, hfiber f (pr1 u),
fromint (toint u) = u
isweq (hffpmap2 f P) simpl.
X, Y: UU
f: X → Y
P: Y → UU
int:= ∑ (x : X) (u : coconusfromt Y (f x)),
P (Preamble.pr1 u): Type
intpair:= tpair
  (λ x : X,
   ∑ u : coconusfromt Y (f x),
   P (Preamble.pr1 u)): ∏ pr1 : X,
(λ x : X,
 ∑ u : coconusfromt Y (f x),
 P (Preamble.pr1 u)) pr1
→ ∑ (x : X) (u : coconusfromt Y (f x)),
  P (Preamble.pr1 u)
toint:= λ z : ∑ u : ∑ y, P y, hfiber f (Preamble.pr1 u),
intpair (Preamble.pr1 (Preamble.pr2 z))
  (coconusfromtpair Y
     (Preamble.pr2 (Preamble.pr2 z)),,
   Preamble.pr2 (Preamble.pr1 z)): (∑ u : ∑ y, P y, hfiber f (Preamble.pr1 u))
→ ∑ (x : X) (u : coconusfromt Y (f x)),
  P (Preamble.pr1 u)
fromint:= λ z : int,
(Preamble.pr1 (Preamble.pr1 (Preamble.pr2 z)),,
 Preamble.pr2 (Preamble.pr2 z)),,
make_hfiber f (Preamble.pr1 z)
  (Preamble.pr2
     (Preamble.pr1 (Preamble.pr2 z))): int
→ ∑ u : ∑ y, P y, hfiber f (Preamble.pr1 u)
p0: Y
p1: P p0
pr1: X
pr2: f pr1 = Preamble.pr1 (p0,, p1)
(p0,, p1),, make_hfiber f pr1 pr2 =
(p0,, p1),, pr1,, pr2
X, Y: UU
f: X → Y
P: Y → UU
int:= ∑ (x : X) (u : coconusfromt Y (f x)), P (pr1 u): Type
intpair:= tpair
  (λ x : X,
   ∑ u : coconusfromt Y (f x), P (pr1 u)): ∏ pr1 : X,
(λ x : X,
 ∑ u : coconusfromt Y (f x),
 P (Preamble.pr1 u)) pr1
→ ∑ (x : X) (u : coconusfromt Y (f x)),
  P (Preamble.pr1 u)
toint:= λ z : ∑ u : ∑ y, P y, hfiber f (pr1 u),
intpair (pr1 (pr2 z))
  (coconusfromtpair Y (pr2 (pr2 z)),,
   pr2 (pr1 z)): (∑ u : ∑ y, P y, hfiber f (pr1 u))
→ ∑ (x : X) (u : coconusfromt Y (f x)),
  P (pr1 u)
fromint:= λ z : int,
(pr1 (pr1 (pr2 z)),, pr2 (pr2 z)),,
make_hfiber f (pr1 z) (pr2 (pr1 (pr2 z))): int → ∑ u : ∑ y, P y, hfiber f (pr1 u)
fromto: ∏ u : ∑ u : ∑ y, P y, hfiber f (pr1 u),
fromint (toint u) = u
isweq (hffpmap2 f P) apply idpath.
X, Y: UU
f: X → Y
P: Y → UU
int:= ∑ (x : X) (u : coconusfromt Y (f x)), P (pr1 u): Type
intpair:= tpair
  (λ x : X,
   ∑ u : coconusfromt Y (f x), P (pr1 u)): ∏ pr1 : X,
(λ x : X,
 ∑ u : coconusfromt Y (f x),
 P (Preamble.pr1 u)) pr1
→ ∑ (x : X) (u : coconusfromt Y (f x)),
  P (Preamble.pr1 u)
toint:= λ z : ∑ u : ∑ y, P y, hfiber f (pr1 u),
intpair (pr1 (pr2 z))
  (coconusfromtpair Y (pr2 (pr2 z)),,
   pr2 (pr1 z)): (∑ u : ∑ y, P y, hfiber f (pr1 u))
→ ∑ (x : X) (u : coconusfromt Y (f x)),
  P (pr1 u)
fromint:= λ z : int,
(pr1 (pr1 (pr2 z)),, pr2 (pr2 z)),,
make_hfiber f (pr1 z) (pr2 (pr1 (pr2 z))): int → ∑ u : ∑ y, P y, hfiber f (pr1 u)
fromto: ∏ u : ∑ u : ∑ y, P y, hfiber f (pr1 u),
fromint (toint u) = u
isweq (hffpmap2 f P)

  assert (tofrom : ∏ u : int, (toint (fromint u)) = u).
X, Y: UU
f: X → Y
P: Y → UU
int:= ∑ (x : X) (u : coconusfromt Y (f x)), P (pr1 u): Type
intpair:= tpair
  (λ x : X,
   ∑ u : coconusfromt Y (f x), P (pr1 u)): ∏ pr1 : X,
(λ x : X,
 ∑ u : coconusfromt Y (f x),
 P (Preamble.pr1 u)) pr1
→ ∑ (x : X) (u : coconusfromt Y (f x)),
  P (Preamble.pr1 u)
toint:= λ z : ∑ u : ∑ y, P y, hfiber f (pr1 u),
intpair (pr1 (pr2 z))
  (coconusfromtpair Y (pr2 (pr2 z)),,
   pr2 (pr1 z)): (∑ u : ∑ y, P y, hfiber f (pr1 u))
→ ∑ (x : X) (u : coconusfromt Y (f x)),
  P (pr1 u)
fromint:= λ z : int,
(pr1 (pr1 (pr2 z)),, pr2 (pr2 z)),,
make_hfiber f (pr1 z) (pr2 (pr1 (pr2 z))): int → ∑ u : ∑ y, P y, hfiber f (pr1 u)
fromto: ∏ u : ∑ u : ∑ y, P y, hfiber f (pr1 u),
fromint (toint u) = u
∏ u : int, toint (fromint u) = u
X, Y: UU
f: X → Y
P: Y → UU
int:= ∑ (x : X) (u : coconusfromt Y (f x)), P (pr1 u): Type
intpair:= tpair
  (λ x : X,
   ∑ u : coconusfromt Y (f x), P (pr1 u)): ∏ pr1 : X,
(λ x : X,
 ∑ u : coconusfromt Y (f x),
 P (Preamble.pr1 u)) pr1
→ ∑ (x : X) (u : coconusfromt Y (f x)),
  P (Preamble.pr1 u)
toint:= λ z : ∑ u : ∑ y, P y, hfiber f (pr1 u),
intpair (pr1 (pr2 z))
  (coconusfromtpair Y (pr2 (pr2 z)),,
   pr2 (pr1 z)): (∑ u : ∑ y, P y, hfiber f (pr1 u))
→ ∑ (x : X) (u : coconusfromt Y (f x)),
  P (pr1 u)
fromint:= λ z : int,
(pr1 (pr1 (pr2 z)),, pr2 (pr2 z)),,
make_hfiber f (pr1 z) (pr2 (pr1 (pr2 z))): int → ∑ u : ∑ y, P y, hfiber f (pr1 u)
fromto: ∏ u : ∑ u : ∑ y, P y, hfiber f (pr1 u),
fromint (toint u) = u
tofrom: ∏ u : int, toint (fromint u) = u
isweq (hffpmap2 f P)
  intro.
X, Y: UU
f: X → Y
P: Y → UU
int:= ∑ (x : X) (u : coconusfromt Y (f x)), P (pr1 u): Type
intpair:= tpair
  (λ x : X,
   ∑ u : coconusfromt Y (f x), P (pr1 u)): ∏ pr1 : X,
(λ x : X,
 ∑ u : coconusfromt Y (f x),
 P (Preamble.pr1 u)) pr1
→ ∑ (x : X) (u : coconusfromt Y (f x)),
  P (Preamble.pr1 u)
toint:= λ z : ∑ u : ∑ y, P y, hfiber f (pr1 u),
intpair (pr1 (pr2 z))
  (coconusfromtpair Y (pr2 (pr2 z)),,
   pr2 (pr1 z)): (∑ u : ∑ y, P y, hfiber f (pr1 u))
→ ∑ (x : X) (u : coconusfromt Y (f x)),
  P (pr1 u)
fromint:= λ z : int,
(pr1 (pr1 (pr2 z)),, pr2 (pr2 z)),,
make_hfiber f (pr1 z) (pr2 (pr1 (pr2 z))): int → ∑ u : ∑ y, P y, hfiber f (pr1 u)
fromto: ∏ u : ∑ u : ∑ y, P y, hfiber f (pr1 u),
fromint (toint u) = u
u: int
toint (fromint u) = u
X, Y: UU
f: X → Y
P: Y → UU
int:= ∑ (x : X) (u : coconusfromt Y (f x)), P (pr1 u): Type
intpair:= tpair
  (λ x : X,
   ∑ u : coconusfromt Y (f x), P (pr1 u)): ∏ pr1 : X,
(λ x : X,
 ∑ u : coconusfromt Y (f x),
 P (Preamble.pr1 u)) pr1
→ ∑ (x : X) (u : coconusfromt Y (f x)),
  P (Preamble.pr1 u)
toint:= λ z : ∑ u : ∑ y, P y, hfiber f (pr1 u),
intpair (pr1 (pr2 z))
  (coconusfromtpair Y (pr2 (pr2 z)),,
   pr2 (pr1 z)): (∑ u : ∑ y, P y, hfiber f (pr1 u))
→ ∑ (x : X) (u : coconusfromt Y (f x)),
  P (pr1 u)
fromint:= λ z : int,
(pr1 (pr1 (pr2 z)),, pr2 (pr2 z)),,
make_hfiber f (pr1 z) (pr2 (pr1 (pr2 z))): int → ∑ u : ∑ y, P y, hfiber f (pr1 u)
fromto: ∏ u : ∑ u : ∑ y, P y, hfiber f (pr1 u),
fromint (toint u) = u
tofrom: ∏ u : int, toint (fromint u) = u
isweq (hffpmap2 f P) induction u as [ t x ].
X, Y: UU
f: X → Y
P: Y → UU
int:= ∑ (x : X) (u : coconusfromt Y (f x)), P (pr1 u): Type
intpair:= tpair
  (λ x : X,
   ∑ u : coconusfromt Y (f x), P (pr1 u)): ∏ pr1 : X,
(λ x : X,
 ∑ u : coconusfromt Y (f x),
 P (Preamble.pr1 u)) pr1
→ ∑ (x : X) (u : coconusfromt Y (f x)),
  P (Preamble.pr1 u)
toint:= λ z : ∑ u : ∑ y, P y, hfiber f (pr1 u),
intpair (pr1 (pr2 z))
  (coconusfromtpair Y (pr2 (pr2 z)),,
   pr2 (pr1 z)): (∑ u : ∑ y, P y, hfiber f (pr1 u))
→ ∑ (x : X) (u : coconusfromt Y (f x)),
  P (pr1 u)
fromint:= λ z : int,
(pr1 (pr1 (pr2 z)),, pr2 (pr2 z)),,
make_hfiber f (pr1 z) (pr2 (pr1 (pr2 z))): int → ∑ u : ∑ y, P y, hfiber f (pr1 u)
fromto: ∏ u : ∑ u : ∑ y, P y, hfiber f (pr1 u),
fromint (toint u) = u
t: X
x: ∑ u : coconusfromt Y (f t), P (pr1 u)
toint (fromint (t,, x)) = t,, x
X, Y: UU
f: X → Y
P: Y → UU
int:= ∑ (x : X) (u : coconusfromt Y (f x)), P (pr1 u): Type
intpair:= tpair
  (λ x : X,
   ∑ u : coconusfromt Y (f x), P (pr1 u)): ∏ pr1 : X,
(λ x : X,
 ∑ u : coconusfromt Y (f x),
 P (Preamble.pr1 u)) pr1
→ ∑ (x : X) (u : coconusfromt Y (f x)),
  P (Preamble.pr1 u)
toint:= λ z : ∑ u : ∑ y, P y, hfiber f (pr1 u),
intpair (pr1 (pr2 z))
  (coconusfromtpair Y (pr2 (pr2 z)),,
   pr2 (pr1 z)): (∑ u : ∑ y, P y, hfiber f (pr1 u))
→ ∑ (x : X) (u : coconusfromt Y (f x)),
  P (pr1 u)
fromint:= λ z : int,
(pr1 (pr1 (pr2 z)),, pr2 (pr2 z)),,
make_hfiber f (pr1 z) (pr2 (pr1 (pr2 z))): int → ∑ u : ∑ y, P y, hfiber f (pr1 u)
fromto: ∏ u : ∑ u : ∑ y, P y, hfiber f (pr1 u),
fromint (toint u) = u
tofrom: ∏ u : int, toint (fromint u) = u
isweq (hffpmap2 f P) induction x as [ t0 x ].
X, Y: UU
f: X → Y
P: Y → UU
int:= ∑ (x : X) (u : coconusfromt Y (f x)), P (pr1 u): Type
intpair:= tpair
  (λ x : X,
   ∑ u : coconusfromt Y (f x), P (pr1 u)): ∏ pr1 : X,
(λ x : X,
 ∑ u : coconusfromt Y (f x),
 P (Preamble.pr1 u)) pr1
→ ∑ (x : X) (u : coconusfromt Y (f x)),
  P (Preamble.pr1 u)
toint:= λ z : ∑ u : ∑ y, P y, hfiber f (pr1 u),
intpair (pr1 (pr2 z))
  (coconusfromtpair Y (pr2 (pr2 z)),,
   pr2 (pr1 z)): (∑ u : ∑ y, P y, hfiber f (pr1 u))
→ ∑ (x : X) (u : coconusfromt Y (f x)),
  P (pr1 u)
fromint:= λ z : int,
(pr1 (pr1 (pr2 z)),, pr2 (pr2 z)),,
make_hfiber f (pr1 z) (pr2 (pr1 (pr2 z))): int → ∑ u : ∑ y, P y, hfiber f (pr1 u)
fromto: ∏ u : ∑ u : ∑ y, P y, hfiber f (pr1 u),
fromint (toint u) = u
t: X
t0: coconusfromt Y (f t)
x: P (pr1 t0)
toint (fromint (t,, t0,, x)) = t,, t0,, x
X, Y: UU
f: X → Y
P: Y → UU
int:= ∑ (x : X) (u : coconusfromt Y (f x)), P (pr1 u): Type
intpair:= tpair
  (λ x : X,
   ∑ u : coconusfromt Y (f x), P (pr1 u)): ∏ pr1 : X,
(λ x : X,
 ∑ u : coconusfromt Y (f x),
 P (Preamble.pr1 u)) pr1
→ ∑ (x : X) (u : coconusfromt Y (f x)),
  P (Preamble.pr1 u)
toint:= λ z : ∑ u : ∑ y, P y, hfiber f (pr1 u),
intpair (pr1 (pr2 z))
  (coconusfromtpair Y (pr2 (pr2 z)),,
   pr2 (pr1 z)): (∑ u : ∑ y, P y, hfiber f (pr1 u))
→ ∑ (x : X) (u : coconusfromt Y (f x)),
  P (pr1 u)
fromint:= λ z : int,
(pr1 (pr1 (pr2 z)),, pr2 (pr2 z)),,
make_hfiber f (pr1 z) (pr2 (pr1 (pr2 z))): int → ∑ u : ∑ y, P y, hfiber f (pr1 u)
fromto: ∏ u : ∑ u : ∑ y, P y, hfiber f (pr1 u),
fromint (toint u) = u
tofrom: ∏ u : int, toint (fromint u) = u
isweq (hffpmap2 f P) induction t0.
X, Y: UU
f: X → Y
P: Y → UU
int:= ∑ (x : X) (u : coconusfromt Y (f x)),
P (Preamble.pr1 u): Type
intpair:= tpair
  (λ x : X,
   ∑ u : coconusfromt Y (f x),
   P (Preamble.pr1 u)): ∏ pr1 : X,
(λ x : X,
 ∑ u : coconusfromt Y (f x),
 P (Preamble.pr1 u)) pr1
→ ∑ (x : X) (u : coconusfromt Y (f x)),
  P (Preamble.pr1 u)
toint:= λ z : ∑ u : ∑ y, P y, hfiber f (Preamble.pr1 u),
intpair (Preamble.pr1 (Preamble.pr2 z))
  (coconusfromtpair Y
     (Preamble.pr2 (Preamble.pr2 z)),,
   Preamble.pr2 (Preamble.pr1 z)): (∑ u : ∑ y, P y, hfiber f (Preamble.pr1 u))
→ ∑ (x : X) (u : coconusfromt Y (f x)),
  P (Preamble.pr1 u)
fromint:= λ z : int,
(Preamble.pr1 (Preamble.pr1 (Preamble.pr2 z)),,
 Preamble.pr2 (Preamble.pr2 z)),,
make_hfiber f (Preamble.pr1 z)
  (Preamble.pr2
     (Preamble.pr1 (Preamble.pr2 z))): int
→ ∑ u : ∑ y, P y, hfiber f (Preamble.pr1 u)
fromto: ∏
u : ∑ u : ∑ y, P y, hfiber f (Preamble.pr1 u),
fromint (toint u) = u
t: X
pr1: Y
pr2: f t = pr1
x: P (Preamble.pr1 (pr1,, pr2))
toint (fromint (t,, (pr1,, pr2),, x)) =
t,, (pr1,, pr2),, x
X, Y: UU
f: X → Y
P: Y → UU
int:= ∑ (x : X) (u : coconusfromt Y (f x)), P (pr1 u): Type
intpair:= tpair
  (λ x : X,
   ∑ u : coconusfromt Y (f x), P (pr1 u)): ∏ pr1 : X,
(λ x : X,
 ∑ u : coconusfromt Y (f x),
 P (Preamble.pr1 u)) pr1
→ ∑ (x : X) (u : coconusfromt Y (f x)),
  P (Preamble.pr1 u)
toint:= λ z : ∑ u : ∑ y, P y, hfiber f (pr1 u),
intpair (pr1 (pr2 z))
  (coconusfromtpair Y (pr2 (pr2 z)),,
   pr2 (pr1 z)): (∑ u : ∑ y, P y, hfiber f (pr1 u))
→ ∑ (x : X) (u : coconusfromt Y (f x)),
  P (pr1 u)
fromint:= λ z : int,
(pr1 (pr1 (pr2 z)),, pr2 (pr2 z)),,
make_hfiber f (pr1 z) (pr2 (pr1 (pr2 z))): int → ∑ u : ∑ y, P y, hfiber f (pr1 u)
fromto: ∏ u : ∑ u : ∑ y, P y, hfiber f (pr1 u),
fromint (toint u) = u
tofrom: ∏ u : int, toint (fromint u) = u
isweq (hffpmap2 f P)
  simpl in x.
X, Y: UU
f: X → Y
P: Y → UU
int:= ∑ (x : X) (u : coconusfromt Y (f x)),
P (Preamble.pr1 u): Type
intpair:= tpair
  (λ x : X,
   ∑ u : coconusfromt Y (f x),
   P (Preamble.pr1 u)): ∏ pr1 : X,
(λ x : X,
 ∑ u : coconusfromt Y (f x),
 P (Preamble.pr1 u)) pr1
→ ∑ (x : X) (u : coconusfromt Y (f x)),
  P (Preamble.pr1 u)
toint:= λ z : ∑ u : ∑ y, P y, hfiber f (Preamble.pr1 u),
intpair (Preamble.pr1 (Preamble.pr2 z))
  (coconusfromtpair Y
     (Preamble.pr2 (Preamble.pr2 z)),,
   Preamble.pr2 (Preamble.pr1 z)): (∑ u : ∑ y, P y, hfiber f (Preamble.pr1 u))
→ ∑ (x : X) (u : coconusfromt Y (f x)),
  P (Preamble.pr1 u)
fromint:= λ z : int,
(Preamble.pr1 (Preamble.pr1 (Preamble.pr2 z)),,
 Preamble.pr2 (Preamble.pr2 z)),,
make_hfiber f (Preamble.pr1 z)
  (Preamble.pr2
     (Preamble.pr1 (Preamble.pr2 z))): int
→ ∑ u : ∑ y, P y, hfiber f (Preamble.pr1 u)
fromto: ∏
u : ∑ u : ∑ y, P y, hfiber f (Preamble.pr1 u),
fromint (toint u) = u
t: X
pr1: Y
pr2: f t = pr1
x: P pr1
toint (fromint (t,, (pr1,, pr2),, x)) =
t,, (pr1,, pr2),, x
X, Y: UU
f: X → Y
P: Y → UU
int:= ∑ (x : X) (u : coconusfromt Y (f x)), P (pr1 u): Type
intpair:= tpair
  (λ x : X,
   ∑ u : coconusfromt Y (f x), P (pr1 u)): ∏ pr1 : X,
(λ x : X,
 ∑ u : coconusfromt Y (f x),
 P (Preamble.pr1 u)) pr1
→ ∑ (x : X) (u : coconusfromt Y (f x)),
  P (Preamble.pr1 u)
toint:= λ z : ∑ u : ∑ y, P y, hfiber f (pr1 u),
intpair (pr1 (pr2 z))
  (coconusfromtpair Y (pr2 (pr2 z)),,
   pr2 (pr1 z)): (∑ u : ∑ y, P y, hfiber f (pr1 u))
→ ∑ (x : X) (u : coconusfromt Y (f x)),
  P (pr1 u)
fromint:= λ z : int,
(pr1 (pr1 (pr2 z)),, pr2 (pr2 z)),,
make_hfiber f (pr1 z) (pr2 (pr1 (pr2 z))): int → ∑ u : ∑ y, P y, hfiber f (pr1 u)
fromto: ∏ u : ∑ u : ∑ y, P y, hfiber f (pr1 u),
fromint (toint u) = u
tofrom: ∏ u : int, toint (fromint u) = u
isweq (hffpmap2 f P) simpl.
X, Y: UU
f: X → Y
P: Y → UU
int:= ∑ (x : X) (u : coconusfromt Y (f x)),
P (Preamble.pr1 u): Type
intpair:= tpair
  (λ x : X,
   ∑ u : coconusfromt Y (f x),
   P (Preamble.pr1 u)): ∏ pr1 : X,
(λ x : X,
 ∑ u : coconusfromt Y (f x),
 P (Preamble.pr1 u)) pr1
→ ∑ (x : X) (u : coconusfromt Y (f x)),
  P (Preamble.pr1 u)
toint:= λ z : ∑ u : ∑ y, P y, hfiber f (Preamble.pr1 u),
intpair (Preamble.pr1 (Preamble.pr2 z))
  (coconusfromtpair Y
     (Preamble.pr2 (Preamble.pr2 z)),,
   Preamble.pr2 (Preamble.pr1 z)): (∑ u : ∑ y, P y, hfiber f (Preamble.pr1 u))
→ ∑ (x : X) (u : coconusfromt Y (f x)),
  P (Preamble.pr1 u)
fromint:= λ z : int,
(Preamble.pr1 (Preamble.pr1 (Preamble.pr2 z)),,
 Preamble.pr2 (Preamble.pr2 z)),,
make_hfiber f (Preamble.pr1 z)
  (Preamble.pr2
     (Preamble.pr1 (Preamble.pr2 z))): int
→ ∑ u : ∑ y, P y, hfiber f (Preamble.pr1 u)
fromto: ∏
u : ∑ u : ∑ y, P y, hfiber f (Preamble.pr1 u),
fromint (toint u) = u
t: X
pr1: Y
pr2: f t = pr1
x: P pr1
toint (fromint (t,, (pr1,, pr2),, x)) =
t,, (pr1,, pr2),, x
X, Y: UU
f: X → Y
P: Y → UU
int:= ∑ (x : X) (u : coconusfromt Y (f x)), P (pr1 u): Type
intpair:= tpair
  (λ x : X,
   ∑ u : coconusfromt Y (f x), P (pr1 u)): ∏ pr1 : X,
(λ x : X,
 ∑ u : coconusfromt Y (f x),
 P (Preamble.pr1 u)) pr1
→ ∑ (x : X) (u : coconusfromt Y (f x)),
  P (Preamble.pr1 u)
toint:= λ z : ∑ u : ∑ y, P y, hfiber f (pr1 u),
intpair (pr1 (pr2 z))
  (coconusfromtpair Y (pr2 (pr2 z)),,
   pr2 (pr1 z)): (∑ u : ∑ y, P y, hfiber f (pr1 u))
→ ∑ (x : X) (u : coconusfromt Y (f x)),
  P (pr1 u)
fromint:= λ z : int,
(pr1 (pr1 (pr2 z)),, pr2 (pr2 z)),,
make_hfiber f (pr1 z) (pr2 (pr1 (pr2 z))): int → ∑ u : ∑ y, P y, hfiber f (pr1 u)
fromto: ∏ u : ∑ u : ∑ y, P y, hfiber f (pr1 u),
fromint (toint u) = u
tofrom: ∏ u : int, toint (fromint u) = u
isweq (hffpmap2 f P) unfold fromint.
X, Y: UU
f: X → Y
P: Y → UU
int:= ∑ (x : X) (u : coconusfromt Y (f x)),
P (Preamble.pr1 u): Type
intpair:= tpair
  (λ x : X,
   ∑ u : coconusfromt Y (f x),
   P (Preamble.pr1 u)): ∏ pr1 : X,
(λ x : X,
 ∑ u : coconusfromt Y (f x),
 P (Preamble.pr1 u)) pr1
→ ∑ (x : X) (u : coconusfromt Y (f x)),
  P (Preamble.pr1 u)
toint:= λ z : ∑ u : ∑ y, P y, hfiber f (Preamble.pr1 u),
intpair (Preamble.pr1 (Preamble.pr2 z))
  (coconusfromtpair Y
     (Preamble.pr2 (Preamble.pr2 z)),,
   Preamble.pr2 (Preamble.pr1 z)): (∑ u : ∑ y, P y, hfiber f (Preamble.pr1 u))
→ ∑ (x : X) (u : coconusfromt Y (f x)),
  P (Preamble.pr1 u)
fromint:= λ z : int,
(Preamble.pr1 (Preamble.pr1 (Preamble.pr2 z)),,
 Preamble.pr2 (Preamble.pr2 z)),,
make_hfiber f (Preamble.pr1 z)
  (Preamble.pr2
     (Preamble.pr1 (Preamble.pr2 z))): int
→ ∑ u : ∑ y, P y, hfiber f (Preamble.pr1 u)
fromto: ∏
u : ∑ u : ∑ y, P y, hfiber f (Preamble.pr1 u),
fromint (toint u) = u
t: X
pr1: Y
pr2: f t = pr1
x: P pr1
toint
  ((Preamble.pr1
      (Preamble.pr1
         (Preamble.pr2 (t,, (pr1,, pr2),, x))),,
    Preamble.pr2 (Preamble.pr2 (t,, (pr1,, pr2),, x))),,
   make_hfiber f (Preamble.pr1 (t,, (pr1,, pr2),, x))
     (Preamble.pr2
        (Preamble.pr1
           (Preamble.pr2 (t,, (pr1,, pr2),, x))))) =
t,, (pr1,, pr2),, x
X, Y: UU
f: X → Y
P: Y → UU
int:= ∑ (x : X) (u : coconusfromt Y (f x)), P (pr1 u): Type
intpair:= tpair
  (λ x : X,
   ∑ u : coconusfromt Y (f x), P (pr1 u)): ∏ pr1 : X,
(λ x : X,
 ∑ u : coconusfromt Y (f x),
 P (Preamble.pr1 u)) pr1
→ ∑ (x : X) (u : coconusfromt Y (f x)),
  P (Preamble.pr1 u)
toint:= λ z : ∑ u : ∑ y, P y, hfiber f (pr1 u),
intpair (pr1 (pr2 z))
  (coconusfromtpair Y (pr2 (pr2 z)),,
   pr2 (pr1 z)): (∑ u : ∑ y, P y, hfiber f (pr1 u))
→ ∑ (x : X) (u : coconusfromt Y (f x)),
  P (pr1 u)
fromint:= λ z : int,
(pr1 (pr1 (pr2 z)),, pr2 (pr2 z)),,
make_hfiber f (pr1 z) (pr2 (pr1 (pr2 z))): int → ∑ u : ∑ y, P y, hfiber f (pr1 u)
fromto: ∏ u : ∑ u : ∑ y, P y, hfiber f (pr1 u),
fromint (toint u) = u
tofrom: ∏ u : int, toint (fromint u) = u
isweq (hffpmap2 f P) unfold toint.
X, Y: UU
f: X → Y
P: Y → UU
int:= ∑ (x : X) (u : coconusfromt Y (f x)),
P (Preamble.pr1 u): Type
intpair:= tpair
  (λ x : X,
   ∑ u : coconusfromt Y (f x),
   P (Preamble.pr1 u)): ∏ pr1 : X,
(λ x : X,
 ∑ u : coconusfromt Y (f x),
 P (Preamble.pr1 u)) pr1
→ ∑ (x : X) (u : coconusfromt Y (f x)),
  P (Preamble.pr1 u)
toint:= λ z : ∑ u : ∑ y, P y, hfiber f (Preamble.pr1 u),
intpair (Preamble.pr1 (Preamble.pr2 z))
  (coconusfromtpair Y
     (Preamble.pr2 (Preamble.pr2 z)),,
   Preamble.pr2 (Preamble.pr1 z)): (∑ u : ∑ y, P y, hfiber f (Preamble.pr1 u))
→ ∑ (x : X) (u : coconusfromt Y (f x)),
  P (Preamble.pr1 u)
fromint:= λ z : int,
(Preamble.pr1 (Preamble.pr1 (Preamble.pr2 z)),,
 Preamble.pr2 (Preamble.pr2 z)),,
make_hfiber f (Preamble.pr1 z)
  (Preamble.pr2
     (Preamble.pr1 (Preamble.pr2 z))): int
→ ∑ u : ∑ y, P y, hfiber f (Preamble.pr1 u)
fromto: ∏
u : ∑ u : ∑ y, P y, hfiber f (Preamble.pr1 u),
fromint (toint u) = u
t: X
pr1: Y
pr2: f t = pr1
x: P pr1
intpair
  (Preamble.pr1
     (Preamble.pr2
        ((Preamble.pr1
            (Preamble.pr1
               (Preamble.pr2 (t,, (pr1,, pr2),, x))),,
          Preamble.pr2
            (Preamble.pr2 (t,, (pr1,, pr2),, x))),,
         make_hfiber f
           (Preamble.pr1 (t,, (pr1,, pr2),, x))
           (Preamble.pr2
              (Preamble.pr1
                 (Preamble.pr2 (t,, (pr1,, pr2),, x)))))))
  (coconusfromtpair Y
     (Preamble.pr2
        (Preamble.pr2
           ((Preamble.pr1
               (Preamble.pr1
                  (Preamble.pr2 (t,, (pr1,, pr2),, x))),,
             Preamble.pr2
               (Preamble.pr2 (t,, (pr1,, pr2),, x))),,
            make_hfiber f
              (Preamble.pr1 (t,, (pr1,, pr2),, x))
              (Preamble.pr2
                 (Preamble.pr1
                    (Preamble.pr2
                       (t,, (pr1,, pr2),, x))))))),,
   Preamble.pr2
     (Preamble.pr1
        ((Preamble.pr1
            (Preamble.pr1
               (Preamble.pr2 (t,, (pr1,, pr2),, x))),,
          Preamble.pr2
            (Preamble.pr2 (t,, (pr1,, pr2),, x))),,
         make_hfiber f
           (Preamble.pr1 (t,, (pr1,, pr2),, x))
           (Preamble.pr2
              (Preamble.pr1
                 (Preamble.pr2 (t,, (pr1,, pr2),, x))))))) =
t,, (pr1,, pr2),, x
X, Y: UU
f: X → Y
P: Y → UU
int:= ∑ (x : X) (u : coconusfromt Y (f x)), P (pr1 u): Type
intpair:= tpair
  (λ x : X,
   ∑ u : coconusfromt Y (f x), P (pr1 u)): ∏ pr1 : X,
(λ x : X,
 ∑ u : coconusfromt Y (f x),
 P (Preamble.pr1 u)) pr1
→ ∑ (x : X) (u : coconusfromt Y (f x)),
  P (Preamble.pr1 u)
toint:= λ z : ∑ u : ∑ y, P y, hfiber f (pr1 u),
intpair (pr1 (pr2 z))
  (coconusfromtpair Y (pr2 (pr2 z)),,
   pr2 (pr1 z)): (∑ u : ∑ y, P y, hfiber f (pr1 u))
→ ∑ (x : X) (u : coconusfromt Y (f x)),
  P (pr1 u)
fromint:= λ z : int,
(pr1 (pr1 (pr2 z)),, pr2 (pr2 z)),,
make_hfiber f (pr1 z) (pr2 (pr1 (pr2 z))): int → ∑ u : ∑ y, P y, hfiber f (pr1 u)
fromto: ∏ u : ∑ u : ∑ y, P y, hfiber f (pr1 u),
fromint (toint u) = u
tofrom: ∏ u : int, toint (fromint u) = u
isweq (hffpmap2 f P) simpl.
X, Y: UU
f: X → Y
P: Y → UU
int:= ∑ (x : X) (u : coconusfromt Y (f x)),
P (Preamble.pr1 u): Type
intpair:= tpair
  (λ x : X,
   ∑ u : coconusfromt Y (f x),
   P (Preamble.pr1 u)): ∏ pr1 : X,
(λ x : X,
 ∑ u : coconusfromt Y (f x),
 P (Preamble.pr1 u)) pr1
→ ∑ (x : X) (u : coconusfromt Y (f x)),
  P (Preamble.pr1 u)
toint:= λ z : ∑ u : ∑ y, P y, hfiber f (Preamble.pr1 u),
intpair (Preamble.pr1 (Preamble.pr2 z))
  (coconusfromtpair Y
     (Preamble.pr2 (Preamble.pr2 z)),,
   Preamble.pr2 (Preamble.pr1 z)): (∑ u : ∑ y, P y, hfiber f (Preamble.pr1 u))
→ ∑ (x : X) (u : coconusfromt Y (f x)),
  P (Preamble.pr1 u)
fromint:= λ z : int,
(Preamble.pr1 (Preamble.pr1 (Preamble.pr2 z)),,
 Preamble.pr2 (Preamble.pr2 z)),,
make_hfiber f (Preamble.pr1 z)
  (Preamble.pr2
     (Preamble.pr1 (Preamble.pr2 z))): int
→ ∑ u : ∑ y, P y, hfiber f (Preamble.pr1 u)
fromto: ∏
u : ∑ u : ∑ y, P y, hfiber f (Preamble.pr1 u),
fromint (toint u) = u
t: X
pr1: Y
pr2: f t = pr1
x: P pr1
intpair t (coconusfromtpair Y pr2,, x) =
t,, (pr1,, pr2),, x
X, Y: UU
f: X → Y
P: Y → UU
int:= ∑ (x : X) (u : coconusfromt Y (f x)), P (pr1 u): Type
intpair:= tpair
  (λ x : X,
   ∑ u : coconusfromt Y (f x), P (pr1 u)): ∏ pr1 : X,
(λ x : X,
 ∑ u : coconusfromt Y (f x),
 P (Preamble.pr1 u)) pr1
→ ∑ (x : X) (u : coconusfromt Y (f x)),
  P (Preamble.pr1 u)
toint:= λ z : ∑ u : ∑ y, P y, hfiber f (pr1 u),
intpair (pr1 (pr2 z))
  (coconusfromtpair Y (pr2 (pr2 z)),,
   pr2 (pr1 z)): (∑ u : ∑ y, P y, hfiber f (pr1 u))
→ ∑ (x : X) (u : coconusfromt Y (f x)),
  P (pr1 u)
fromint:= λ z : int,
(pr1 (pr1 (pr2 z)),, pr2 (pr2 z)),,
make_hfiber f (pr1 z) (pr2 (pr1 (pr2 z))): int → ∑ u : ∑ y, P y, hfiber f (pr1 u)
fromto: ∏ u : ∑ u : ∑ y, P y, hfiber f (pr1 u),
fromint (toint u) = u
tofrom: ∏ u : int, toint (fromint u) = u
isweq (hffpmap2 f P) apply idpath.
X, Y: UU
f: X → Y
P: Y → UU
int:= ∑ (x : X) (u : coconusfromt Y (f x)), P (pr1 u): Type
intpair:= tpair
  (λ x : X,
   ∑ u : coconusfromt Y (f x), P (pr1 u)): ∏ pr1 : X,
(λ x : X,
 ∑ u : coconusfromt Y (f x),
 P (Preamble.pr1 u)) pr1
→ ∑ (x : X) (u : coconusfromt Y (f x)),
  P (Preamble.pr1 u)
toint:= λ z : ∑ u : ∑ y, P y, hfiber f (pr1 u),
intpair (pr1 (pr2 z))
  (coconusfromtpair Y (pr2 (pr2 z)),,
   pr2 (pr1 z)): (∑ u : ∑ y, P y, hfiber f (pr1 u))
→ ∑ (x : X) (u : coconusfromt Y (f x)),
  P (pr1 u)
fromint:= λ z : int,
(pr1 (pr1 (pr2 z)),, pr2 (pr2 z)),,
make_hfiber f (pr1 z) (pr2 (pr1 (pr2 z))): int → ∑ u : ∑ y, P y, hfiber f (pr1 u)
fromto: ∏ u : ∑ u : ∑ y, P y, hfiber f (pr1 u),
fromint (toint u) = u
tofrom: ∏ u : int, toint (fromint u) = u
isweq (hffpmap2 f P)

  assert (is : isweq toint).
X, Y: UU
f: X → Y
P: Y → UU
int:= ∑ (x : X) (u : coconusfromt Y (f x)), P (pr1 u): Type
intpair:= tpair
  (λ x : X,
   ∑ u : coconusfromt Y (f x), P (pr1 u)): ∏ pr1 : X,
(λ x : X,
 ∑ u : coconusfromt Y (f x),
 P (Preamble.pr1 u)) pr1
→ ∑ (x : X) (u : coconusfromt Y (f x)),
  P (Preamble.pr1 u)
toint:= λ z : ∑ u : ∑ y, P y, hfiber f (pr1 u),
intpair (pr1 (pr2 z))
  (coconusfromtpair Y (pr2 (pr2 z)),,
   pr2 (pr1 z)): (∑ u : ∑ y, P y, hfiber f (pr1 u))
→ ∑ (x : X) (u : coconusfromt Y (f x)),
  P (pr1 u)
fromint:= λ z : int,
(pr1 (pr1 (pr2 z)),, pr2 (pr2 z)),,
make_hfiber f (pr1 z) (pr2 (pr1 (pr2 z))): int → ∑ u : ∑ y, P y, hfiber f (pr1 u)
fromto: ∏ u : ∑ u : ∑ y, P y, hfiber f (pr1 u),
fromint (toint u) = u
tofrom: ∏ u : int, toint (fromint u) = u
isweq toint
X, Y: UU
f: X → Y
P: Y → UU
int:= ∑ (x : X) (u : coconusfromt Y (f x)), P (pr1 u): Type
intpair:= tpair
  (λ x : X,
   ∑ u : coconusfromt Y (f x), P (pr1 u)): ∏ pr1 : X,
(λ x : X,
 ∑ u : coconusfromt Y (f x),
 P (Preamble.pr1 u)) pr1
→ ∑ (x : X) (u : coconusfromt Y (f x)),
  P (Preamble.pr1 u)
toint:= λ z : ∑ u : ∑ y, P y, hfiber f (pr1 u),
intpair (pr1 (pr2 z))
  (coconusfromtpair Y (pr2 (pr2 z)),,
   pr2 (pr1 z)): (∑ u : ∑ y, P y, hfiber f (pr1 u))
→ ∑ (x : X) (u : coconusfromt Y (f x)),
  P (pr1 u)
fromint:= λ z : int,
(pr1 (pr1 (pr2 z)),, pr2 (pr2 z)),,
make_hfiber f (pr1 z) (pr2 (pr1 (pr2 z))): int → ∑ u : ∑ y, P y, hfiber f (pr1 u)
fromto: ∏ u : ∑ u : ∑ y, P y, hfiber f (pr1 u),
fromint (toint u) = u
tofrom: ∏ u : int, toint (fromint u) = u
is: isweq toint
isweq (hffpmap2 f P) apply (isweq_iso toint fromint fromto tofrom).
X, Y: UU
f: X → Y
P: Y → UU
int:= ∑ (x : X) (u : coconusfromt Y (f x)), P (pr1 u): Type
intpair:= tpair
  (λ x : X,
   ∑ u : coconusfromt Y (f x), P (pr1 u)): ∏ pr1 : X,
(λ x : X,
 ∑ u : coconusfromt Y (f x),
 P (Preamble.pr1 u)) pr1
→ ∑ (x : X) (u : coconusfromt Y (f x)),
  P (Preamble.pr1 u)
toint:= λ z : ∑ u : ∑ y, P y, hfiber f (pr1 u),
intpair (pr1 (pr2 z))
  (coconusfromtpair Y (pr2 (pr2 z)),,
   pr2 (pr1 z)): (∑ u : ∑ y, P y, hfiber f (pr1 u))
→ ∑ (x : X) (u : coconusfromt Y (f x)),
  P (pr1 u)
fromint:= λ z : int,
(pr1 (pr1 (pr2 z)),, pr2 (pr2 z)),,
make_hfiber f (pr1 z) (pr2 (pr1 (pr2 z))): int → ∑ u : ∑ y, P y, hfiber f (pr1 u)
fromto: ∏ u : ∑ u : ∑ y, P y, hfiber f (pr1 u),
fromint (toint u) = u
tofrom: ∏ u : int, toint (fromint u) = u
is: isweq toint
isweq (hffpmap2 f P)

  clear tofrom.
X, Y: UU
f: X → Y
P: Y → UU
int:= ∑ (x : X) (u : coconusfromt Y (f x)), P (pr1 u): Type
intpair:= tpair
  (λ x : X,
   ∑ u : coconusfromt Y (f x), P (pr1 u)): ∏ pr1 : X,
(λ x : X,
 ∑ u : coconusfromt Y (f x),
 P (Preamble.pr1 u)) pr1
→ ∑ (x : X) (u : coconusfromt Y (f x)),
  P (Preamble.pr1 u)
toint:= λ z : ∑ u : ∑ y, P y, hfiber f (pr1 u),
intpair (pr1 (pr2 z))
  (coconusfromtpair Y (pr2 (pr2 z)),,
   pr2 (pr1 z)): (∑ u : ∑ y, P y, hfiber f (pr1 u))
→ ∑ (x : X) (u : coconusfromt Y (f x)),
  P (pr1 u)
fromint:= λ z : int,
(pr1 (pr1 (pr2 z)),, pr2 (pr2 z)),,
make_hfiber f (pr1 z) (pr2 (pr1 (pr2 z))): int → ∑ u : ∑ y, P y, hfiber f (pr1 u)
fromto: ∏ u : ∑ u : ∑ y, P y, hfiber f (pr1 u),
fromint (toint u) = u
is: isweq toint
isweq (hffpmap2 f P) clear fromto.
X, Y: UU
f: X → Y
P: Y → UU
int:= ∑ (x : X) (u : coconusfromt Y (f x)), P (pr1 u): Type
intpair:= tpair
  (λ x : X,
   ∑ u : coconusfromt Y (f x), P (pr1 u)): ∏ pr1 : X,
(λ x : X,
 ∑ u : coconusfromt Y (f x),
 P (Preamble.pr1 u)) pr1
→ ∑ (x : X) (u : coconusfromt Y (f x)),
  P (Preamble.pr1 u)
toint:= λ z : ∑ u : ∑ y, P y, hfiber f (pr1 u),
intpair (pr1 (pr2 z))
  (coconusfromtpair Y (pr2 (pr2 z)),,
   pr2 (pr1 z)): (∑ u : ∑ y, P y, hfiber f (pr1 u))
→ ∑ (x : X) (u : coconusfromt Y (f x)),
  P (pr1 u)
fromint:= λ z : int,
(pr1 (pr1 (pr2 z)),, pr2 (pr2 z)),,
make_hfiber f (pr1 z) (pr2 (pr1 (pr2 z))): int → ∑ u : ∑ y, P y, hfiber f (pr1 u)
is: isweq toint
isweq (hffpmap2 f P) clear fromint.
X, Y: UU
f: X → Y
P: Y → UU
int:= ∑ (x : X) (u : coconusfromt Y (f x)), P (pr1 u): Type
intpair:= tpair
  (λ x : X,
   ∑ u : coconusfromt Y (f x), P (pr1 u)): ∏ pr1 : X,
(λ x : X,
 ∑ u : coconusfromt Y (f x),
 P (Preamble.pr1 u)) pr1
→ ∑ (x : X) (u : coconusfromt Y (f x)),
  P (Preamble.pr1 u)
toint:= λ z : ∑ u : ∑ y, P y, hfiber f (pr1 u),
intpair (pr1 (pr2 z))
  (coconusfromtpair Y (pr2 (pr2 z)),,
   pr2 (pr1 z)): (∑ u : ∑ y, P y, hfiber f (pr1 u))
→ ∑ (x : X) (u : coconusfromt Y (f x)),
  P (pr1 u)
is: isweq toint
isweq (hffpmap2 f P)
  set (h := λ u : total2 (λ x : X, P (f x)), toint ((hffpmap2 f P) u)).
X, Y: UU
f: X → Y
P: Y → UU
int:= ∑ (x : X) (u : coconusfromt Y (f x)), P (pr1 u): Type
intpair:= tpair
  (λ x : X,
   ∑ u : coconusfromt Y (f x), P (pr1 u)): ∏ pr1 : X,
(λ x : X,
 ∑ u : coconusfromt Y (f x),
 P (Preamble.pr1 u)) pr1
→ ∑ (x : X) (u : coconusfromt Y (f x)),
  P (Preamble.pr1 u)
toint:= λ z : ∑ u : ∑ y, P y, hfiber f (pr1 u),
intpair (pr1 (pr2 z))
  (coconusfromtpair Y (pr2 (pr2 z)),,
   pr2 (pr1 z)): (∑ u : ∑ y, P y, hfiber f (pr1 u))
→ ∑ (x : X) (u : coconusfromt Y (f x)),
  P (pr1 u)
is: isweq toint
h:= λ u : ∑ x : X, P (f x), toint (hffpmap2 f P u): (∑ x : X, P (f x))
→ ∑ (x : X) (u : coconusfromt Y (f x)), P (pr1 u)
isweq (hffpmap2 f P)
  simpl in h.
X, Y: UU
f: X → Y
P: Y → UU
int:= ∑ (x : X) (u : coconusfromt Y (f x)), P (pr1 u): Type
intpair:= tpair
  (λ x : X,
   ∑ u : coconusfromt Y (f x), P (pr1 u)): ∏ pr1 : X,
(λ x : X,
 ∑ u : coconusfromt Y (f x),
 P (Preamble.pr1 u)) pr1
→ ∑ (x : X) (u : coconusfromt Y (f x)),
  P (Preamble.pr1 u)
toint:= λ z : ∑ u : ∑ y, P y, hfiber f (pr1 u),
intpair (pr1 (pr2 z))
  (coconusfromtpair Y (pr2 (pr2 z)),,
   pr2 (pr1 z)): (∑ u : ∑ y, P y, hfiber f (pr1 u))
→ ∑ (x : X) (u : coconusfromt Y (f x)),
  P (pr1 u)
is: isweq toint
h:= λ u : ∑ x : X, P (f x), toint (hffpmap2 f P u): (∑ x : X, P (f x))
→ ∑ (x : X) (u : coconusfromt Y (f x)), P (pr1 u)
isweq (hffpmap2 f P)

  assert (l1 : ∏ x : X, isweq (λ p: P (f x),
                                 tpair (λ u : coconusfromt _ (f x), P (pr1 u))
                                       (coconusfromtpair _ (idpath (f x))) p)).
X, Y: UU
f: X → Y
P: Y → UU
int:= ∑ (x : X) (u : coconusfromt Y (f x)), P (pr1 u): Type
intpair:= tpair
  (λ x : X,
   ∑ u : coconusfromt Y (f x), P (pr1 u)): ∏ pr1 : X,
(λ x : X,
 ∑ u : coconusfromt Y (f x),
 P (Preamble.pr1 u)) pr1
→ ∑ (x : X) (u : coconusfromt Y (f x)),
  P (Preamble.pr1 u)
toint:= λ z : ∑ u : ∑ y, P y, hfiber f (pr1 u),
intpair (pr1 (pr2 z))
  (coconusfromtpair Y (pr2 (pr2 z)),,
   pr2 (pr1 z)): (∑ u : ∑ y, P y, hfiber f (pr1 u))
→ ∑ (x : X) (u : coconusfromt Y (f x)),
  P (pr1 u)
is: isweq toint
h:= λ u : ∑ x : X, P (f x), toint (hffpmap2 f P u): (∑ x : X, P (f x))
→ ∑ (x : X) (u : coconusfromt Y (f x)), P (pr1 u)
∏ x : X,
isweq
  (λ p : P (f x),
   coconusfromtpair Y (idpath (f x)),, p)
X, Y: UU
f: X → Y
P: Y → UU
int:= ∑ (x : X) (u : coconusfromt Y (f x)), P (pr1 u): Type
intpair:= tpair
  (λ x : X,
   ∑ u : coconusfromt Y (f x), P (pr1 u)): ∏ pr1 : X,
(λ x : X,
 ∑ u : coconusfromt Y (f x),
 P (Preamble.pr1 u)) pr1
→ ∑ (x : X) (u : coconusfromt Y (f x)),
  P (Preamble.pr1 u)
toint:= λ z : ∑ u : ∑ y, P y, hfiber f (pr1 u),
intpair (pr1 (pr2 z))
  (coconusfromtpair Y (pr2 (pr2 z)),,
   pr2 (pr1 z)): (∑ u : ∑ y, P y, hfiber f (pr1 u))
→ ∑ (x : X) (u : coconusfromt Y (f x)),
  P (pr1 u)
is: isweq toint
h:= λ u : ∑ x : X, P (f x), toint (hffpmap2 f P u): (∑ x : X, P (f x))
→ ∑ (x : X) (u : coconusfromt Y (f x)), P (pr1 u)
l1: ∏ x : X,
isweq
  (λ p : P (f x),
   coconusfromtpair Y (idpath (f x)),, p)
isweq (hffpmap2 f P)
  intro.
X, Y: UU
f: X → Y
P: Y → UU
int:= ∑ (x : X) (u : coconusfromt Y (f x)), P (pr1 u): Type
intpair:= tpair
  (λ x : X,
   ∑ u : coconusfromt Y (f x), P (pr1 u)): ∏ pr1 : X,
(λ x : X,
 ∑ u : coconusfromt Y (f x),
 P (Preamble.pr1 u)) pr1
→ ∑ (x : X) (u : coconusfromt Y (f x)),
  P (Preamble.pr1 u)
toint:= λ z : ∑ u : ∑ y, P y, hfiber f (pr1 u),
intpair (pr1 (pr2 z))
  (coconusfromtpair Y (pr2 (pr2 z)),,
   pr2 (pr1 z)): (∑ u : ∑ y, P y, hfiber f (pr1 u))
→ ∑ (x : X) (u : coconusfromt Y (f x)),
  P (pr1 u)
is: isweq toint
h:= λ u : ∑ x : X, P (f x), toint (hffpmap2 f P u): (∑ x : X, P (f x))
→ ∑ (x : X) (u : coconusfromt Y (f x)), P (pr1 u)
x: X
isweq
  (λ p : P (f x),
   coconusfromtpair Y (idpath (f x)),, p)
X, Y: UU
f: X → Y
P: Y → UU
int:= ∑ (x : X) (u : coconusfromt Y (f x)), P (pr1 u): Type
intpair:= tpair
  (λ x : X,
   ∑ u : coconusfromt Y (f x), P (pr1 u)): ∏ pr1 : X,
(λ x : X,
 ∑ u : coconusfromt Y (f x),
 P (Preamble.pr1 u)) pr1
→ ∑ (x : X) (u : coconusfromt Y (f x)),
  P (Preamble.pr1 u)
toint:= λ z : ∑ u : ∑ y, P y, hfiber f (pr1 u),
intpair (pr1 (pr2 z))
  (coconusfromtpair Y (pr2 (pr2 z)),,
   pr2 (pr1 z)): (∑ u : ∑ y, P y, hfiber f (pr1 u))
→ ∑ (x : X) (u : coconusfromt Y (f x)),
  P (pr1 u)
is: isweq toint
h:= λ u : ∑ x : X, P (f x), toint (hffpmap2 f P u): (∑ x : X, P (f x))
→ ∑ (x : X) (u : coconusfromt Y (f x)), P (pr1 u)
l1: ∏ x : X,
isweq
  (λ p : P (f x),
   coconusfromtpair Y (idpath (f x)),, p)
isweq (hffpmap2 f P) apply (centralfiber P (f x)).
X, Y: UU
f: X → Y
P: Y → UU
int:= ∑ (x : X) (u : coconusfromt Y (f x)), P (pr1 u): Type
intpair:= tpair
  (λ x : X,
   ∑ u : coconusfromt Y (f x), P (pr1 u)): ∏ pr1 : X,
(λ x : X,
 ∑ u : coconusfromt Y (f x),
 P (Preamble.pr1 u)) pr1
→ ∑ (x : X) (u : coconusfromt Y (f x)),
  P (Preamble.pr1 u)
toint:= λ z : ∑ u : ∑ y, P y, hfiber f (pr1 u),
intpair (pr1 (pr2 z))
  (coconusfromtpair Y (pr2 (pr2 z)),,
   pr2 (pr1 z)): (∑ u : ∑ y, P y, hfiber f (pr1 u))
→ ∑ (x : X) (u : coconusfromt Y (f x)),
  P (pr1 u)
is: isweq toint
h:= λ u : ∑ x : X, P (f x), toint (hffpmap2 f P u): (∑ x : X, P (f x))
→ ∑ (x : X) (u : coconusfromt Y (f x)), P (pr1 u)
l1: ∏ x : X,
isweq
  (λ p : P (f x),
   coconusfromtpair Y (idpath (f x)),, p)
isweq (hffpmap2 f P)

  assert (X0 : isweq h).
X, Y: UU
f: X → Y
P: Y → UU
int:= ∑ (x : X) (u : coconusfromt Y (f x)), P (pr1 u): Type
intpair:= tpair
  (λ x : X,
   ∑ u : coconusfromt Y (f x), P (pr1 u)): ∏ pr1 : X,
(λ x : X,
 ∑ u : coconusfromt Y (f x),
 P (Preamble.pr1 u)) pr1
→ ∑ (x : X) (u : coconusfromt Y (f x)),
  P (Preamble.pr1 u)
toint:= λ z : ∑ u : ∑ y, P y, hfiber f (pr1 u),
intpair (pr1 (pr2 z))
  (coconusfromtpair Y (pr2 (pr2 z)),,
   pr2 (pr1 z)): (∑ u : ∑ y, P y, hfiber f (pr1 u))
→ ∑ (x : X) (u : coconusfromt Y (f x)),
  P (pr1 u)
is: isweq toint
h:= λ u : ∑ x : X, P (f x), toint (hffpmap2 f P u): (∑ x : X, P (f x))
→ ∑ (x : X) (u : coconusfromt Y (f x)), P (pr1 u)
l1: ∏ x : X,
isweq
  (λ p : P (f x),
   coconusfromtpair Y (idpath (f x)),, p)
isweq h
X, Y: UU
f: X → Y
P: Y → UU
int:= ∑ (x : X) (u : coconusfromt Y (f x)), P (pr1 u): Type
intpair:= tpair
  (λ x : X,
   ∑ u : coconusfromt Y (f x), P (pr1 u)): ∏ pr1 : X,
(λ x : X,
 ∑ u : coconusfromt Y (f x),
 P (Preamble.pr1 u)) pr1
→ ∑ (x : X) (u : coconusfromt Y (f x)),
  P (Preamble.pr1 u)
toint:= λ z : ∑ u : ∑ y, P y, hfiber f (pr1 u),
intpair (pr1 (pr2 z))
  (coconusfromtpair Y (pr2 (pr2 z)),,
   pr2 (pr1 z)): (∑ u : ∑ y, P y, hfiber f (pr1 u))
→ ∑ (x : X) (u : coconusfromt Y (f x)),
  P (pr1 u)
is: isweq toint
h:= λ u : ∑ x : X, P (f x), toint (hffpmap2 f P u): (∑ x : X, P (f x))
→ ∑ (x : X) (u : coconusfromt Y (f x)), P (pr1 u)
l1: ∏ x : X,
isweq
  (λ p : P (f x),
   coconusfromtpair Y (idpath (f x)),, p)
X0: isweq h
isweq (hffpmap2 f P)
  apply (isweqfibtototal
           (λ x : X, P (f x))
           (λ x : X, total2 (λ u : coconusfromt _ (f x), P (pr1 u)))
           (λ x : X, make_weq _ (l1 x))).
X, Y: UU
f: X → Y
P: Y → UU
int:= ∑ (x : X) (u : coconusfromt Y (f x)), P (pr1 u): Type
intpair:= tpair
  (λ x : X,
   ∑ u : coconusfromt Y (f x), P (pr1 u)): ∏ pr1 : X,
(λ x : X,
 ∑ u : coconusfromt Y (f x),
 P (Preamble.pr1 u)) pr1
→ ∑ (x : X) (u : coconusfromt Y (f x)),
  P (Preamble.pr1 u)
toint:= λ z : ∑ u : ∑ y, P y, hfiber f (pr1 u),
intpair (pr1 (pr2 z))
  (coconusfromtpair Y (pr2 (pr2 z)),,
   pr2 (pr1 z)): (∑ u : ∑ y, P y, hfiber f (pr1 u))
→ ∑ (x : X) (u : coconusfromt Y (f x)),
  P (pr1 u)
is: isweq toint
h:= λ u : ∑ x : X, P (f x), toint (hffpmap2 f P u): (∑ x : X, P (f x))
→ ∑ (x : X) (u : coconusfromt Y (f x)), P (pr1 u)
l1: ∏ x : X,
isweq
  (λ p : P (f x),
   coconusfromtpair Y (idpath (f x)),, p)
X0: isweq h
isweq (hffpmap2 f P)

  apply (twooutof3a (hffpmap2 f P) toint X0 is).
Defined.

(** *** Homotopy fibers of [ fpmap ] *)

Definition hfiberfpmap {X Y : UU} (f : X -> Y) (P : Y -> UU) (yp : total2 P) :
  hfiber (fpmap f P) yp -> hfiber f (pr1 yp).
X, Y: UU
f: X → Y
P: Y → UU
yp: ∑ y, P y
hfiber (fpmap f P) yp → hfiber f (pr1 yp)
Proof.
X, Y: UU
f: X → Y
P: Y → UU
yp: ∑ y, P y
hfiber (fpmap f P) yp → hfiber f (pr1 yp)
  intros X0.
X, Y: UU
f: X → Y
P: Y → UU
yp: ∑ y, P y
X0: hfiber (fpmap f P) yp
hfiber f (pr1 yp)
  set (int1:= hfibersgftog (hffpmap2 f P)
                           (λ u : (∑ u : total2 P, hfiber f (pr1  u)),
                                  (pr1 u)) yp).
X, Y: UU
f: X → Y
P: Y → UU
yp: ∑ y, P y
X0: hfiber (fpmap f P) yp
int1:= hfibersgftog (hffpmap2 f P) (λ u : ∑ u : ∑ y, P y, hfiber f (pr1 u), pr1 u)
yp: hfiber
  ((λ u : ∑ u : ∑ y, P y, hfiber f (pr1 u),
    pr1 u) ∘ hffpmap2 f P) yp
→ hfiber
    (λ u : ∑ u : ∑ y, P y, hfiber f (pr1 u),
     pr1 u) yp
hfiber f (pr1 yp)
  set (phi := invezmappr1 (λ u:total2 P, hfiber f (pr1 u)) yp).
X, Y: UU
f: X → Y
P: Y → UU
yp: ∑ y, P y
X0: hfiber (fpmap f P) yp
int1:= hfibersgftog (hffpmap2 f P)
  (λ u : ∑ u : ∑ y, P y, hfiber f (pr1 u), pr1 u)
  yp: hfiber
  ((λ u : ∑ u : ∑ y, P y, hfiber f (pr1 u),
    pr1 u) ∘ hffpmap2 f P) yp
→ hfiber
    (λ u : ∑ u : ∑ y, P y, hfiber f (pr1 u),
     pr1 u) yp
phi:= invezmappr1 (λ u : ∑ y, P y, hfiber f (pr1 u)) yp: hfiber pr1 yp
→ (λ u : ∑ y, P y, hfiber f (pr1 u)) yp
hfiber f (pr1 yp)
  apply (phi (int1 X0)).
Defined.


Theorem isweqhfiberfp {X Y : UU} (f : X -> Y) (P : Y -> UU) (yp : total2 P) :
  isweq (hfiberfpmap f P yp).
X, Y: UU
f: X → Y
P: Y → UU
yp: ∑ y, P y
isweq (hfiberfpmap f P yp)
Proof.
X, Y: UU
f: X → Y
P: Y → UU
yp: ∑ y, P y
isweq (hfiberfpmap f P yp)
  intros.
X, Y: UU
f: X → Y
P: Y → UU
yp: ∑ y, P y
isweq (hfiberfpmap f P yp)

  set (int1 := hfibersgftog
                 (hffpmap2  f P)
                 (λ u : (total2 (λ u : total2 P, hfiber f (pr1 u))), (pr1 u))
                 yp).
X, Y: UU
f: X → Y
P: Y → UU
yp: ∑ y, P y
int1:= hfibersgftog (hffpmap2 f P) (λ u : ∑ u : ∑ y, P y, hfiber f (pr1 u), pr1 u)
yp: hfiber
  ((λ u : ∑ u : ∑ y, P y, hfiber f (pr1 u),
    pr1 u) ∘ hffpmap2 f P) yp
→ hfiber
    (λ u : ∑ u : ∑ y, P y, hfiber f (pr1 u),
     pr1 u) yp
isweq (hfiberfpmap f P yp)
  assert (is1 : isweq int1).
X, Y: UU
f: X → Y
P: Y → UU
yp: ∑ y, P y
int1:= hfibersgftog (hffpmap2 f P)
  (λ u : ∑ u : ∑ y, P y, hfiber f (pr1 u), pr1 u)
  yp: hfiber
  ((λ u : ∑ u : ∑ y, P y, hfiber f (pr1 u),
    pr1 u) ∘ hffpmap2 f P) yp
→ hfiber
    (λ u : ∑ u : ∑ y, P y, hfiber f (pr1 u),
     pr1 u) yp
isweq int1
X, Y: UU
f: X → Y
P: Y → UU
yp: ∑ y, P y
int1:= hfibersgftog (hffpmap2 f P)
  (λ u : ∑ u : ∑ y, P y, hfiber f (pr1 u), pr1 u)
  yp: hfiber
  ((λ u : ∑ u : ∑ y, P y, hfiber f (pr1 u),
    pr1 u) ∘ hffpmap2 f P) yp
→ hfiber
    (λ u : ∑ u : ∑ y, P y, hfiber f (pr1 u),
     pr1 u) yp
is1: isweq int1
isweq (hfiberfpmap f P yp) simpl in int1.
X, Y: UU
f: X → Y
P: Y → UU
yp: ∑ y, P y
int1:= hfibersgftog (hffpmap2 f P)
  (λ u : ∑ u : ∑ y, P y, hfiber f (pr1 u), pr1 u)
  yp: hfiber
  ((λ u : ∑ u : ∑ y, P y, hfiber f (pr1 u),
    pr1 u) ∘ hffpmap2 f P) yp
→ hfiber
    (λ u : ∑ u : ∑ y, P y, hfiber f (pr1 u),
     pr1 u) yp
isweq int1
X, Y: UU
f: X → Y
P: Y → UU
yp: ∑ y, P y
int1:= hfibersgftog (hffpmap2 f P)
  (λ u : ∑ u : ∑ y, P y, hfiber f (pr1 u), pr1 u)
  yp: hfiber
  ((λ u : ∑ u : ∑ y, P y, hfiber f (pr1 u),
    pr1 u) ∘ hffpmap2 f P) yp
→ hfiber
    (λ u : ∑ u : ∑ y, P y, hfiber f (pr1 u),
     pr1 u) yp
is1: isweq int1
isweq (hfiberfpmap f P yp)
  apply (pr2 (weqhfibersgwtog
                (make_weq _ (isweqhff f P))
                (λ u : total2 (λ u : total2 P, hfiber f (pr1 u)), pr1 u) yp)).
X, Y: UU
f: X → Y
P: Y → UU
yp: ∑ y, P y
int1:= hfibersgftog (hffpmap2 f P)
  (λ u : ∑ u : ∑ y, P y, hfiber f (pr1 u), pr1 u)
  yp: hfiber
  ((λ u : ∑ u : ∑ y, P y, hfiber f (pr1 u),
    pr1 u) ∘ hffpmap2 f P) yp
→ hfiber
    (λ u : ∑ u : ∑ y, P y, hfiber f (pr1 u),
     pr1 u) yp
is1: isweq int1
isweq (hfiberfpmap f P yp)

  set (phi := invezmappr1 (λ u : total2 P, hfiber f (pr1 u)) yp).
X, Y: UU
f: X → Y
P: Y → UU
yp: ∑ y, P y
int1:= hfibersgftog (hffpmap2 f P)
  (λ u : ∑ u : ∑ y, P y, hfiber f (pr1 u), pr1 u)
  yp: hfiber
  ((λ u : ∑ u : ∑ y, P y, hfiber f (pr1 u),
    pr1 u) ∘ hffpmap2 f P) yp
→ hfiber
    (λ u : ∑ u : ∑ y, P y, hfiber f (pr1 u),
     pr1 u) yp
is1: isweq int1
phi:= invezmappr1 (λ u : ∑ y, P y, hfiber f (pr1 u)) yp: hfiber pr1 yp
→ (λ u : ∑ y, P y, hfiber f (pr1 u)) yp
isweq (hfiberfpmap f P yp)
  assert (is2 : isweq phi).
X, Y: UU
f: X → Y
P: Y → UU
yp: ∑ y, P y
int1:= hfibersgftog (hffpmap2 f P)
  (λ u : ∑ u : ∑ y, P y, hfiber f (pr1 u), pr1 u)
  yp: hfiber
  ((λ u : ∑ u : ∑ y, P y, hfiber f (pr1 u),
    pr1 u) ∘ hffpmap2 f P) yp
→ hfiber
    (λ u : ∑ u : ∑ y, P y, hfiber f (pr1 u),
     pr1 u) yp
is1: isweq int1
phi:= invezmappr1 (λ u : ∑ y, P y, hfiber f (pr1 u)) yp: hfiber pr1 yp
→ (λ u : ∑ y, P y, hfiber f (pr1 u)) yp
isweq phi
X, Y: UU
f: X → Y
P: Y → UU
yp: ∑ y, P y
int1:= hfibersgftog (hffpmap2 f P)
  (λ u : ∑ u : ∑ y, P y, hfiber f (pr1 u), pr1 u)
  yp: hfiber
  ((λ u : ∑ u : ∑ y, P y, hfiber f (pr1 u),
    pr1 u) ∘ hffpmap2 f P) yp
→ hfiber
    (λ u : ∑ u : ∑ y, P y, hfiber f (pr1 u),
     pr1 u) yp
is1: isweq int1
phi:= invezmappr1 (λ u : ∑ y, P y, hfiber f (pr1 u)) yp: hfiber pr1 yp
→ (λ u : ∑ y, P y, hfiber f (pr1 u)) yp
is2: isweq phi
isweq (hfiberfpmap f P yp)
  apply (pr2 (invweq (ezweqpr1 (λ u : total2 P, hfiber f (pr1 u)) yp))).
X, Y: UU
f: X → Y
P: Y → UU
yp: ∑ y, P y
int1:= hfibersgftog (hffpmap2 f P)
  (λ u : ∑ u : ∑ y, P y, hfiber f (pr1 u), pr1 u)
  yp: hfiber
  ((λ u : ∑ u : ∑ y, P y, hfiber f (pr1 u),
    pr1 u) ∘ hffpmap2 f P) yp
→ hfiber
    (λ u : ∑ u : ∑ y, P y, hfiber f (pr1 u),
     pr1 u) yp
is1: isweq int1
phi:= invezmappr1 (λ u : ∑ y, P y, hfiber f (pr1 u)) yp: hfiber pr1 yp
→ (λ u : ∑ y, P y, hfiber f (pr1 u)) yp
is2: isweq phi
isweq (hfiberfpmap f P yp)

  apply (twooutof3c int1 phi is1 is2).
Defined.

(** *** The [ fpmap ] from a weak equivalence is a weak equivalence *)

Corollary isweqfpmap {X Y : UU} (w : X ≃ Y)(P : Y -> UU) : isweq (fpmap w P).
X, Y: UU
w: X ≃ Y
P: Y → UU
isweq (fpmap w P)
Proof.
X, Y: UU
w: X ≃ Y
P: Y → UU
isweq (fpmap w P)
  intros.
X, Y: UU
w: X ≃ Y
P: Y → UU
isweq (fpmap w P)
  unfold isweq.
X, Y: UU
w: X ≃ Y
P: Y → UU
∏ y : ∑ y : Y, P y, iscontr (hfiber (fpmap w P) y) intro y.
X, Y: UU
w: X ≃ Y
P: Y → UU
y: ∑ y : Y, P y
iscontr (hfiber (fpmap w P) y) set (h := hfiberfpmap w P y).
X, Y: UU
w: X ≃ Y
P: Y → UU
y: ∑ y : Y, P y
h:= hfiberfpmap w P y: hfiber (fpmap w P) y → hfiber w (pr1 y)
iscontr (hfiber (fpmap w P) y)
  assert (X1 : isweq h).
X, Y: UU
w: X ≃ Y
P: Y → UU
y: ∑ y : Y, P y
h:= hfiberfpmap w P y: hfiber (fpmap w P) y → hfiber w (pr1 y)
isweq h
X, Y: UU
w: X ≃ Y
P: Y → UU
y: ∑ y : Y, P y
h:= hfiberfpmap w P y: hfiber (fpmap w P) y → hfiber w (pr1 y)
X1: isweq h
iscontr (hfiber (fpmap w P) y) apply isweqhfiberfp.
X, Y: UU
w: X ≃ Y
P: Y → UU
y: ∑ y : Y, P y
h:= hfiberfpmap w P y: hfiber (fpmap w P) y → hfiber w (pr1 y)
X1: isweq h
iscontr (hfiber (fpmap w P) y)
  assert (is : iscontr (hfiber w (pr1 y))).
X, Y: UU
w: X ≃ Y
P: Y → UU
y: ∑ y : Y, P y
h:= hfiberfpmap w P y: hfiber (fpmap w P) y → hfiber w (pr1 y)
X1: isweq h
iscontr (hfiber w (pr1 y))
X, Y: UU
w: X ≃ Y
P: Y → UU
y: ∑ y : Y, P y
h:= hfiberfpmap w P y: hfiber (fpmap w P) y → hfiber w (pr1 y)
X1: isweq h
is: iscontr (hfiber w (pr1 y))
iscontr (hfiber (fpmap w P) y) apply (pr2 w).
X, Y: UU
w: X ≃ Y
P: Y → UU
y: ∑ y : Y, P y
h:= hfiberfpmap w P y: hfiber (fpmap w P) y → hfiber w (pr1 y)
X1: isweq h
is: iscontr (hfiber w (pr1 y))
iscontr (hfiber (fpmap w P) y)
  apply (iscontrweqb (make_weq h X1) is).
Defined.

Definition weqfp_map {X Y : UU} (w : X ≃ Y) (P : Y -> UU) :
  (∑ x, P(w x)) -> (∑ y, P y).
X, Y: UU
w: X ≃ Y
P: Y → UU
(∑ x : X, P (w x)) → ∑ y : Y, P y
Proof.
X, Y: UU
w: X ≃ Y
P: Y → UU
(∑ x : X, P (w x)) → ∑ y : Y, P y
  intros xp.
X, Y: UU
w: X ≃ Y
P: Y → UU
xp: ∑ x : X, P (w x)
∑ y : Y, P y exact (w (pr1 xp),,pr2 xp).
Defined.

Definition weqfp_invmap {X Y : UU} (w : X ≃ Y) (P : Y -> UU) :
  (∑ y, P y) -> (∑ x, P(w x)).
X, Y: UU
w: X ≃ Y
P: Y → UU
(∑ y : Y, P y) → ∑ x : X, P (w x)
Proof.
X, Y: UU
w: X ≃ Y
P: Y → UU
(∑ y : Y, P y) → ∑ x : X, P (w x)
  intros yp.
X, Y: UU
w: X ≃ Y
P: Y → UU
yp: ∑ y : Y, P y
∑ x : X, P (w x)
  exact (invmap w (pr1 yp),,
                transportf P (! homotweqinvweq w (pr1 yp)) (pr2 yp)).
Defined.

Definition weqfp {X Y : UU} (w : X ≃ Y) (P : Y -> UU) :
  (∑ x : X, P (w x)) ≃ (∑ y, P y).
X, Y: UU
w: X ≃ Y
P: Y → UU
(∑ x : X, P (w x)) ≃ (∑ y : Y, P y)
Proof.
X, Y: UU
w: X ≃ Y
P: Y → UU
(∑ x : X, P (w x)) ≃ (∑ y : Y, P y)
  intros.
X, Y: UU
w: X ≃ Y
P: Y → UU
(∑ x : X, P (w x)) ≃ (∑ y : Y, P y)
  exists (weqfp_map w P).
X, Y: UU
w: X ≃ Y
P: Y → UU
isweq (weqfp_map w P)
  refine (isweq_iso _ (weqfp_invmap w P) _ _).
X, Y: UU
w: X ≃ Y
P: Y → UU
∏ x : ∑ x : X, P (w x),
weqfp_invmap w P (weqfp_map w P x) = x
X, Y: UU
w: X ≃ Y
P: Y → UU
∏ y : ∑ y : Y, P y,
weqfp_map w P (weqfp_invmap w P y) = y
  {
X, Y: UU
w: X ≃ Y
P: Y → UU
∏ x : ∑ x : X, P (w x),
weqfp_invmap w P (weqfp_map w P x) = x intros xp.
X, Y: UU
w: X ≃ Y
P: Y → UU
xp: ∑ x : X, P (w x)
weqfp_invmap w P (weqfp_map w P xp) = xp use total2_paths_f.
X, Y: UU
w: X ≃ Y
P: Y → UU
xp: ∑ x : X, P (w x)
pr1 (weqfp_invmap w P (weqfp_map w P xp)) = pr1 xp
X, Y: UU
w: X ≃ Y
P: Y → UU
xp: ∑ x : X, P (w x)
transportf (λ x : X, P (w x)) ?p
  (pr2 (weqfp_invmap w P (weqfp_map w P xp))) = pr2 xp
    {
X, Y: UU
w: X ≃ Y
P: Y → UU
xp: ∑ x : X, P (w x)
pr1 (weqfp_invmap w P (weqfp_map w P xp)) = pr1 xp simpl.
X, Y: UU
w: X ≃ Y
P: Y → UU
xp: ∑ x : X, P (w x)
invmap w (w (pr1 xp)) = pr1 xp apply homotinvweqweq. }
X, Y: UU
w: X ≃ Y
P: Y → UU
xp: ∑ x : X, P (w x)
transportf (λ x : X, P (w x))
  (homotinvweqweq w (pr1 xp)
   :
   pr1 (weqfp_invmap w P (weqfp_map w P xp)) = pr1 xp)
  (pr2 (weqfp_invmap w P (weqfp_map w P xp))) = pr2 xp
    simpl.
X, Y: UU
w: X ≃ Y
P: Y → UU
xp: ∑ x : X, P (w x)
transportf (λ x : X, P (w x))
  (homotinvweqweq w (pr1 xp))
  (transportf P (! homotweqinvweq w (w (pr1 xp)))
     (pr2 xp)) = pr2 xp rewrite <- weq_transportf_adjointness.
X, Y: UU
w: X ≃ Y
P: Y → UU
xp: ∑ x : X, P (w x)
transportf (λ x : X, P (w x))
  (homotinvweqweq w (pr1 xp))
  (transportf (P ∘ w) (! homotinvweqweq w (pr1 xp))
     (pr2 xp)) = pr2 xp
    rewrite transport_f_f.
X, Y: UU
w: X ≃ Y
P: Y → UU
xp: ∑ x : X, P (w x)
transportf (λ x : X, P (w x))
  (! homotinvweqweq w (pr1 xp) @
   homotinvweqweq w (pr1 xp)) (pr2 xp) = pr2 xp rewrite pathsinv0l.
X, Y: UU
w: X ≃ Y
P: Y → UU
xp: ∑ x : X, P (w x)
transportf (λ x : X, P (w x)) (idpath (pr1 xp))
  (pr2 xp) = pr2 xp
    apply idpath. }
X, Y: UU
w: X ≃ Y
P: Y → UU
∏ y : ∑ y : Y, P y,
weqfp_map w P (weqfp_invmap w P y) = y
  {
X, Y: UU
w: X ≃ Y
P: Y → UU
∏ y : ∑ y : Y, P y,
weqfp_map w P (weqfp_invmap w P y) = y intros yp.
X, Y: UU
w: X ≃ Y
P: Y → UU
yp: ∑ y : Y, P y
weqfp_map w P (weqfp_invmap w P yp) = yp simple refine (total2_paths_f _ _).
X, Y: UU
w: X ≃ Y
P: Y → UU
yp: ∑ y : Y, P y
pr1 (weqfp_map w P (weqfp_invmap w P yp)) = pr1 yp
X, Y: UU
w: X ≃ Y
P: Y → UU
yp: ∑ y : Y, P y
transportf P ?p
  (pr2 (weqfp_map w P (weqfp_invmap w P yp))) = pr2 yp
    {
X, Y: UU
w: X ≃ Y
P: Y → UU
yp: ∑ y : Y, P y
pr1 (weqfp_map w P (weqfp_invmap w P yp)) = pr1 yp simpl.
X, Y: UU
w: X ≃ Y
P: Y → UU
yp: ∑ y : Y, P y
w (invmap w (pr1 yp)) = pr1 yp apply homotweqinvweq. }
X, Y: UU
w: X ≃ Y
P: Y → UU
yp: ∑ y : Y, P y
transportf P
  (homotweqinvweq w (pr1 yp)
   :
   pr1 (weqfp_map w P (weqfp_invmap w P yp)) = pr1 yp)
  (pr2 (weqfp_map w P (weqfp_invmap w P yp))) = pr2 yp
    simpl.
X, Y: UU
w: X ≃ Y
P: Y → UU
yp: ∑ y : Y, P y
transportf P (homotweqinvweq w (pr1 yp))
  (transportf P (! homotweqinvweq w (pr1 yp)) (pr2 yp)) =
pr2 yp rewrite transport_f_f.
X, Y: UU
w: X ≃ Y
P: Y → UU
yp: ∑ y : Y, P y
transportf P
  (! homotweqinvweq w (pr1 yp) @
   homotweqinvweq w (pr1 yp)) (pr2 yp) = pr2 yp rewrite pathsinv0l.
X, Y: UU
w: X ≃ Y
P: Y → UU
yp: ∑ y : Y, P y
transportf P (idpath (pr1 yp)) (pr2 yp) = pr2 yp apply idpath. }
Defined.

Definition weqfp_compute_1 {X Y : UU} (w : X ≃ Y) (P : Y -> UU) :
  weqfp w P ~ weqfp_map w P.
X, Y: UU
w: X ≃ Y
P: Y → UU
weqfp w P ~ weqfp_map w P
Proof.
X, Y: UU
w: X ≃ Y
P: Y → UU
weqfp w P ~ weqfp_map w P
  intros.
X, Y: UU
w: X ≃ Y
P: Y → UU
weqfp w P ~ weqfp_map w P intros xp.
X, Y: UU
w: X ≃ Y
P: Y → UU
xp: ∑ x : X, P (w x)
weqfp w P xp = weqfp_map w P xp apply idpath.
Defined.

Definition weqfp_compute_2 {X Y : UU} (w : X ≃ Y) (P : Y -> UU) :
  invmap (weqfp w P) ~ weqfp_invmap w P.
X, Y: UU
w: X ≃ Y
P: Y → UU
invmap (weqfp w P) ~ weqfp_invmap w P
Proof.
X, Y: UU
w: X ≃ Y
P: Y → UU
invmap (weqfp w P) ~ weqfp_invmap w P
  intros.
X, Y: UU
w: X ≃ Y
P: Y → UU
invmap (weqfp w P) ~ weqfp_invmap w P intros yp.
X, Y: UU
w: X ≃ Y
P: Y → UU
yp: ∑ y : Y, P y
invmap (weqfp w P) yp = weqfp_invmap w P yp apply idpath.
Defined.

Definition weqtotal2overcoprod' {W X Y : UU} (P : W -> UU) (f : X ⨿ Y ≃ W) :
  (∑ w, P w) ≃ (∑ x : X, P (f (ii1 x))) ⨿ (∑ y : Y, P (f (ii2 y))).
W, X, Y: UU
P: W → UU
f: X ⨿ Y ≃ W
(∑ w : W, P w)
≃ (∑ x : X, P (f (inl x))) ⨿ (∑ y : Y, P (f (inr y)))
Proof.
W, X, Y: UU
P: W → UU
f: X ⨿ Y ≃ W
(∑ w : W, P w)
≃ (∑ x : X, P (f (inl x))) ⨿ (∑ y : Y, P (f (inr y)))
  intros.
W, X, Y: UU
P: W → UU
f: X ⨿ Y ≃ W
(∑ w : W, P w)
≃ (∑ x : X, P (f (inl x))) ⨿ (∑ y : Y, P (f (inr y)))
  exact (weqcomp (invweq (weqfp f _)) (weqtotal2overcoprod (P ∘ f))).
Defined.

(** *** Total spaces of families over a contractible base *)

Definition fromtotal2overunit (P : unit -> UU) (tp : total2 P) : P tt.
P: unit → UU
tp: ∑ y, P y
P tt
Proof.
P: unit → UU
tp: ∑ y, P y
P tt
  intros.
P: unit → UU
tp: ∑ y, P y
P tt induction tp as [ t p ].
P: unit → UU
t: unit
p: P t
P tt induction t.
P: unit → UU
p: P tt
P tt apply p.
Defined.

Definition tototal2overunit (P : unit -> UU) (p : P tt) : total2 P
  := tpair P tt p.

Theorem weqtotal2overunit (P : unit -> UU) : (∑ u, P u) ≃ P tt.
P: unit → UU
(∑ u : unit, P u) ≃ P tt
Proof.
P: unit → UU
(∑ u : unit, P u) ≃ P tt
  set (f := fromtotal2overunit P).
P: unit → UU
f:= fromtotal2overunit P: (∑ y, P y) → P tt
(∑ u : unit, P u) ≃ P tt set (g := tototal2overunit P).
P: unit → UU
f:= fromtotal2overunit P: (∑ y, P y) → P tt
g:= tototal2overunit P: P tt → ∑ y, P y
(∑ u : unit, P u) ≃ P tt
  split with f.
P: unit → UU
f:= fromtotal2overunit P: (∑ y, P y) → P tt
g:= tototal2overunit P: P tt → ∑ y, P y
isweq f
  assert (egf : ∏ a : _ , (g (f a)) = a).
P: unit → UU
f:= fromtotal2overunit P: (∑ y, P y) → P tt
g:= tototal2overunit P: P tt → ∑ y, P y
∏ a : ∑ y, P y, g (f a) = a
P: unit → UU
f:= fromtotal2overunit P: (∑ y, P y) → P tt
g:= tototal2overunit P: P tt → ∑ y, P y
egf: ∏ a : ∑ y, P y, g (f a) = a
isweq f
  intro a.
P: unit → UU
f:= fromtotal2overunit P: (∑ y, P y) → P tt
g:= tototal2overunit P: P tt → ∑ y, P y
a: ∑ y, P y
g (f a) = a
P: unit → UU
f:= fromtotal2overunit P: (∑ y, P y) → P tt
g:= tototal2overunit P: P tt → ∑ y, P y
egf: ∏ a : ∑ y, P y, g (f a) = a
isweq f induction a as [ t p ].
P: unit → UU
f:= fromtotal2overunit P: (∑ y, P y) → P tt
g:= tototal2overunit P: P tt → ∑ y, P y
t: unit
p: P t
g (f (t,, p)) = t,, p
P: unit → UU
f:= fromtotal2overunit P: (∑ y, P y) → P tt
g:= tototal2overunit P: P tt → ∑ y, P y
egf: ∏ a : ∑ y, P y, g (f a) = a
isweq f induction t.
P: unit → UU
f:= fromtotal2overunit P: (∑ y, P y) → P tt
g:= tototal2overunit P: P tt → ∑ y, P y
p: P tt
g (f (tt,, p)) = tt,, p
P: unit → UU
f:= fromtotal2overunit P: (∑ y, P y) → P tt
g:= tototal2overunit P: P tt → ∑ y, P y
egf: ∏ a : ∑ y, P y, g (f a) = a
isweq f apply idpath.
P: unit → UU
f:= fromtotal2overunit P: (∑ y, P y) → P tt
g:= tototal2overunit P: P tt → ∑ y, P y
egf: ∏ a : ∑ y, P y, g (f a) = a
isweq f
  assert (efg : ∏ a : _ , (f (g a)) = a).
P: unit → UU
f:= fromtotal2overunit P: (∑ y, P y) → P tt
g:= tototal2overunit P: P tt → ∑ y, P y
egf: ∏ a : ∑ y, P y, g (f a) = a
∏ a : P tt, f (g a) = a
P: unit → UU
f:= fromtotal2overunit P: (∑ y, P y) → P tt
g:= tototal2overunit P: P tt → ∑ y, P y
egf: ∏ a : ∑ y, P y, g (f a) = a
efg: ∏ a : P tt, f (g a) = a
isweq f
  intro a.
P: unit → UU
f:= fromtotal2overunit P: (∑ y, P y) → P tt
g:= tototal2overunit P: P tt → ∑ y, P y
egf: ∏ a : ∑ y, P y, g (f a) = a
a: P tt
f (g a) = a
P: unit → UU
f:= fromtotal2overunit P: (∑ y, P y) → P tt
g:= tototal2overunit P: P tt → ∑ y, P y
egf: ∏ a : ∑ y, P y, g (f a) = a
efg: ∏ a : P tt, f (g a) = a
isweq f apply idpath.
P: unit → UU
f:= fromtotal2overunit P: (∑ y, P y) → P tt
g:= tototal2overunit P: P tt → ∑ y, P y
egf: ∏ a : ∑ y, P y, g (f a) = a
efg: ∏ a : P tt, f (g a) = a
isweq f apply (isweq_iso _ _ egf efg).
Defined.

(** *** The function on the total spaces from functions on the bases and on the fibers *)

Definition bandfmap {X Y : UU} (f : X -> Y) (P : X -> UU) (Q : Y -> UU)
           (fm : ∏ x : X, P x -> (Q (f x))) :
  (∑ x, P x) -> (∑ x, Q x) := λ xp, f (pr1 xp) ,, fm (pr1 xp) (pr2 xp).

Theorem isweqbandfmap {X Y : UU} (w : X ≃ Y) (P : X -> UU) (Q : Y -> UU)
        (fw : ∏ x : X, P x ≃ Q (w x)) : isweq (bandfmap  _ P Q fw).
X, Y: UU
w: X ≃ Y
P: X → UU
Q: Y → UU
fw: ∏ x : X, P x ≃ Q (w x)
isweq (bandfmap w P Q (λ x : X, fw x))
Proof.
X, Y: UU
w: X ≃ Y
P: X → UU
Q: Y → UU
fw: ∏ x : X, P x ≃ Q (w x)
isweq (bandfmap w P Q (λ x : X, fw x))
  intros.
X, Y: UU
w: X ≃ Y
P: X → UU
Q: Y → UU
fw: ∏ x : X, P x ≃ Q (w x)
isweq (bandfmap w P Q (λ x : X, fw x))
  set (f1 := totalfun P _ fw).
X, Y: UU
w: X ≃ Y
P: X → UU
Q: Y → UU
fw: ∏ x : X, P x ≃ Q (w x)
f1:= totalfun P (λ x : X, Q (w x)) (λ x : X, fw x): (∑ y : X, P y) → ∑ y : X, (λ x : X, Q (w x)) y
isweq (bandfmap w P Q (λ x : X, fw x))
  set (is1 := isweqfibtototal P (λ x:X, Q (w x)) fw).
X, Y: UU
w: X ≃ Y
P: X → UU
Q: Y → UU
fw: ∏ x : X, P x ≃ Q (w x)
f1:= totalfun P (λ x : X, Q (w x)) (λ x : X, fw x): (∑ y : X, P y) → ∑ y : X, (λ x : X, Q (w x)) y
is1:= isweqfibtototal P (λ x : X, Q (w x)) fw: isweq (totalfun P (λ x : X, Q (w x)) (λ x : X, fw x))
isweq (bandfmap w P Q (λ x : X, fw x))
  set (f2:= fpmap w Q).
X, Y: UU
w: X ≃ Y
P: X → UU
Q: Y → UU
fw: ∏ x : X, P x ≃ Q (w x)
f1:= totalfun P (λ x : X, Q (w x)) (λ x : X, fw x): (∑ y : X, P y) → ∑ y : X, (λ x : X, Q (w x)) y
is1:= isweqfibtototal P (λ x : X, Q (w x)) fw: isweq (totalfun P (λ x : X, Q (w x)) (λ x : X, fw x))
f2:= fpmap w Q: (∑ x : X, Q (w x)) → ∑ y : Y, Q y
isweq (bandfmap w P Q (λ x : X, fw x))
  set (is2:= isweqfpmap w Q).
X, Y: UU
w: X ≃ Y
P: X → UU
Q: Y → UU
fw: ∏ x : X, P x ≃ Q (w x)
f1:= totalfun P (λ x : X, Q (w x)) (λ x : X, fw x): (∑ y : X, P y) → ∑ y : X, (λ x : X, Q (w x)) y
is1:= isweqfibtototal P (λ x : X, Q (w x)) fw: isweq (totalfun P (λ x : X, Q (w x)) (λ x : X, fw x))
f2:= fpmap w Q: (∑ x : X, Q (w x)) → ∑ y : Y, Q y
is2:= isweqfpmap w Q: isweq (fpmap w Q)
isweq (bandfmap w P Q (λ x : X, fw x))
  assert (h: ∏ xp: total2 P, (f2 (f1 xp)) = (bandfmap w P Q fw xp)).
X, Y: UU
w: X ≃ Y
P: X → UU
Q: Y → UU
fw: ∏ x : X, P x ≃ Q (w x)
f1:= totalfun P (λ x : X, Q (w x)) (λ x : X, fw x): (∑ y : X, P y) → ∑ y : X, (λ x : X, Q (w x)) y
is1:= isweqfibtototal P (λ x : X, Q (w x)) fw: isweq (totalfun P (λ x : X, Q (w x)) (λ x : X, fw x))
f2:= fpmap w Q: (∑ x : X, Q (w x)) → ∑ y : Y, Q y
is2:= isweqfpmap w Q: isweq (fpmap w Q)
∏ xp : ∑ y, P y,
f2 (f1 xp) = bandfmap w P Q (λ x : X, fw x) xp
X, Y: UU
w: X ≃ Y
P: X → UU
Q: Y → UU
fw: ∏ x : X, P x ≃ Q (w x)
f1:= totalfun P (λ x : X, Q (w x)) (λ x : X, fw x): (∑ y : X, P y) → ∑ y : X, (λ x : X, Q (w x)) y
is1:= isweqfibtototal P (λ x : X, Q (w x)) fw: isweq (totalfun P (λ x : X, Q (w x)) (λ x : X, fw x))
f2:= fpmap w Q: (∑ x : X, Q (w x)) → ∑ y : Y, Q y
is2:= isweqfpmap w Q: isweq (fpmap w Q)
h: ∏ xp : ∑ y, P y,
f2 (f1 xp) = bandfmap w P Q (λ x : X, fw x) xp
isweq (bandfmap w P Q (λ x : X, fw x))
  {
X, Y: UU
w: X ≃ Y
P: X → UU
Q: Y → UU
fw: ∏ x : X, P x ≃ Q (w x)
f1:= totalfun P (λ x : X, Q (w x)) (λ x : X, fw x): (∑ y : X, P y) → ∑ y : X, (λ x : X, Q (w x)) y
is1:= isweqfibtototal P (λ x : X, Q (w x)) fw: isweq (totalfun P (λ x : X, Q (w x)) (λ x : X, fw x))
f2:= fpmap w Q: (∑ x : X, Q (w x)) → ∑ y : Y, Q y
is2:= isweqfpmap w Q: isweq (fpmap w Q)
∏ xp : ∑ y, P y,
f2 (f1 xp) = bandfmap w P Q (λ x : X, fw x) xp intro.
X, Y: UU
w: X ≃ Y
P: X → UU
Q: Y → UU
fw: ∏ x : X, P x ≃ Q (w x)
f1:= totalfun P (λ x : X, Q (w x)) (λ x : X, fw x): (∑ y : X, P y) → ∑ y : X, (λ x : X, Q (w x)) y
is1:= isweqfibtototal P (λ x : X, Q (w x)) fw: isweq (totalfun P (λ x : X, Q (w x)) (λ x : X, fw x))
f2:= fpmap w Q: (∑ x : X, Q (w x)) → ∑ y : Y, Q y
is2:= isweqfpmap w Q: isweq (fpmap w Q)
xp: ∑ y, P y
f2 (f1 xp) = bandfmap w P Q (λ x : X, fw x) xp apply idpath. }
X, Y: UU
w: X ≃ Y
P: X → UU
Q: Y → UU
fw: ∏ x : X, P x ≃ Q (w x)
f1:= totalfun P (λ x : X, Q (w x)) (λ x : X, fw x): (∑ y : X, P y) → ∑ y : X, (λ x : X, Q (w x)) y
is1:= isweqfibtototal P (λ x : X, Q (w x)) fw: isweq (totalfun P (λ x : X, Q (w x)) (λ x : X, fw x))
f2:= fpmap w Q: (∑ x : X, Q (w x)) → ∑ y : Y, Q y
is2:= isweqfpmap w Q: isweq (fpmap w Q)
h: ∏ xp : ∑ y, P y,
f2 (f1 xp) = bandfmap w P Q (λ x : X, fw x) xp
isweq (bandfmap w P Q (λ x : X, fw x))
  apply (isweqhomot _ _ h (twooutof3c f1 f2 is1 is2)).
Defined.

Definition weqbandf {X Y : UU} (w : X ≃ Y) (P : X -> UU) (Q : Y -> UU)
           (fw : ∏ x : X, P x ≃ Q (w x))
  := make_weq _ (isweqbandfmap w P Q fw).



(** ** Homotopy fiber squares *)

(** *** Homotopy commutative squares *)

Definition commsqstr {X X' Y Z : UU} (g' : Z -> X') (f' : X' -> Y) (g : Z -> X)
           (f : X -> Y) := ∏ (z : Z), (f' (g' z)) = (f (g z)).

Definition hfibersgtof' {X X' Y Z : UU} (f : X -> Y) (f' : X' -> Y) (g : Z -> X)
           (g' : Z -> X') (h : commsqstr g' f' g f) (x : X) (ze : hfiber g x) :
  hfiber f' (f x).
X, X', Y, Z: UU
f: X → Y
f': X' → Y
g: Z → X
g': Z → X'
h: commsqstr g' f' g f
x: X
ze: hfiber g x
hfiber f' (f x)
Proof.
X, X', Y, Z: UU
f: X → Y
f': X' → Y
g: Z → X
g': Z → X'
h: commsqstr g' f' g f
x: X
ze: hfiber g x
hfiber f' (f x)
  intros.
X, X', Y, Z: UU
f: X → Y
f': X' → Y
g: Z → X
g': Z → X'
h: commsqstr g' f' g f
x: X
ze: hfiber g x
hfiber f' (f x)
  induction ze as [ z e ].
X, X', Y, Z: UU
f: X → Y
f': X' → Y
g: Z → X
g': Z → X'
h: commsqstr g' f' g f
x: X
z: Z
e: g z = x
hfiber f' (f x)
  split with (g' z).
X, X', Y, Z: UU
f: X → Y
f': X' → Y
g: Z → X
g': Z → X'
h: commsqstr g' f' g f
x: X
z: Z
e: g z = x
f' (g' z) = f x
  apply (pathscomp0 (h z) (maponpaths f e)).
Defined.

Definition hfibersg'tof {X X' Y Z : UU} (f : X -> Y) (f' : X' -> Y)
           (g : Z -> X) (g' : Z -> X') (h : commsqstr g' f' g f) (x' : X')
           (ze : hfiber g' x') : hfiber f (f' x').
X, X', Y, Z: UU
f: X → Y
f': X' → Y
g: Z → X
g': Z → X'
h: commsqstr g' f' g f
x': X'
ze: hfiber g' x'
hfiber f (f' x')
Proof.
X, X', Y, Z: UU
f: X → Y
f': X' → Y
g: Z → X
g': Z → X'
h: commsqstr g' f' g f
x': X'
ze: hfiber g' x'
hfiber f (f' x')
  intros.
X, X', Y, Z: UU
f: X → Y
f': X' → Y
g: Z → X
g': Z → X'
h: commsqstr g' f' g f
x': X'
ze: hfiber g' x'
hfiber f (f' x')
  induction ze as [ z e ].
X, X', Y, Z: UU
f: X → Y
f': X' → Y
g: Z → X
g': Z → X'
h: commsqstr g' f' g f
x': X'
z: Z
e: g' z = x'
hfiber f (f' x')
  split with (g z).
X, X', Y, Z: UU
f: X → Y
f': X' → Y
g: Z → X
g': Z → X'
h: commsqstr g' f' g f
x': X'
z: Z
e: g' z = x'
f (g z) = f' x'
  apply (pathscomp0 (pathsinv0 (h z)) (maponpaths f' e)).
Defined.

Definition transposcommsqstr {X X' Y Z : UU} (f : X -> Y) (f' : X' -> Y)
           (g : Z -> X) (g' : Z -> X') :
  commsqstr g' f' g f -> commsqstr g f g' f'
  := λ h : _, λ z : Z, (pathsinv0 (h z)).


(** *** Short complexes and homotopy commutative squares *)

Lemma complxstrtocommsqstr {X Y Z : UU} (f : X -> Y) (g : Y -> Z) (z : Z)
      (h : complxstr f g z) :
  commsqstr f g (λ x : X, tt) (λ t : unit, z).
X, Y, Z: UU
f: X → Y
g: Y → Z
z: Z
h: complxstr f g z
commsqstr f g (λ _ : X, tt) (λ _ : unit, z)
Proof.
X, Y, Z: UU
f: X → Y
g: Y → Z
z: Z
h: complxstr f g z
commsqstr f g (λ _ : X, tt) (λ _ : unit, z)
  intros.
X, Y, Z: UU
f: X → Y
g: Y → Z
z: Z
h: complxstr f g z
commsqstr f g (λ _ : X, tt) (λ _ : unit, z) assumption.
Defined.


Lemma commsqstrtocomplxstr {X Y Z : UU} (f : X -> Y) (g : Y -> Z) (z : Z)
      (h : commsqstr f g (λ x : X, tt) (λ t : unit, z)) :
  complxstr f g z.
X, Y, Z: UU
f: X → Y
g: Y → Z
z: Z
h: commsqstr f g (λ _ : X, tt) (λ _ : unit, z)
complxstr f g z
Proof.
X, Y, Z: UU
f: X → Y
g: Y → Z
z: Z
h: commsqstr f g (λ _ : X, tt) (λ _ : unit, z)
complxstr f g z
  intros.
X, Y, Z: UU
f: X → Y
g: Y → Z
z: Z
h: commsqstr f g (λ _ : X, tt) (λ _ : unit, z)
complxstr f g z assumption.
Defined.


(** *** Homotopy fiber products *)



Definition hfp {X X' Y : UU} (f : X -> Y) (f' : X' -> Y)
  := total2 (λ xx' : X × X', (f' (pr2 xx')) = (f (pr1 xx'))).
Definition hfpg {X X' Y : UU} (f : X -> Y) (f' : X' -> Y) :
  hfp f f' -> X := λ xx'e, (pr1 (pr1 xx'e)).
Definition hfpg' {X X' Y : UU} (f : X -> Y) (f' : X' -> Y) :
  hfp f f' -> X' := λ xx'e, (pr2 (pr1 xx'e)).

Definition commsqZtohfp {X X' Y Z : UU} (f : X -> Y) (f' : X' -> Y)
           (g : Z -> X) (g' : Z -> X') (h : commsqstr g' f' g f) :
  Z -> hfp f f' := λ z : _, tpair _ (make_dirprod (g z) (g' z)) (h z).

Definition commsqZtohfphomot {X X' Y Z : UU} (f : X -> Y) (f' : X' -> Y)
           (g : Z -> X) (g' : Z -> X') (h : commsqstr g' f' g f) :
  ∏ z : Z, (hfpg _ _ (commsqZtohfp _ _ _ _ h z)) = (g z)
  := λ z : _, idpath _.

Definition commsqZtohfphomot' {X X' Y Z : UU} (f : X -> Y) (f' : X' -> Y)
           (g : Z -> X) (g' : Z -> X') (h : commsqstr g' f' g f) :
  ∏ z : Z, (hfpg' _ _ (commsqZtohfp _ _ _ _ h z)) = (g' z)
  := λ z : _, idpath _.


Definition hfpoverX {X X' Y : UU} (f : X -> Y) (f' : X' -> Y)
  := total2 (λ x : X, hfiber f' (f x)).
Definition hfpoverX' {X X' Y : UU} (f : X -> Y) (f' : X' -> Y)
  := total2 (λ x' : X', hfiber f (f' x')).


Definition weqhfptohfpoverX {X X' Y : UU} (f : X -> Y) (f' : X' -> Y) :
  hfp f f' ≃ hfpoverX f f'.
X, X', Y: UU
f: X → Y
f': X' → Y
hfp f f' ≃ hfpoverX f f'
Proof.
X, X', Y: UU
f: X → Y
f': X' → Y
hfp f f' ≃ hfpoverX f f'
  intros.
X, X', Y: UU
f: X → Y
f': X' → Y
hfp f f' ≃ hfpoverX f f'
  exact (weqtotal2asstor _ (λ xx',  f' (pr2 xx') = f (pr1 xx'))).
Defined.


Definition weqhfptohfpoverX' {X X' Y : UU} (f : X -> Y) (f' : X' -> Y) :
  hfp f f' ≃ hfpoverX' f f'.
X, X', Y: UU
f: X → Y
f': X' → Y
hfp f f' ≃ hfpoverX' f f'
Proof.
X, X', Y: UU
f: X → Y
f': X' → Y
hfp f f' ≃ hfpoverX' f f'
  intros.
X, X', Y: UU
f: X → Y
f': X' → Y
hfp f f' ≃ hfpoverX' f f'
  set (w1 := weqfp (weqdirprodcomm X X')
                   (λ xx' : X' × X , (f' (pr1 xx')) = (f (pr2 xx')))).
X, X', Y: UU
f: X → Y
f': X' → Y
w1:= weqfp (weqdirprodcomm X X')
  (λ xx' : X' × X, f' (pr1 xx') = f (pr2 xx')): (∑ x : X × X',
 (λ xx' : X' × X, f' (pr1 xx') = f (pr2 xx'))
   (weqdirprodcomm X X' x))
≃ (∑ y : X' × X,
   (λ xx' : X' × X, f' (pr1 xx') = f (pr2 xx')) y)
hfp f f' ≃ hfpoverX' f f'
  simpl in w1.
X, X', Y: UU
f: X → Y
f': X' → Y
w1:= weqfp (weqdirprodcomm X X')
  (λ xx' : X' × X, f' (pr1 xx') = f (pr2 xx')): (∑ x : X × X', f' (pr2 x) = f (pr1 x))
≃ (∑ y : X' × X, f' (pr1 y) = f (pr2 y))
hfp f f' ≃ hfpoverX' f f'
  set (w2 := weqfibtototal
               (λ x'x : X' × X, (f' (pr1 x'x)) = (f (pr2 x'x)))
               (λ x'x : X' × X, (f (pr2 x'x)) = (f' (pr1 x'x)))
               (λ x'x : _, weqpathsinv0  (f' (pr1 x'x)) (f (pr2 x'x)))).
X, X', Y: UU
f: X → Y
f': X' → Y
w1:= weqfp (weqdirprodcomm X X')
  (λ xx' : X' × X, f' (pr1 xx') = f (pr2 xx')): (∑ x : X × X', f' (pr2 x) = f (pr1 x))
≃ (∑ y : X' × X, f' (pr1 y) = f (pr2 y))
w2:= weqfibtototal
  (λ x'x : X' × X, f' (pr1 x'x) = f (pr2 x'x))
  (λ x'x : X' × X, f (pr2 x'x) = f' (pr1 x'x))
  (λ x'x : X' × X,
   weqpathsinv0 (f' (pr1 x'x)) (f (pr2 x'x))): (∑ x : X' × X,
 (λ x'x : X' × X, f' (pr1 x'x) = f (pr2 x'x)) x)
≃ (∑ x : X' × X,
   (λ x'x : X' × X, f (pr2 x'x) = f' (pr1 x'x)) x)
hfp f f' ≃ hfpoverX' f f'
  set (w3 := weqtotal2asstor
               (λ x' : X', X)
               (λ x'x : X' × X, (f (pr2 x'x)) = (f' (pr1 x'x)))).
X, X', Y: UU
f: X → Y
f': X' → Y
w1:= weqfp (weqdirprodcomm X X')
  (λ xx' : X' × X, f' (pr1 xx') = f (pr2 xx')): (∑ x : X × X', f' (pr2 x) = f (pr1 x))
≃ (∑ y : X' × X, f' (pr1 y) = f (pr2 y))
w2:= weqfibtototal
  (λ x'x : X' × X, f' (pr1 x'x) = f (pr2 x'x))
  (λ x'x : X' × X, f (pr2 x'x) = f' (pr1 x'x))
  (λ x'x : X' × X,
   weqpathsinv0 (f' (pr1 x'x)) (f (pr2 x'x))): (∑ x : X' × X,
 (λ x'x : X' × X, f' (pr1 x'x) = f (pr2 x'x)) x)
≃ (∑ x : X' × X,
   (λ x'x : X' × X, f (pr2 x'x) = f' (pr1 x'x)) x)
w3:= weqtotal2asstor (λ _ : X', X)
  (λ x'x : X' × X, f (pr2 x'x) = f' (pr1 x'x)): (∑ x'x : X' × X, f (pr2 x'x) = f' (pr1 x'x))
≃ (∑ (x : X') (p : (λ _ : X', X) x),
   (λ x'x : X' × X, f (pr2 x'x) = f' (pr1 x'x))
     (x,, p))
hfp f f' ≃ hfpoverX' f f'
  simpl in w3.
X, X', Y: UU
f: X → Y
f': X' → Y
w1:= weqfp (weqdirprodcomm X X')
  (λ xx' : X' × X, f' (pr1 xx') = f (pr2 xx')): (∑ x : X × X', f' (pr2 x) = f (pr1 x))
≃ (∑ y : X' × X, f' (pr1 y) = f (pr2 y))
w2:= weqfibtototal
  (λ x'x : X' × X, f' (pr1 x'x) = f (pr2 x'x))
  (λ x'x : X' × X, f (pr2 x'x) = f' (pr1 x'x))
  (λ x'x : X' × X,
   weqpathsinv0 (f' (pr1 x'x)) (f (pr2 x'x))): (∑ x : X' × X,
 (λ x'x : X' × X, f' (pr1 x'x) = f (pr2 x'x)) x)
≃ (∑ x : X' × X,
   (λ x'x : X' × X, f (pr2 x'x) = f' (pr1 x'x)) x)
w3:= weqtotal2asstor (λ _ : X', X)
  (λ x'x : X' × X, f (pr2 x'x) = f' (pr1 x'x)): (∑ x'x : X' × X, f (pr2 x'x) = f' (pr1 x'x))
≃ (∑ (x : X') (p : X), f p = f' x)
hfp f f' ≃ hfpoverX' f f'
  apply (weqcomp (weqcomp w1 w2) w3).
Defined.


Lemma weqhfpcomm {X X' Y : UU} (f : X -> Y) (f' : X' -> Y):
  hfp f f' ≃ hfp f' f.
X, X', Y: UU
f: X → Y
f': X' → Y
hfp f f' ≃ hfp f' f
Proof.
X, X', Y: UU
f: X → Y
f': X' → Y
hfp f f' ≃ hfp f' f
  intros.
X, X', Y: UU
f: X → Y
f': X' → Y
hfp f f' ≃ hfp f' f
  set (w1 := weqfp (weqdirprodcomm X X')
                   (λ xx' : X' × X, (f' (pr1 xx')) = (f (pr2 xx')))).
X, X', Y: UU
f: X → Y
f': X' → Y
w1:= weqfp (weqdirprodcomm X X')
  (λ xx' : X' × X, f' (pr1 xx') = f (pr2 xx')): (∑ x : X × X',
 (λ xx' : X' × X, f' (pr1 xx') = f (pr2 xx'))
   (weqdirprodcomm X X' x))
≃ (∑ y : X' × X,
   (λ xx' : X' × X, f' (pr1 xx') = f (pr2 xx')) y)
hfp f f' ≃ hfp f' f
  simpl in w1.
X, X', Y: UU
f: X → Y
f': X' → Y
w1:= weqfp (weqdirprodcomm X X')
  (λ xx' : X' × X, f' (pr1 xx') = f (pr2 xx')): (∑ x : X × X', f' (pr2 x) = f (pr1 x))
≃ (∑ y : X' × X, f' (pr1 y) = f (pr2 y))
hfp f f' ≃ hfp f' f
  set (w2 := weqfibtototal
               (λ x'x : X' × X, (f' (pr1 x'x)) = (f (pr2 x'x)))
               (λ x'x : X' × X, (f (pr2 x'x)) = (f' (pr1 x'x)))
               (λ x'x : _, weqpathsinv0 (f' (pr1 x'x)) (f (pr2 x'x)))).
X, X', Y: UU
f: X → Y
f': X' → Y
w1:= weqfp (weqdirprodcomm X X')
  (λ xx' : X' × X, f' (pr1 xx') = f (pr2 xx')): (∑ x : X × X', f' (pr2 x) = f (pr1 x))
≃ (∑ y : X' × X, f' (pr1 y) = f (pr2 y))
w2:= weqfibtototal
  (λ x'x : X' × X, f' (pr1 x'x) = f (pr2 x'x))
  (λ x'x : X' × X, f (pr2 x'x) = f' (pr1 x'x))
  (λ x'x : X' × X,
   weqpathsinv0 (f' (pr1 x'x)) (f (pr2 x'x))): (∑ x : X' × X,
 (λ x'x : X' × X, f' (pr1 x'x) = f (pr2 x'x)) x)
≃ (∑ x : X' × X,
   (λ x'x : X' × X, f (pr2 x'x) = f' (pr1 x'x)) x)
hfp f f' ≃ hfp f' f
  apply (weqcomp w1 w2).
Defined.

Definition commhfp {X X' Y : UU} (f : X -> Y) (f' : X' -> Y) :
  commsqstr (hfpg' f f') f' (hfpg f f') f
  := λ xx'e : hfp f f', pr2 xx'e.


(** *** Homotopy fiber products and homotopy fibers *)

Definition  hfibertohfp {X Y : UU} (f : X -> Y) (y : Y) (xe : hfiber f y) :
  hfp (λ t : unit, y) f := tpair (λ tx : unit × X, (f (pr2 tx)) = y)
                                     (make_dirprod tt (pr1 xe)) (pr2 xe).

Definition hfptohfiber {X Y : UU} (f : X -> Y) (y : Y)
           (hf : hfp (λ t : unit, y) f) : hfiber f y
  := make_hfiber f (pr2 (pr1 hf)) (pr2 hf).

Lemma weqhfibertohfp {X Y : UU} (f : X -> Y) (y : Y) :
  hfiber f y ≃ hfp (λ _:unit, y) f.
X, Y: UU
f: X → Y
y: Y
hfiber f y ≃ hfp (λ _ : unit, y) f
Proof.
X, Y: UU
f: X → Y
y: Y
hfiber f y ≃ hfp (λ _ : unit, y) f
  intros.
X, Y: UU
f: X → Y
y: Y
hfiber f y ≃ hfp (λ _ : unit, y) f
  set (ff := hfibertohfp f y).
X, Y: UU
f: X → Y
y: Y
ff:= hfibertohfp f y: hfiber f y → hfp (λ _ : unit, y) f
hfiber f y ≃ hfp (λ _ : unit, y) f
  set (gg := hfptohfiber f y).
X, Y: UU
f: X → Y
y: Y
ff:= hfibertohfp f y: hfiber f y → hfp (λ _ : unit, y) f
gg:= hfptohfiber f y: hfp (λ _ : unit, y) f → hfiber f y
hfiber f y ≃ hfp (λ _ : unit, y) f
  split with ff.
X, Y: UU
f: X → Y
y: Y
ff:= hfibertohfp f y: hfiber f y → hfp (λ _ : unit, y) f
gg:= hfptohfiber f y: hfp (λ _ : unit, y) f → hfiber f y
isweq ff
  assert (egf : ∏ xe : _, (gg (ff xe)) = xe).
X, Y: UU
f: X → Y
y: Y
ff:= hfibertohfp f y: hfiber f y → hfp (λ _ : unit, y) f
gg:= hfptohfiber f y: hfp (λ _ : unit, y) f → hfiber f y
∏ xe : hfiber f y, gg (ff xe) = xe
X, Y: UU
f: X → Y
y: Y
ff:= hfibertohfp f y: hfiber f y → hfp (λ _ : unit, y) f
gg:= hfptohfiber f y: hfp (λ _ : unit, y) f → hfiber f y
egf: ∏ xe : hfiber f y, gg (ff xe) = xe
isweq ff
  intro.
X, Y: UU
f: X → Y
y: Y
ff:= hfibertohfp f y: hfiber f y → hfp (λ _ : unit, y) f
gg:= hfptohfiber f y: hfp (λ _ : unit, y) f → hfiber f y
xe: hfiber f y
gg (ff xe) = xe
X, Y: UU
f: X → Y
y: Y
ff:= hfibertohfp f y: hfiber f y → hfp (λ _ : unit, y) f
gg:= hfptohfiber f y: hfp (λ _ : unit, y) f → hfiber f y
egf: ∏ xe : hfiber f y, gg (ff xe) = xe
isweq ff induction xe.
X, Y: UU
f: X → Y
y: Y
ff:= hfibertohfp f y: hfiber f y → hfp (λ _ : unit, y) f
gg:= hfptohfiber f y: hfp (λ _ : unit, y) f → hfiber f y
pr1: X
pr2: f pr1 = y
gg (ff (pr1,, pr2)) = pr1,, pr2
X, Y: UU
f: X → Y
y: Y
ff:= hfibertohfp f y: hfiber f y → hfp (λ _ : unit, y) f
gg:= hfptohfiber f y: hfp (λ _ : unit, y) f → hfiber f y
egf: ∏ xe : hfiber f y, gg (ff xe) = xe
isweq ff apply idpath.
X, Y: UU
f: X → Y
y: Y
ff:= hfibertohfp f y: hfiber f y → hfp (λ _ : unit, y) f
gg:= hfptohfiber f y: hfp (λ _ : unit, y) f → hfiber f y
egf: ∏ xe : hfiber f y, gg (ff xe) = xe
isweq ff
  assert (efg : ∏ hf : _, (ff (gg hf)) = hf).
X, Y: UU
f: X → Y
y: Y
ff:= hfibertohfp f y: hfiber f y → hfp (λ _ : unit, y) f
gg:= hfptohfiber f y: hfp (λ _ : unit, y) f → hfiber f y
egf: ∏ xe : hfiber f y, gg (ff xe) = xe
∏ hf : hfp (λ _ : unit, y) f, ff (gg hf) = hf
X, Y: UU
f: X → Y
y: Y
ff:= hfibertohfp f y: hfiber f y → hfp (λ _ : unit, y) f
gg:= hfptohfiber f y: hfp (λ _ : unit, y) f → hfiber f y
egf: ∏ xe : hfiber f y, gg (ff xe) = xe
efg: ∏ hf : hfp (λ _ : unit, y) f, ff (gg hf) = hf
isweq ff
  intro.
X, Y: UU
f: X → Y
y: Y
ff:= hfibertohfp f y: hfiber f y → hfp (λ _ : unit, y) f
gg:= hfptohfiber f y: hfp (λ _ : unit, y) f → hfiber f y
egf: ∏ xe : hfiber f y, gg (ff xe) = xe
hf: hfp (λ _ : unit, y) f
ff (gg hf) = hf
X, Y: UU
f: X → Y
y: Y
ff:= hfibertohfp f y: hfiber f y → hfp (λ _ : unit, y) f
gg:= hfptohfiber f y: hfp (λ _ : unit, y) f → hfiber f y
egf: ∏ xe : hfiber f y, gg (ff xe) = xe
efg: ∏ hf : hfp (λ _ : unit, y) f, ff (gg hf) = hf
isweq ff
  induction hf as [ tx e ].
X, Y: UU
f: X → Y
y: Y
ff:= hfibertohfp f y: hfiber f y → hfp (λ _ : unit, y) f
gg:= hfptohfiber f y: hfp (λ _ : unit, y) f → hfiber f y
egf: ∏ xe : hfiber f y, gg (ff xe) = xe
tx: unit × X
e: f (pr2 tx) = y
ff (gg (tx,, e)) = tx,, e
X, Y: UU
f: X → Y
y: Y
ff:= hfibertohfp f y: hfiber f y → hfp (λ _ : unit, y) f
gg:= hfptohfiber f y: hfp (λ _ : unit, y) f → hfiber f y
egf: ∏ xe : hfiber f y, gg (ff xe) = xe
efg: ∏ hf : hfp (λ _ : unit, y) f, ff (gg hf) = hf
isweq ff induction tx as [ t x ].
X, Y: UU
f: X → Y
y: Y
ff:= hfibertohfp f y: hfiber f y → hfp (λ _ : unit, y) f
gg:= hfptohfiber f y: hfp (λ _ : unit, y) f → hfiber f y
egf: ∏ xe : hfiber f y, gg (ff xe) = xe
t: unit
x: X
e: f (pr2 (t,, x)) = y
ff (gg ((t,, x),, e)) = (t,, x),, e
X, Y: UU
f: X → Y
y: Y
ff:= hfibertohfp f y: hfiber f y → hfp (λ _ : unit, y) f
gg:= hfptohfiber f y: hfp (λ _ : unit, y) f → hfiber f y
egf: ∏ xe : hfiber f y, gg (ff xe) = xe
efg: ∏ hf : hfp (λ _ : unit, y) f, ff (gg hf) = hf
isweq ff
  induction t.
X, Y: UU
f: X → Y
y: Y
ff:= hfibertohfp f y: hfiber f y → hfp (λ _ : unit, y) f
gg:= hfptohfiber f y: hfp (λ _ : unit, y) f → hfiber f y
egf: ∏ xe : hfiber f y, gg (ff xe) = xe
x: X
e: f (pr2 (tt,, x)) = y
ff (gg ((tt,, x),, e)) = (tt,, x),, e
X, Y: UU
f: X → Y
y: Y
ff:= hfibertohfp f y: hfiber f y → hfp (λ _ : unit, y) f
gg:= hfptohfiber f y: hfp (λ _ : unit, y) f → hfiber f y
egf: ∏ xe : hfiber f y, gg (ff xe) = xe
efg: ∏ hf : hfp (λ _ : unit, y) f, ff (gg hf) = hf
isweq ff apply idpath.
X, Y: UU
f: X → Y
y: Y
ff:= hfibertohfp f y: hfiber f y → hfp (λ _ : unit, y) f
gg:= hfptohfiber f y: hfp (λ _ : unit, y) f → hfiber f y
egf: ∏ xe : hfiber f y, gg (ff xe) = xe
efg: ∏ hf : hfp (λ _ : unit, y) f, ff (gg hf) = hf
isweq ff apply (isweq_iso _ _ egf efg).
Defined.

Lemma hfp_left {X Y Z : UU} (f : X -> Z) (g : Y -> Z) :
  hfp f g ≃ ∑ x, hfiber g (f x).
X, Y, Z: UU
f: X → Z
g: Y → Z
hfp f g ≃ (∑ x : X, hfiber g (f x))
Proof.
X, Y, Z: UU
f: X → Z
g: Y → Z
hfp f g ≃ (∑ x : X, hfiber g (f x))
  intros.
X, Y, Z: UU
f: X → Z
g: Y → Z
hfp f g ≃ (∑ x : X, hfiber g (f x)) apply weqtotal2dirprodassoc.
Defined.

Definition hfp_right {X Y Z : UU} (f : X -> Z) (g : Y -> Z) :
  hfp f g ≃ ∑ y, hfiber f (g y).
X, Y, Z: UU
f: X → Z
g: Y → Z
hfp f g ≃ (∑ y : Y, hfiber f (g y))
Proof.
X, Y, Z: UU
f: X → Z
g: Y → Z
hfp f g ≃ (∑ y : Y, hfiber f (g y))
  intros.
X, Y, Z: UU
f: X → Z
g: Y → Z
hfp f g ≃ (∑ y : Y, hfiber f (g y)) use weq_iso.
X, Y, Z: UU
f: X → Z
g: Y → Z
hfp f g → ∑ y : Y, hfiber f (g y)
X, Y, Z: UU
f: X → Z
g: Y → Z
(∑ y : Y, hfiber f (g y)) → hfp f g
X, Y, Z: UU
f: X → Z
g: Y → Z
∏ x : hfp f g, ?g (?f x) = x
X, Y, Z: UU
f: X → Z
g: Y → Z
∏ y : ∑ y : Y, hfiber f (g y), ?f (?g y) = y
  -
X, Y, Z: UU
f: X → Z
g: Y → Z
hfp f g → ∑ y : Y, hfiber f (g y) intros [[x y] e].
X, Y, Z: UU
f: X → Z
g: Y → Z
x: X
y: Y
e: g (pr2 (x,, y)) = f (pr1 (x,, y))
∑ y : Y, hfiber f (g y) exact (y,,x,,!e).
  -
X, Y, Z: UU
f: X → Z
g: Y → Z
(∑ y : Y, hfiber f (g y)) → hfp f g intros [x [y e]].
X, Y, Z: UU
f: X → Z
g: Y → Z
x: Y
y: X
e: f y = g x
hfp f g exact ((y,,x),,!e).
  -
X, Y, Z: UU
f: X → Z
g: Y → Z
∏ x : hfp f g,
(λ X0 : ∑ y : Y, hfiber f (g y),
 (λ (x0 : Y) (pr2 : hfiber f (g x0)),
  (λ (y : X) (e : f y = g x0), (y,, x0),, ! e)
    (pr1 pr2) (Preamble.pr2 pr2)) (pr1 X0) (pr2 X0))
  ((λ X0 : hfp f g,
    (λ pr1 : X × Y,
     (λ (x0 : X) (y : Y)
      (e : g (pr2 (x0,, y)) =
           f (Preamble.pr1 (x0,, y))), y,, x0,, ! e)
       (Preamble.pr1 pr1) (pr2 pr1)) (pr1 X0) (pr2 X0))
     x) = x intros [[x y] e].
X, Y, Z: UU
f: X → Z
g: Y → Z
x: X
y: Y
e: g (pr2 (x,, y)) = f (pr1 (x,, y))
(x,, y),, ! (! e) = (x,, y),, e apply maponpaths, pathsinv0inv0.
  -
X, Y, Z: UU
f: X → Z
g: Y → Z
∏ y : ∑ y : Y, hfiber f (g y),
(λ X0 : hfp f g,
 (λ pr1 : X × Y,
  (λ (x : X) (y0 : Y)
   (e : g (pr2 (x,, y0)) = f (Preamble.pr1 (x,, y0))),
   y0,, x,, ! e) (Preamble.pr1 pr1) (pr2 pr1))
   (pr1 X0) (pr2 X0))
  ((λ X0 : ∑ y0 : Y, hfiber f (g y0),
    (λ (x : Y) (pr2 : hfiber f (g x)),
     (λ (y0 : X) (e : f y0 = g x), (y0,, x),, ! e)
       (pr1 pr2) (Preamble.pr2 pr2)) (pr1 X0) (pr2 X0))
     y) = y intros [x [y e]].
X, Y, Z: UU
f: X → Z
g: Y → Z
x: Y
y: X
e: f y = g x
x,, y,, ! (! e) = x,, y,, e apply maponpaths, maponpaths, pathsinv0inv0.
Defined.

Definition hfiber_comm {X Y Z : UU} (f : X -> Z) (g : Y -> Z) :
  (∑ x, hfiber g (f x)) ≃ (∑ y, hfiber f (g y)).
X, Y, Z: UU
f: X → Z
g: Y → Z
(∑ x : X, hfiber g (f x)) ≃ (∑ y : Y, hfiber f (g y))
Proof.
X, Y, Z: UU
f: X → Z
g: Y → Z
(∑ x : X, hfiber g (f x)) ≃ (∑ y : Y, hfiber f (g y))
  intros.
X, Y, Z: UU
f: X → Z
g: Y → Z
(∑ x : X, hfiber g (f x)) ≃ (∑ y : Y, hfiber f (g y)) use weq_iso.
X, Y, Z: UU
f: X → Z
g: Y → Z
(∑ x : X, hfiber g (f x)) → ∑ y : Y, hfiber f (g y)
X, Y, Z: UU
f: X → Z
g: Y → Z
(∑ y : Y, hfiber f (g y)) → ∑ x : X, hfiber g (f x)
X, Y, Z: UU
f: X → Z
g: Y → Z
∏ x : ∑ x : X, hfiber g (f x), ?g (?f x) = x
X, Y, Z: UU
f: X → Z
g: Y → Z
∏ y : ∑ y : Y, hfiber f (g y), ?f (?g y) = y
  -
X, Y, Z: UU
f: X → Z
g: Y → Z
(∑ x : X, hfiber g (f x)) → ∑ y : Y, hfiber f (g y) intros [x [y e]].
X, Y, Z: UU
f: X → Z
g: Y → Z
x: X
y: Y
e: g y = f x
∑ y : Y, hfiber f (g y) exact (y,,x,,!e).
  -
X, Y, Z: UU
f: X → Z
g: Y → Z
(∑ y : Y, hfiber f (g y)) → ∑ x : X, hfiber g (f x) intros [y [x e]].
X, Y, Z: UU
f: X → Z
g: Y → Z
y: Y
x: X
e: f x = g y
∑ x : X, hfiber g (f x) exact (x,,y,,!e).
  -
X, Y, Z: UU
f: X → Z
g: Y → Z
∏ x : ∑ x : X, hfiber g (f x),
(λ X0 : ∑ y : Y, hfiber f (g y),
 (λ (y : Y) (pr2 : hfiber f (g y)),
  (λ (x0 : X) (e : f x0 = g y), x0,, y,, ! e)
    (pr1 pr2) (Preamble.pr2 pr2)) (pr1 X0) (pr2 X0))
  ((λ X0 : ∑ x0 : X, hfiber g (f x0),
    (λ (x0 : X) (pr2 : hfiber g (f x0)),
     (λ (y : Y) (e : g y = f x0), y,, x0,, ! e)
       (pr1 pr2) (Preamble.pr2 pr2)) (pr1 X0) (pr2 X0))
     x) = x intros [x [y e]].
X, Y, Z: UU
f: X → Z
g: Y → Z
x: X
y: Y
e: g y = f x
x,, y,, ! (! e) = x,, y,, e apply maponpaths, maponpaths, pathsinv0inv0.
  -
X, Y, Z: UU
f: X → Z
g: Y → Z
∏ y : ∑ y : Y, hfiber f (g y),
(λ X0 : ∑ x : X, hfiber g (f x),
 (λ (x : X) (pr2 : hfiber g (f x)),
  (λ (y0 : Y) (e : g y0 = f x), y0,, x,, ! e)
    (pr1 pr2) (Preamble.pr2 pr2)) (pr1 X0) (pr2 X0))
  ((λ X0 : ∑ y0 : Y, hfiber f (g y0),
    (λ (y0 : Y) (pr2 : hfiber f (g y0)),
     (λ (x : X) (e : f x = g y0), x,, y0,, ! e)
       (pr1 pr2) (Preamble.pr2 pr2)) (pr1 X0) (pr2 X0))
     y) = y intros [y [x e]].
X, Y, Z: UU
f: X → Z
g: Y → Z
y: Y
x: X
e: f x = g y
y,, x,, ! (! e) = y,, x,, e apply maponpaths, maponpaths, pathsinv0inv0.
Defined.


(** *** Homotopy fiber squares *)

Definition ishfsq {X X' Y Z : UU} (f : X -> Y) (f' : X' -> Y)
           (g : Z -> X) (g' : Z -> X') (h : commsqstr g' f' g f)
  := isweq (commsqZtohfp f f' g g' h).

Definition hfsqstr {X X' Y Z : UU} (f : X -> Y) (f' : X' -> Y)
           (g : Z -> X) (g' : Z -> X')
  := total2 (λ h : commsqstr g' f' g f, isweq (commsqZtohfp f f' g g' h)).

Definition make_hfsqstr {X X' Y Z : UU} (f : X -> Y) (f' : X' -> Y)
           (g : Z -> X) (g' : Z -> X')
  := tpair (λ h : commsqstr g' f' g f, isweq (commsqZtohfp f f' g g' h)).

Definition hfsqstrtocommsqstr {X X' Y Z : UU} (f : X -> Y) (f' : X' -> Y)
           (g : Z -> X) (g' : Z -> X') :
  hfsqstr f f' g g' -> commsqstr g' f' g f
  := @pr1 _ (λ h : commsqstr g' f' g f, isweq (commsqZtohfp f f' g g' h)).
Coercion hfsqstrtocommsqstr : hfsqstr >-> commsqstr.

Definition weqZtohfp {X X' Y Z : UU} (f : X -> Y) (f' : X' -> Y) (g : Z -> X)
           (g' : Z -> X') (hf : hfsqstr f f' g g') : Z ≃ hfp f f'
  := make_weq _ (pr2 hf).

Lemma isweqhfibersgtof' {X X' Y Z : UU} (f : X -> Y) (f' : X' -> Y) (g : Z -> X)
      (g' : Z -> X') (hf : hfsqstr f f' g g') (x : X) :
  isweq (hfibersgtof' f f' g g' hf x).
X, X', Y, Z: UU
f: X → Y
f': X' → Y
g: Z → X
g': Z → X'
hf: hfsqstr f f' g g'
x: X
isweq (hfibersgtof' f f' g g' hf x)
Proof.
X, X', Y, Z: UU
f: X → Y
f': X' → Y
g: Z → X
g': Z → X'
hf: hfsqstr f f' g g'
x: X
isweq (hfibersgtof' f f' g g' hf x)
  intros.
X, X', Y, Z: UU
f: X → Y
f': X' → Y
g: Z → X
g': Z → X'
hf: hfsqstr f f' g g'
x: X
isweq (hfibersgtof' f f' g g' hf x)
  set (is := pr2 hf).
X, X', Y, Z: UU
f: X → Y
f': X' → Y
g: Z → X
g': Z → X'
hf: hfsqstr f f' g g'
x: X
is:= pr2 hf: (λ h : commsqstr g' f' g f,
 isweq (commsqZtohfp f f' g g' h)) (pr1 hf)
isweq (hfibersgtof' f f' g g' hf x)
  set (h := pr1 hf).
X, X', Y, Z: UU
f: X → Y
f': X' → Y
g: Z → X
g': Z → X'
hf: hfsqstr f f' g g'
x: X
is:= pr2 hf: (λ h : commsqstr g' f' g f,
 isweq (commsqZtohfp f f' g g' h)) (pr1 hf)
h:= pr1 hf: commsqstr g' f' g f
isweq (hfibersgtof' f f' g g' hf x)
  set (a := weqtococonusf g).
X, X', Y, Z: UU
f: X → Y
f': X' → Y
g: Z → X
g': Z → X'
hf: hfsqstr f f' g g'
x: X
is:= pr2 hf: (λ h : commsqstr g' f' g f,
 isweq (commsqZtohfp f f' g g' h)) (pr1 hf)
h:= pr1 hf: commsqstr g' f' g f
a:= weqtococonusf g: Z ≃ coconusf g
isweq (hfibersgtof' f f' g g' hf x)
  set (c := make_weq _ is).
X, X', Y, Z: UU
f: X → Y
f': X' → Y
g: Z → X
g': Z → X'
hf: hfsqstr f f' g g'
x: X
is:= pr2 hf: (λ h : commsqstr g' f' g f,
 isweq (commsqZtohfp f f' g g' h)) (pr1 hf)
h:= pr1 hf: commsqstr g' f' g f
a:= weqtococonusf g: Z ≃ coconusf g
c:= make_weq (commsqZtohfp f f' g g' (pr1 hf)) is: Z ≃ hfp f f'
isweq (hfibersgtof' f f' g g' hf x)
  set (d := weqhfptohfpoverX f f').
X, X', Y, Z: UU
f: X → Y
f': X' → Y
g: Z → X
g': Z → X'
hf: hfsqstr f f' g g'
x: X
is:= pr2 hf: (λ h : commsqstr g' f' g f,
 isweq (commsqZtohfp f f' g g' h)) (pr1 hf)
h:= pr1 hf: commsqstr g' f' g f
a:= weqtococonusf g: Z ≃ coconusf g
c:= make_weq (commsqZtohfp f f' g g' (pr1 hf)) is: Z ≃ hfp f f'
d:= weqhfptohfpoverX f f': hfp f f' ≃ hfpoverX f f'
isweq (hfibersgtof' f f' g g' hf x)
  set (b0 := totalfun _ _ (hfibersgtof' f f' g g' h)).
X, X', Y, Z: UU
f: X → Y
f': X' → Y
g: Z → X
g': Z → X'
hf: hfsqstr f f' g g'
x: X
is:= pr2 hf: (λ h : commsqstr g' f' g f,
 isweq (commsqZtohfp f f' g g' h)) (pr1 hf)
h:= pr1 hf: commsqstr g' f' g f
a:= weqtococonusf g: Z ≃ coconusf g
c:= make_weq (commsqZtohfp f f' g g' (pr1 hf)) is: Z ≃ hfp f f'
d:= weqhfptohfpoverX f f': hfp f f' ≃ hfpoverX f f'
b0:= totalfun (hfiber g) (λ x : X, hfiber f' (f x))
  (hfibersgtof' f f' g g' h): (∑ y : X, hfiber g y)
→ ∑ y : X, (λ x : X, hfiber f' (f x)) y
isweq (hfibersgtof' f f' g g' hf x)

  assert (h1 : ∏ z : Z, (d (c z)) = (b0 (a z))).
X, X', Y, Z: UU
f: X → Y
f': X' → Y
g: Z → X
g': Z → X'
hf: hfsqstr f f' g g'
x: X
is:= pr2 hf: (λ h : commsqstr g' f' g f,
 isweq (commsqZtohfp f f' g g' h)) (pr1 hf)
h:= pr1 hf: commsqstr g' f' g f
a:= weqtococonusf g: Z ≃ coconusf g
c:= make_weq (commsqZtohfp f f' g g' (pr1 hf)) is: Z ≃ hfp f f'
d:= weqhfptohfpoverX f f': hfp f f' ≃ hfpoverX f f'
b0:= totalfun (hfiber g) (λ x : X, hfiber f' (f x))
  (hfibersgtof' f f' g g' h): (∑ y : X, hfiber g y)
→ ∑ y : X, (λ x : X, hfiber f' (f x)) y
∏ z : Z, d (c z) = b0 (a z)
X, X', Y, Z: UU
f: X → Y
f': X' → Y
g: Z → X
g': Z → X'
hf: hfsqstr f f' g g'
x: X
is:= pr2 hf: (λ h : commsqstr g' f' g f,
 isweq (commsqZtohfp f f' g g' h)) (pr1 hf)
h:= pr1 hf: commsqstr g' f' g f
a:= weqtococonusf g: Z ≃ coconusf g
c:= make_weq (commsqZtohfp f f' g g' (pr1 hf)) is: Z ≃ hfp f f'
d:= weqhfptohfpoverX f f': hfp f f' ≃ hfpoverX f f'
b0:= totalfun (hfiber g) (λ x : X, hfiber f' (f x))
  (hfibersgtof' f f' g g' h): (∑ y : X, hfiber g y)
→ ∑ y : X, (λ x : X, hfiber f' (f x)) y
h1: ∏ z : Z, d (c z) = b0 (a z)
isweq (hfibersgtof' f f' g g' hf x)
  intro.
X, X', Y, Z: UU
f: X → Y
f': X' → Y
g: Z → X
g': Z → X'
hf: hfsqstr f f' g g'
x: X
is:= pr2 hf: (λ h : commsqstr g' f' g f,
 isweq (commsqZtohfp f f' g g' h)) (pr1 hf)
h:= pr1 hf: commsqstr g' f' g f
a:= weqtococonusf g: Z ≃ coconusf g
c:= make_weq (commsqZtohfp f f' g g' (pr1 hf)) is: Z ≃ hfp f f'
d:= weqhfptohfpoverX f f': hfp f f' ≃ hfpoverX f f'
b0:= totalfun (hfiber g) (λ x : X, hfiber f' (f x))
  (hfibersgtof' f f' g g' h): (∑ y : X, hfiber g y)
→ ∑ y : X, (λ x : X, hfiber f' (f x)) y
z: Z
d (c z) = b0 (a z)
X, X', Y, Z: UU
f: X → Y
f': X' → Y
g: Z → X
g': Z → X'
hf: hfsqstr f f' g g'
x: X
is:= pr2 hf: (λ h : commsqstr g' f' g f,
 isweq (commsqZtohfp f f' g g' h)) (pr1 hf)
h:= pr1 hf: commsqstr g' f' g f
a:= weqtococonusf g: Z ≃ coconusf g
c:= make_weq (commsqZtohfp f f' g g' (pr1 hf)) is: Z ≃ hfp f f'
d:= weqhfptohfpoverX f f': hfp f f' ≃ hfpoverX f f'
b0:= totalfun (hfiber g) (λ x : X, hfiber f' (f x))
  (hfibersgtof' f f' g g' h): (∑ y : X, hfiber g y)
→ ∑ y : X, (λ x : X, hfiber f' (f x)) y
h1: ∏ z : Z, d (c z) = b0 (a z)
isweq (hfibersgtof' f f' g g' hf x) simpl.
X, X', Y, Z: UU
f: X → Y
f': X' → Y
g: Z → X
g': Z → X'
hf: hfsqstr f f' g g'
x: X
is:= pr2 hf: (λ h : commsqstr g' f' g f,
 isweq (commsqZtohfp f f' g g' h)) (pr1 hf)
h:= pr1 hf: commsqstr g' f' g f
a:= weqtococonusf g: Z ≃ coconusf g
c:= make_weq (commsqZtohfp f f' g g' (pr1 hf)) is: Z ≃ hfp f f'
d:= weqhfptohfpoverX f f': hfp f f' ≃ hfpoverX f f'
b0:= totalfun (hfiber g) (λ x : X, hfiber f' (f x))
  (hfibersgtof' f f' g g' h): (∑ y : X, hfiber g y)
→ ∑ y : X, (λ x : X, hfiber f' (f x)) y
z: Z
total2asstor (λ _ : X, X')
  (λ xx' : ∑ _ : X, X', f' (pr2 xx') = f (pr1 xx'))
  (commsqZtohfp f f' g g' (pr1 hf) z) =
b0 (tococonusf g z)
X, X', Y, Z: UU
f: X → Y
f': X' → Y
g: Z → X
g': Z → X'
hf: hfsqstr f f' g g'
x: X
is:= pr2 hf: (λ h : commsqstr g' f' g f,
 isweq (commsqZtohfp f f' g g' h)) (pr1 hf)
h:= pr1 hf: commsqstr g' f' g f
a:= weqtococonusf g: Z ≃ coconusf g
c:= make_weq (commsqZtohfp f f' g g' (pr1 hf)) is: Z ≃ hfp f f'
d:= weqhfptohfpoverX f f': hfp f f' ≃ hfpoverX f f'
b0:= totalfun (hfiber g) (λ x : X, hfiber f' (f x))
  (hfibersgtof' f f' g g' h): (∑ y : X, hfiber g y)
→ ∑ y : X, (λ x : X, hfiber f' (f x)) y
h1: ∏ z : Z, d (c z) = b0 (a z)
isweq (hfibersgtof' f f' g g' hf x) unfold b0.
X, X', Y, Z: UU
f: X → Y
f': X' → Y
g: Z → X
g': Z → X'
hf: hfsqstr f f' g g'
x: X
is:= pr2 hf: (λ h : commsqstr g' f' g f,
 isweq (commsqZtohfp f f' g g' h)) (pr1 hf)
h:= pr1 hf: commsqstr g' f' g f
a:= weqtococonusf g: Z ≃ coconusf g
c:= make_weq (commsqZtohfp f f' g g' (pr1 hf)) is: Z ≃ hfp f f'
d:= weqhfptohfpoverX f f': hfp f f' ≃ hfpoverX f f'
b0:= totalfun (hfiber g) (λ x : X, hfiber f' (f x))
  (hfibersgtof' f f' g g' h): (∑ y : X, hfiber g y)
→ ∑ y : X, (λ x : X, hfiber f' (f x)) y
z: Z
total2asstor (λ _ : X, X')
  (λ xx' : ∑ _ : X, X', f' (pr2 xx') = f (pr1 xx'))
  (commsqZtohfp f f' g g' (pr1 hf) z) =
totalfun (hfiber g) (λ x : X, hfiber f' (f x))
  (hfibersgtof' f f' g g' h) (tococonusf g z)
X, X', Y, Z: UU
f: X → Y
f': X' → Y
g: Z → X
g': Z → X'
hf: hfsqstr f f' g g'
x: X
is:= pr2 hf: (λ h : commsqstr g' f' g f,
 isweq (commsqZtohfp f f' g g' h)) (pr1 hf)
h:= pr1 hf: commsqstr g' f' g f
a:= weqtococonusf g: Z ≃ coconusf g
c:= make_weq (commsqZtohfp f f' g g' (pr1 hf)) is: Z ≃ hfp f f'
d:= weqhfptohfpoverX f f': hfp f f' ≃ hfpoverX f f'
b0:= totalfun (hfiber g) (λ x : X, hfiber f' (f x))
  (hfibersgtof' f f' g g' h): (∑ y : X, hfiber g y)
→ ∑ y : X, (λ x : X, hfiber f' (f x)) y
h1: ∏ z : Z, d (c z) = b0 (a z)
isweq (hfibersgtof' f f' g g' hf x) unfold a.
X, X', Y, Z: UU
f: X → Y
f': X' → Y
g: Z → X
g': Z → X'
hf: hfsqstr f f' g g'
x: X
is:= pr2 hf: (λ h : commsqstr g' f' g f,
 isweq (commsqZtohfp f f' g g' h)) (pr1 hf)
h:= pr1 hf: commsqstr g' f' g f
a:= weqtococonusf g: Z ≃ coconusf g
c:= make_weq (commsqZtohfp f f' g g' (pr1 hf)) is: Z ≃ hfp f f'
d:= weqhfptohfpoverX f f': hfp f f' ≃ hfpoverX f f'
b0:= totalfun (hfiber g) (λ x : X, hfiber f' (f x))
  (hfibersgtof' f f' g g' h): (∑ y : X, hfiber g y)
→ ∑ y : X, (λ x : X, hfiber f' (f x)) y
z: Z
total2asstor (λ _ : X, X')
  (λ xx' : ∑ _ : X, X', f' (pr2 xx') = f (pr1 xx'))
  (commsqZtohfp f f' g g' (pr1 hf) z) =
totalfun (hfiber g) (λ x : X, hfiber f' (f x))
  (hfibersgtof' f f' g g' h) (tococonusf g z)
X, X', Y, Z: UU
f: X → Y
f': X' → Y
g: Z → X
g': Z → X'
hf: hfsqstr f f' g g'
x: X
is:= pr2 hf: (λ h : commsqstr g' f' g f,
 isweq (commsqZtohfp f f' g g' h)) (pr1 hf)
h:= pr1 hf: commsqstr g' f' g f
a:= weqtococonusf g: Z ≃ coconusf g
c:= make_weq (commsqZtohfp f f' g g' (pr1 hf)) is: Z ≃ hfp f f'
d:= weqhfptohfpoverX f f': hfp f f' ≃ hfpoverX f f'
b0:= totalfun (hfiber g) (λ x : X, hfiber f' (f x))
  (hfibersgtof' f f' g g' h): (∑ y : X, hfiber g y)
→ ∑ y : X, (λ x : X, hfiber f' (f x)) y
h1: ∏ z : Z, d (c z) = b0 (a z)
isweq (hfibersgtof' f f' g g' hf x) unfold weqtococonusf.
X, X', Y, Z: UU
f: X → Y
f': X' → Y
g: Z → X
g': Z → X'
hf: hfsqstr f f' g g'
x: X
is:= pr2 hf: (λ h : commsqstr g' f' g f,
 isweq (commsqZtohfp f f' g g' h)) (pr1 hf)
h:= pr1 hf: commsqstr g' f' g f
a:= weqtococonusf g: Z ≃ coconusf g
c:= make_weq (commsqZtohfp f f' g g' (pr1 hf)) is: Z ≃ hfp f f'
d:= weqhfptohfpoverX f f': hfp f f' ≃ hfpoverX f f'
b0:= totalfun (hfiber g) (λ x : X, hfiber f' (f x))
  (hfibersgtof' f f' g g' h): (∑ y : X, hfiber g y)
→ ∑ y : X, (λ x : X, hfiber f' (f x)) y
z: Z
total2asstor (λ _ : X, X')
  (λ xx' : ∑ _ : X, X', f' (pr2 xx') = f (pr1 xx'))
  (commsqZtohfp f f' g g' (pr1 hf) z) =
totalfun (hfiber g) (λ x : X, hfiber f' (f x))
  (hfibersgtof' f f' g g' h) (tococonusf g z)
X, X', Y, Z: UU
f: X → Y
f': X' → Y
g: Z → X
g': Z → X'
hf: hfsqstr f f' g g'
x: X
is:= pr2 hf: (λ h : commsqstr g' f' g f,
 isweq (commsqZtohfp f f' g g' h)) (pr1 hf)
h:= pr1 hf: commsqstr g' f' g f
a:= weqtococonusf g: Z ≃ coconusf g
c:= make_weq (commsqZtohfp f f' g g' (pr1 hf)) is: Z ≃ hfp f f'
d:= weqhfptohfpoverX f f': hfp f f' ≃ hfpoverX f f'
b0:= totalfun (hfiber g) (λ x : X, hfiber f' (f x))
  (hfibersgtof' f f' g g' h): (∑ y : X, hfiber g y)
→ ∑ y : X, (λ x : X, hfiber f' (f x)) y
h1: ∏ z : Z, d (c z) = b0 (a z)
isweq (hfibersgtof' f f' g g' hf x) unfold tococonusf.
X, X', Y, Z: UU
f: X → Y
f': X' → Y
g: Z → X
g': Z → X'
hf: hfsqstr f f' g g'
x: X
is:= pr2 hf: (λ h : commsqstr g' f' g f,
 isweq (commsqZtohfp f f' g g' h)) (pr1 hf)
h:= pr1 hf: commsqstr g' f' g f
a:= weqtococonusf g: Z ≃ coconusf g
c:= make_weq (commsqZtohfp f f' g g' (pr1 hf)) is: Z ≃ hfp f f'
d:= weqhfptohfpoverX f f': hfp f f' ≃ hfpoverX f f'
b0:= totalfun (hfiber g) (λ x : X, hfiber f' (f x))
  (hfibersgtof' f f' g g' h): (∑ y : X, hfiber g y)
→ ∑ y : X, (λ x : X, hfiber f' (f x)) y
z: Z
total2asstor (λ _ : X, X')
  (λ xx' : ∑ _ : X, X', f' (pr2 xx') = f (pr1 xx'))
  (commsqZtohfp f f' g g' (pr1 hf) z) =
totalfun (hfiber g) (λ x : X, hfiber f' (f x))
  (hfibersgtof' f f' g g' h)
  (g z,, make_hfiber g z (idpath (g z)))
X, X', Y, Z: UU
f: X → Y
f': X' → Y
g: Z → X
g': Z → X'
hf: hfsqstr f f' g g'
x: X
is:= pr2 hf: (λ h : commsqstr g' f' g f,
 isweq (commsqZtohfp f f' g g' h)) (pr1 hf)
h:= pr1 hf: commsqstr g' f' g f
a:= weqtococonusf g: Z ≃ coconusf g
c:= make_weq (commsqZtohfp f f' g g' (pr1 hf)) is: Z ≃ hfp f f'
d:= weqhfptohfpoverX f f': hfp f f' ≃ hfpoverX f f'
b0:= totalfun (hfiber g) (λ x : X, hfiber f' (f x))
  (hfibersgtof' f f' g g' h): (∑ y : X, hfiber g y)
→ ∑ y : X, (λ x : X, hfiber f' (f x)) y
h1: ∏ z : Z, d (c z) = b0 (a z)
isweq (hfibersgtof' f f' g g' hf x)
  simpl.
X, X', Y, Z: UU
f: X → Y
f': X' → Y
g: Z → X
g': Z → X'
hf: hfsqstr f f' g g'
x: X
is:= pr2 hf: (λ h : commsqstr g' f' g f,
 isweq (commsqZtohfp f f' g g' h)) (pr1 hf)
h:= pr1 hf: commsqstr g' f' g f
a:= weqtococonusf g: Z ≃ coconusf g
c:= make_weq (commsqZtohfp f f' g g' (pr1 hf)) is: Z ≃ hfp f f'
d:= weqhfptohfpoverX f f': hfp f f' ≃ hfpoverX f f'
b0:= totalfun (hfiber g) (λ x : X, hfiber f' (f x))
  (hfibersgtof' f f' g g' h): (∑ y : X, hfiber g y)
→ ∑ y : X, (λ x : X, hfiber f' (f x)) y
z: Z
total2asstor (λ _ : X, X')
  (λ xx' : ∑ _ : X, X', f' (pr2 xx') = f (pr1 xx'))
  (commsqZtohfp f f' g g' (pr1 hf) z) =
totalfun (hfiber g) (λ x : X, hfiber f' (f x))
  (hfibersgtof' f f' g g' h)
  (g z,, make_hfiber g z (idpath (g z)))
X, X', Y, Z: UU
f: X → Y
f': X' → Y
g: Z → X
g': Z → X'
hf: hfsqstr f f' g g'
x: X
is:= pr2 hf: (λ h : commsqstr g' f' g f,
 isweq (commsqZtohfp f f' g g' h)) (pr1 hf)
h:= pr1 hf: commsqstr g' f' g f
a:= weqtococonusf g: Z ≃ coconusf g
c:= make_weq (commsqZtohfp f f' g g' (pr1 hf)) is: Z ≃ hfp f f'
d:= weqhfptohfpoverX f f': hfp f f' ≃ hfpoverX f f'
b0:= totalfun (hfiber g) (λ x : X, hfiber f' (f x))
  (hfibersgtof' f f' g g' h): (∑ y : X, hfiber g y)
→ ∑ y : X, (λ x : X, hfiber f' (f x)) y
h1: ∏ z : Z, d (c z) = b0 (a z)
isweq (hfibersgtof' f f' g g' hf x) unfold totalfun, total2asstor, hfibersgtof'; simpl.
X, X', Y, Z: UU
f: X → Y
f': X' → Y
g: Z → X
g': Z → X'
hf: hfsqstr f f' g g'
x: X
is:= pr2 hf: (λ h : commsqstr g' f' g f,
 isweq (commsqZtohfp f f' g g' h)) (pr1 hf)
h:= pr1 hf: commsqstr g' f' g f
a:= weqtococonusf g: Z ≃ coconusf g
c:= make_weq (commsqZtohfp f f' g g' (pr1 hf)) is: Z ≃ hfp f f'
d:= weqhfptohfpoverX f f': hfp f f' ≃ hfpoverX f f'
b0:= totalfun (hfiber g) (λ x : X, hfiber f' (f x))
  (hfibersgtof' f f' g g' h): (∑ y : X, hfiber g y)
→ ∑ y : X, (λ x : X, hfiber f' (f x)) y
z: Z
g z,, g' z,, pr1 hf z =
g z,, g' z,, h z @ idpath (f (g z))
X, X', Y, Z: UU
f: X → Y
f': X' → Y
g: Z → X
g': Z → X'
hf: hfsqstr f f' g g'
x: X
is:= pr2 hf: (λ h : commsqstr g' f' g f,
 isweq (commsqZtohfp f f' g g' h)) (pr1 hf)
h:= pr1 hf: commsqstr g' f' g f
a:= weqtococonusf g: Z ≃ coconusf g
c:= make_weq (commsqZtohfp f f' g g' (pr1 hf)) is: Z ≃ hfp f f'
d:= weqhfptohfpoverX f f': hfp f f' ≃ hfpoverX f f'
b0:= totalfun (hfiber g) (λ x : X, hfiber f' (f x))
  (hfibersgtof' f f' g g' h): (∑ y : X, hfiber g y)
→ ∑ y : X, (λ x : X, hfiber f' (f x)) y
h1: ∏ z : Z, d (c z) = b0 (a z)
isweq (hfibersgtof' f f' g g' hf x)
  assert (e : (h z) = (pathscomp0 (h z) (idpath (f (g z))))).
X, X', Y, Z: UU
f: X → Y
f': X' → Y
g: Z → X
g': Z → X'
hf: hfsqstr f f' g g'
x: X
is:= pr2 hf: (λ h : commsqstr g' f' g f,
 isweq (commsqZtohfp f f' g g' h)) (pr1 hf)
h:= pr1 hf: commsqstr g' f' g f
a:= weqtococonusf g: Z ≃ coconusf g
c:= make_weq (commsqZtohfp f f' g g' (pr1 hf)) is: Z ≃ hfp f f'
d:= weqhfptohfpoverX f f': hfp f f' ≃ hfpoverX f f'
b0:= totalfun (hfiber g) (λ x : X, hfiber f' (f x))
  (hfibersgtof' f f' g g' h): (∑ y : X, hfiber g y)
→ ∑ y : X, (λ x : X, hfiber f' (f x)) y
z: Z
h z = h z @ idpath (f (g z))
X, X', Y, Z: UU
f: X → Y
f': X' → Y
g: Z → X
g': Z → X'
hf: hfsqstr f f' g g'
x: X
is:= pr2 hf: (λ h : commsqstr g' f' g f,
 isweq (commsqZtohfp f f' g g' h)) (pr1 hf)
h:= pr1 hf: commsqstr g' f' g f
a:= weqtococonusf g: Z ≃ coconusf g
c:= make_weq (commsqZtohfp f f' g g' (pr1 hf)) is: Z ≃ hfp f f'
d:= weqhfptohfpoverX f f': hfp f f' ≃ hfpoverX f f'
b0:= totalfun (hfiber g) (λ x : X, hfiber f' (f x))
  (hfibersgtof' f f' g g' h): (∑ y : X, hfiber g y)
→ ∑ y : X, (λ x : X, hfiber f' (f x)) y
z: Z
e: h z = h z @ idpath (f (g z))
g z,, g' z,, pr1 hf z =
g z,, g' z,, h z @ idpath (f (g z))
X, X', Y, Z: UU
f: X → Y
f': X' → Y
g: Z → X
g': Z → X'
hf: hfsqstr f f' g g'
x: X
is:= pr2 hf: (λ h : commsqstr g' f' g f,
 isweq (commsqZtohfp f f' g g' h)) (pr1 hf)
h:= pr1 hf: commsqstr g' f' g f
a:= weqtococonusf g: Z ≃ coconusf g
c:= make_weq (commsqZtohfp f f' g g' (pr1 hf)) is: Z ≃ hfp f f'
d:= weqhfptohfpoverX f f': hfp f f' ≃ hfpoverX f f'
b0:= totalfun (hfiber g) (λ x : X, hfiber f' (f x))
  (hfibersgtof' f f' g g' h): (∑ y : X, hfiber g y)
→ ∑ y : X, (λ x : X, hfiber f' (f x)) y
h1: ∏ z : Z, d (c z) = b0 (a z)
isweq (hfibersgtof' f f' g g' hf x)
  apply (pathsinv0 (pathscomp0rid _)).
X, X', Y, Z: UU
f: X → Y
f': X' → Y
g: Z → X
g': Z → X'
hf: hfsqstr f f' g g'
x: X
is:= pr2 hf: (λ h : commsqstr g' f' g f,
 isweq (commsqZtohfp f f' g g' h)) (pr1 hf)
h:= pr1 hf: commsqstr g' f' g f
a:= weqtococonusf g: Z ≃ coconusf g
c:= make_weq (commsqZtohfp f f' g g' (pr1 hf)) is: Z ≃ hfp f f'
d:= weqhfptohfpoverX f f': hfp f f' ≃ hfpoverX f f'
b0:= totalfun (hfiber g) (λ x : X, hfiber f' (f x))
  (hfibersgtof' f f' g g' h): (∑ y : X, hfiber g y)
→ ∑ y : X, (λ x : X, hfiber f' (f x)) y
z: Z
e: h z = h z @ idpath (f (g z))
g z,, g' z,, pr1 hf z =
g z,, g' z,, h z @ idpath (f (g z))
X, X', Y, Z: UU
f: X → Y
f': X' → Y
g: Z → X
g': Z → X'
hf: hfsqstr f f' g g'
x: X
is:= pr2 hf: (λ h : commsqstr g' f' g f,
 isweq (commsqZtohfp f f' g g' h)) (pr1 hf)
h:= pr1 hf: commsqstr g' f' g f
a:= weqtococonusf g: Z ≃ coconusf g
c:= make_weq (commsqZtohfp f f' g g' (pr1 hf)) is: Z ≃ hfp f f'
d:= weqhfptohfpoverX f f': hfp f f' ≃ hfpoverX f f'
b0:= totalfun (hfiber g) (λ x : X, hfiber f' (f x))
  (hfibersgtof' f f' g g' h): (∑ y : X, hfiber g y)
→ ∑ y : X, (λ x : X, hfiber f' (f x)) y
h1: ∏ z : Z, d (c z) = b0 (a z)
isweq (hfibersgtof' f f' g g' hf x) induction e.
X, X', Y, Z: UU
f: X → Y
f': X' → Y
g: Z → X
g': Z → X'
hf: hfsqstr f f' g g'
x: X
is:= pr2 hf: (λ h : commsqstr g' f' g f,
 isweq (commsqZtohfp f f' g g' h)) (pr1 hf)
h:= pr1 hf: commsqstr g' f' g f
a:= weqtococonusf g: Z ≃ coconusf g
c:= make_weq (commsqZtohfp f f' g g' (pr1 hf)) is: Z ≃ hfp f f'
d:= weqhfptohfpoverX f f': hfp f f' ≃ hfpoverX f f'
b0:= totalfun (hfiber g) (λ x : X, hfiber f' (f x))
  (hfibersgtof' f f' g g' h): (∑ y : X, hfiber g y)
→ ∑ y : X, (λ x : X, hfiber f' (f x)) y
z: Z
g z,, g' z,, pr1 hf z = g z,, g' z,, h z
X, X', Y, Z: UU
f: X → Y
f': X' → Y
g: Z → X
g': Z → X'
hf: hfsqstr f f' g g'
x: X
is:= pr2 hf: (λ h : commsqstr g' f' g f,
 isweq (commsqZtohfp f f' g g' h)) (pr1 hf)
h:= pr1 hf: commsqstr g' f' g f
a:= weqtococonusf g: Z ≃ coconusf g
c:= make_weq (commsqZtohfp f f' g g' (pr1 hf)) is: Z ≃ hfp f f'
d:= weqhfptohfpoverX f f': hfp f f' ≃ hfpoverX f f'
b0:= totalfun (hfiber g) (λ x : X, hfiber f' (f x))
  (hfibersgtof' f f' g g' h): (∑ y : X, hfiber g y)
→ ∑ y : X, (λ x : X, hfiber f' (f x)) y
h1: ∏ z : Z, d (c z) = b0 (a z)
isweq (hfibersgtof' f f' g g' hf x) apply idpath.
X, X', Y, Z: UU
f: X → Y
f': X' → Y
g: Z → X
g': Z → X'
hf: hfsqstr f f' g g'
x: X
is:= pr2 hf: (λ h : commsqstr g' f' g f,
 isweq (commsqZtohfp f f' g g' h)) (pr1 hf)
h:= pr1 hf: commsqstr g' f' g f
a:= weqtococonusf g: Z ≃ coconusf g
c:= make_weq (commsqZtohfp f f' g g' (pr1 hf)) is: Z ≃ hfp f f'
d:= weqhfptohfpoverX f f': hfp f f' ≃ hfpoverX f f'
b0:= totalfun (hfiber g) (λ x : X, hfiber f' (f x))
  (hfibersgtof' f f' g g' h): (∑ y : X, hfiber g y)
→ ∑ y : X, (λ x : X, hfiber f' (f x)) y
h1: ∏ z : Z, d (c z) = b0 (a z)
isweq (hfibersgtof' f f' g g' hf x)

  assert (is1 : isweq (λ z : _, b0 (a z))).
X, X', Y, Z: UU
f: X → Y
f': X' → Y
g: Z → X
g': Z → X'
hf: hfsqstr f f' g g'
x: X
is:= pr2 hf: (λ h : commsqstr g' f' g f,
 isweq (commsqZtohfp f f' g g' h)) (pr1 hf)
h:= pr1 hf: commsqstr g' f' g f
a:= weqtococonusf g: Z ≃ coconusf g
c:= make_weq (commsqZtohfp f f' g g' (pr1 hf)) is: Z ≃ hfp f f'
d:= weqhfptohfpoverX f f': hfp f f' ≃ hfpoverX f f'
b0:= totalfun (hfiber g) (λ x : X, hfiber f' (f x))
  (hfibersgtof' f f' g g' h): (∑ y : X, hfiber g y)
→ ∑ y : X, (λ x : X, hfiber f' (f x)) y
h1: ∏ z : Z, d (c z) = b0 (a z)
isweq (λ z : Z, b0 (a z))
X, X', Y, Z: UU
f: X → Y
f': X' → Y
g: Z → X
g': Z → X'
hf: hfsqstr f f' g g'
x: X
is:= pr2 hf: (λ h : commsqstr g' f' g f,
 isweq (commsqZtohfp f f' g g' h)) (pr1 hf)
h:= pr1 hf: commsqstr g' f' g f
a:= weqtococonusf g: Z ≃ coconusf g
c:= make_weq (commsqZtohfp f f' g g' (pr1 hf)) is: Z ≃ hfp f f'
d:= weqhfptohfpoverX f f': hfp f f' ≃ hfpoverX f f'
b0:= totalfun (hfiber g) (λ x : X, hfiber f' (f x))
  (hfibersgtof' f f' g g' h): (∑ y : X, hfiber g y)
→ ∑ y : X, (λ x : X, hfiber f' (f x)) y
h1: ∏ z : Z, d (c z) = b0 (a z)
is1: isweq (λ z : Z, b0 (a z))
isweq (hfibersgtof' f f' g g' hf x)
  apply (isweqhomot _ _ h1).
X, X', Y, Z: UU
f: X → Y
f': X' → Y
g: Z → X
g': Z → X'
hf: hfsqstr f f' g g'
x: X
is:= pr2 hf: (λ h : commsqstr g' f' g f,
 isweq (commsqZtohfp f f' g g' h)) (pr1 hf)
h:= pr1 hf: commsqstr g' f' g f
a:= weqtococonusf g: Z ≃ coconusf g
c:= make_weq (commsqZtohfp f f' g g' (pr1 hf)) is: Z ≃ hfp f f'
d:= weqhfptohfpoverX f f': hfp f f' ≃ hfpoverX f f'
b0:= totalfun (hfiber g) (λ x : X, hfiber f' (f x))
  (hfibersgtof' f f' g g' h): (∑ y : X, hfiber g y)
→ ∑ y : X, (λ x : X, hfiber f' (f x)) y
h1: ∏ z : Z, d (c z) = b0 (a z)
isweq (λ z : Z, d (c z))
X, X', Y, Z: UU
f: X → Y
f': X' → Y
g: Z → X
g': Z → X'
hf: hfsqstr f f' g g'
x: X
is:= pr2 hf: (λ h : commsqstr g' f' g f,
 isweq (commsqZtohfp f f' g g' h)) (pr1 hf)
h:= pr1 hf: commsqstr g' f' g f
a:= weqtococonusf g: Z ≃ coconusf g
c:= make_weq (commsqZtohfp f f' g g' (pr1 hf)) is: Z ≃ hfp f f'
d:= weqhfptohfpoverX f f': hfp f f' ≃ hfpoverX f f'
b0:= totalfun (hfiber g) (λ x : X, hfiber f' (f x))
  (hfibersgtof' f f' g g' h): (∑ y : X, hfiber g y)
→ ∑ y : X, (λ x : X, hfiber f' (f x)) y
h1: ∏ z : Z, d (c z) = b0 (a z)
is1: isweq (λ z : Z, b0 (a z))
isweq (hfibersgtof' f f' g g' hf x) apply (twooutof3c _ _ (pr2 c) (pr2 d)).
X, X', Y, Z: UU
f: X → Y
f': X' → Y
g: Z → X
g': Z → X'
hf: hfsqstr f f' g g'
x: X
is:= pr2 hf: (λ h : commsqstr g' f' g f,
 isweq (commsqZtohfp f f' g g' h)) (pr1 hf)
h:= pr1 hf: commsqstr g' f' g f
a:= weqtococonusf g: Z ≃ coconusf g
c:= make_weq (commsqZtohfp f f' g g' (pr1 hf)) is: Z ≃ hfp f f'
d:= weqhfptohfpoverX f f': hfp f f' ≃ hfpoverX f f'
b0:= totalfun (hfiber g) (λ x : X, hfiber f' (f x))
  (hfibersgtof' f f' g g' h): (∑ y : X, hfiber g y)
→ ∑ y : X, (λ x : X, hfiber f' (f x)) y
h1: ∏ z : Z, d (c z) = b0 (a z)
is1: isweq (λ z : Z, b0 (a z))
isweq (hfibersgtof' f f' g g' hf x)

  assert (is2 : isweq b0).
X, X', Y, Z: UU
f: X → Y
f': X' → Y
g: Z → X
g': Z → X'
hf: hfsqstr f f' g g'
x: X
is:= pr2 hf: (λ h : commsqstr g' f' g f,
 isweq (commsqZtohfp f f' g g' h)) (pr1 hf)
h:= pr1 hf: commsqstr g' f' g f
a:= weqtococonusf g: Z ≃ coconusf g
c:= make_weq (commsqZtohfp f f' g g' (pr1 hf)) is: Z ≃ hfp f f'
d:= weqhfptohfpoverX f f': hfp f f' ≃ hfpoverX f f'
b0:= totalfun (hfiber g) (λ x : X, hfiber f' (f x))
  (hfibersgtof' f f' g g' h): (∑ y : X, hfiber g y)
→ ∑ y : X, (λ x : X, hfiber f' (f x)) y
h1: ∏ z : Z, d (c z) = b0 (a z)
is1: isweq (λ z : Z, b0 (a z))
isweq b0
X, X', Y, Z: UU
f: X → Y
f': X' → Y
g: Z → X
g': Z → X'
hf: hfsqstr f f' g g'
x: X
is:= pr2 hf: (λ h : commsqstr g' f' g f,
 isweq (commsqZtohfp f f' g g' h)) (pr1 hf)
h:= pr1 hf: commsqstr g' f' g f
a:= weqtococonusf g: Z ≃ coconusf g
c:= make_weq (commsqZtohfp f f' g g' (pr1 hf)) is: Z ≃ hfp f f'
d:= weqhfptohfpoverX f f': hfp f f' ≃ hfpoverX f f'
b0:= totalfun (hfiber g) (λ x : X, hfiber f' (f x))
  (hfibersgtof' f f' g g' h): (∑ y : X, hfiber g y)
→ ∑ y : X, (λ x : X, hfiber f' (f x)) y
h1: ∏ z : Z, d (c z) = b0 (a z)
is1: isweq (λ z : Z, b0 (a z))
is2: isweq b0
isweq (hfibersgtof' f f' g g' hf x)
  apply (twooutof3b _ _ (pr2 a) is1).
X, X', Y, Z: UU
f: X → Y
f': X' → Y
g: Z → X
g': Z → X'
hf: hfsqstr f f' g g'
x: X
is:= pr2 hf: (λ h : commsqstr g' f' g f,
 isweq (commsqZtohfp f f' g g' h)) (pr1 hf)
h:= pr1 hf: commsqstr g' f' g f
a:= weqtococonusf g: Z ≃ coconusf g
c:= make_weq (commsqZtohfp f f' g g' (pr1 hf)) is: Z ≃ hfp f f'
d:= weqhfptohfpoverX f f': hfp f f' ≃ hfpoverX f f'
b0:= totalfun (hfiber g) (λ x : X, hfiber f' (f x))
  (hfibersgtof' f f' g g' h): (∑ y : X, hfiber g y)
→ ∑ y : X, (λ x : X, hfiber f' (f x)) y
h1: ∏ z : Z, d (c z) = b0 (a z)
is1: isweq (λ z : Z, b0 (a z))
is2: isweq b0
isweq (hfibersgtof' f f' g g' hf x)

  apply (isweqtotaltofib _ _ _ is2 x).
Defined.

Definition weqhfibersgtof' {X X' Y Z : UU} (f : X -> Y) (f' : X' -> Y)
           (g : Z -> X) (g' : Z -> X') (hf : hfsqstr f f' g g') (x : X)
  := make_weq _ (isweqhfibersgtof' _ _ _ _ hf x).

Lemma ishfsqweqhfibersgtof' {X X' Y Z : UU} (f : X -> Y) (f' : X' -> Y)
      (g : Z -> X) (g' : Z -> X') (h : commsqstr g' f' g f)
      (is : ∏ x : X, isweq (hfibersgtof' f f' g g' h x)) : hfsqstr f f' g g'.
X, X', Y, Z: UU
f: X → Y
f': X' → Y
g: Z → X
g': Z → X'
h: commsqstr g' f' g f
is: ∏ x : X, isweq (hfibersgtof' f f' g g' h x)
hfsqstr f f' g g'
Proof.
X, X', Y, Z: UU
f: X → Y
f': X' → Y
g: Z → X
g': Z → X'
h: commsqstr g' f' g f
is: ∏ x : X, isweq (hfibersgtof' f f' g g' h x)
hfsqstr f f' g g'
  intros.
X, X', Y, Z: UU
f: X → Y
f': X' → Y
g: Z → X
g': Z → X'
h: commsqstr g' f' g f
is: ∏ x : X, isweq (hfibersgtof' f f' g g' h x)
hfsqstr f f' g g' split with h.
X, X', Y, Z: UU
f: X → Y
f': X' → Y
g: Z → X
g': Z → X'
h: commsqstr g' f' g f
is: ∏ x : X, isweq (hfibersgtof' f f' g g' h x)
isweq (commsqZtohfp f f' g g' h)
  set (a := weqtococonusf g).
X, X', Y, Z: UU
f: X → Y
f': X' → Y
g: Z → X
g': Z → X'
h: commsqstr g' f' g f
is: ∏ x : X, isweq (hfibersgtof' f f' g g' h x)
a:= weqtococonusf g: Z ≃ coconusf g
isweq (commsqZtohfp f f' g g' h)
  set (c0 := commsqZtohfp f f' g g' h).
X, X', Y, Z: UU
f: X → Y
f': X' → Y
g: Z → X
g': Z → X'
h: commsqstr g' f' g f
is: ∏ x : X, isweq (hfibersgtof' f f' g g' h x)
a:= weqtococonusf g: Z ≃ coconusf g
c0:= commsqZtohfp f f' g g' h: Z → hfp f f'
isweq c0
  set (d := weqhfptohfpoverX f f').
X, X', Y, Z: UU
f: X → Y
f': X' → Y
g: Z → X
g': Z → X'
h: commsqstr g' f' g f
is: ∏ x : X, isweq (hfibersgtof' f f' g g' h x)
a:= weqtococonusf g: Z ≃ coconusf g
c0:= commsqZtohfp f f' g g' h: Z → hfp f f'
d:= weqhfptohfpoverX f f': hfp f f' ≃ hfpoverX f f'
isweq c0
  set (b := weqfibtototal _ _ (λ x : X, make_weq _ (is x))).
X, X', Y, Z: UU
f: X → Y
f': X' → Y
g: Z → X
g': Z → X'
h: commsqstr g' f' g f
is: ∏ x : X, isweq (hfibersgtof' f f' g g' h x)
a:= weqtococonusf g: Z ≃ coconusf g
c0:= commsqZtohfp f f' g g' h: Z → hfp f f'
d:= weqhfptohfpoverX f f': hfp f f' ≃ hfpoverX f f'
b:= weqfibtototal (hfiber g) (λ x : X, hfiber f' (f x))
  (λ x : X,
   make_weq (hfibersgtof' f f' g g' h x) (is x)): (∑ x : X, hfiber g x)
≃ (∑ x : X, (λ x0 : X, hfiber f' (f x0)) x)
isweq c0

  assert (h1 : ∏ z : Z, (d (c0 z)) = (b (a z))).
X, X', Y, Z: UU
f: X → Y
f': X' → Y
g: Z → X
g': Z → X'
h: commsqstr g' f' g f
is: ∏ x : X, isweq (hfibersgtof' f f' g g' h x)
a:= weqtococonusf g: Z ≃ coconusf g
c0:= commsqZtohfp f f' g g' h: Z → hfp f f'
d:= weqhfptohfpoverX f f': hfp f f' ≃ hfpoverX f f'
b:= weqfibtototal (hfiber g) (λ x : X, hfiber f' (f x))
  (λ x : X,
   make_weq (hfibersgtof' f f' g g' h x) (is x)): (∑ x : X, hfiber g x)
≃ (∑ x : X, (λ x0 : X, hfiber f' (f x0)) x)
∏ z : Z, d (c0 z) = b (a z)
X, X', Y, Z: UU
f: X → Y
f': X' → Y
g: Z → X
g': Z → X'
h: commsqstr g' f' g f
is: ∏ x : X, isweq (hfibersgtof' f f' g g' h x)
a:= weqtococonusf g: Z ≃ coconusf g
c0:= commsqZtohfp f f' g g' h: Z → hfp f f'
d:= weqhfptohfpoverX f f': hfp f f' ≃ hfpoverX f f'
b:= weqfibtototal (hfiber g) (λ x : X, hfiber f' (f x))
  (λ x : X,
   make_weq (hfibersgtof' f f' g g' h x) (is x)): (∑ x : X, hfiber g x)
≃ (∑ x : X, (λ x0 : X, hfiber f' (f x0)) x)
h1: ∏ z : Z, d (c0 z) = b (a z)
isweq c0
  intro.
X, X', Y, Z: UU
f: X → Y
f': X' → Y
g: Z → X
g': Z → X'
h: commsqstr g' f' g f
is: ∏ x : X, isweq (hfibersgtof' f f' g g' h x)
a:= weqtococonusf g: Z ≃ coconusf g
c0:= commsqZtohfp f f' g g' h: Z → hfp f f'
d:= weqhfptohfpoverX f f': hfp f f' ≃ hfpoverX f f'
b:= weqfibtototal (hfiber g) (λ x : X, hfiber f' (f x))
  (λ x : X,
   make_weq (hfibersgtof' f f' g g' h x) (is x)): (∑ x : X, hfiber g x)
≃ (∑ x : X, (λ x0 : X, hfiber f' (f x0)) x)
z: Z
d (c0 z) = b (a z)
X, X', Y, Z: UU
f: X → Y
f': X' → Y
g: Z → X
g': Z → X'
h: commsqstr g' f' g f
is: ∏ x : X, isweq (hfibersgtof' f f' g g' h x)
a:= weqtococonusf g: Z ≃ coconusf g
c0:= commsqZtohfp f f' g g' h: Z → hfp f f'
d:= weqhfptohfpoverX f f': hfp f f' ≃ hfpoverX f f'
b:= weqfibtototal (hfiber g) (λ x : X, hfiber f' (f x))
  (λ x : X,
   make_weq (hfibersgtof' f f' g g' h x) (is x)): (∑ x : X, hfiber g x)
≃ (∑ x : X, (λ x0 : X, hfiber f' (f x0)) x)
h1: ∏ z : Z, d (c0 z) = b (a z)
isweq c0 simpl.
X, X', Y, Z: UU
f: X → Y
f': X' → Y
g: Z → X
g': Z → X'
h: commsqstr g' f' g f
is: ∏ x : X, isweq (hfibersgtof' f f' g g' h x)
a:= weqtococonusf g: Z ≃ coconusf g
c0:= commsqZtohfp f f' g g' h: Z → hfp f f'
d:= weqhfptohfpoverX f f': hfp f f' ≃ hfpoverX f f'
b:= weqfibtototal (hfiber g) (λ x : X, hfiber f' (f x))
  (λ x : X,
   make_weq (hfibersgtof' f f' g g' h x) (is x)): (∑ x : X, hfiber g x)
≃ (∑ x : X, (λ x0 : X, hfiber f' (f x0)) x)
z: Z
total2asstor (λ _ : X, X')
  (λ xx' : ∑ _ : X, X', f' (pr2 xx') = f (pr1 xx'))
  (c0 z) =
totalfun (hfiber g) (λ x : X, hfiber f' (f x))
  (λ x : X, hfibersgtof' f f' g g' h x)
  (tococonusf g z)
X, X', Y, Z: UU
f: X → Y
f': X' → Y
g: Z → X
g': Z → X'
h: commsqstr g' f' g f
is: ∏ x : X, isweq (hfibersgtof' f f' g g' h x)
a:= weqtococonusf g: Z ≃ coconusf g
c0:= commsqZtohfp f f' g g' h: Z → hfp f f'
d:= weqhfptohfpoverX f f': hfp f f' ≃ hfpoverX f f'
b:= weqfibtototal (hfiber g) (λ x : X, hfiber f' (f x))
  (λ x : X,
   make_weq (hfibersgtof' f f' g g' h x) (is x)): (∑ x : X, hfiber g x)
≃ (∑ x : X, (λ x0 : X, hfiber f' (f x0)) x)
h1: ∏ z : Z, d (c0 z) = b (a z)
isweq c0 unfold b.
X, X', Y, Z: UU
f: X → Y
f': X' → Y
g: Z → X
g': Z → X'
h: commsqstr g' f' g f
is: ∏ x : X, isweq (hfibersgtof' f f' g g' h x)
a:= weqtococonusf g: Z ≃ coconusf g
c0:= commsqZtohfp f f' g g' h: Z → hfp f f'
d:= weqhfptohfpoverX f f': hfp f f' ≃ hfpoverX f f'
b:= weqfibtototal (hfiber g) (λ x : X, hfiber f' (f x))
  (λ x : X,
   make_weq (hfibersgtof' f f' g g' h x) (is x)): (∑ x : X, hfiber g x)
≃ (∑ x : X, (λ x0 : X, hfiber f' (f x0)) x)
z: Z
total2asstor (λ _ : X, X')
  (λ xx' : ∑ _ : X, X', f' (pr2 xx') = f (pr1 xx'))
  (c0 z) =
totalfun (hfiber g) (λ x : X, hfiber f' (f x))
  (λ x : X, hfibersgtof' f f' g g' h x)
  (tococonusf g z)
X, X', Y, Z: UU
f: X → Y
f': X' → Y
g: Z → X
g': Z → X'
h: commsqstr g' f' g f
is: ∏ x : X, isweq (hfibersgtof' f f' g g' h x)
a:= weqtococonusf g: Z ≃ coconusf g
c0:= commsqZtohfp f f' g g' h: Z → hfp f f'
d:= weqhfptohfpoverX f f': hfp f f' ≃ hfpoverX f f'
b:= weqfibtototal (hfiber g) (λ x : X, hfiber f' (f x))
  (λ x : X,
   make_weq (hfibersgtof' f f' g g' h x) (is x)): (∑ x : X, hfiber g x)
≃ (∑ x : X, (λ x0 : X, hfiber f' (f x0)) x)
h1: ∏ z : Z, d (c0 z) = b (a z)
isweq c0 unfold a.
X, X', Y, Z: UU
f: X → Y
f': X' → Y
g: Z → X
g': Z → X'
h: commsqstr g' f' g f
is: ∏ x : X, isweq (hfibersgtof' f f' g g' h x)
a:= weqtococonusf g: Z ≃ coconusf g
c0:= commsqZtohfp f f' g g' h: Z → hfp f f'
d:= weqhfptohfpoverX f f': hfp f f' ≃ hfpoverX f f'
b:= weqfibtototal (hfiber g) (λ x : X, hfiber f' (f x))
  (λ x : X,
   make_weq (hfibersgtof' f f' g g' h x) (is x)): (∑ x : X, hfiber g x)
≃ (∑ x : X, (λ x0 : X, hfiber f' (f x0)) x)
z: Z
total2asstor (λ _ : X, X')
  (λ xx' : ∑ _ : X, X', f' (pr2 xx') = f (pr1 xx'))
  (c0 z) =
totalfun (hfiber g) (λ x : X, hfiber f' (f x))
  (λ x : X, hfibersgtof' f f' g g' h x)
  (tococonusf g z)
X, X', Y, Z: UU
f: X → Y
f': X' → Y
g: Z → X
g': Z → X'
h: commsqstr g' f' g f
is: ∏ x : X, isweq (hfibersgtof' f f' g g' h x)
a:= weqtococonusf g: Z ≃ coconusf g
c0:= commsqZtohfp f f' g g' h: Z → hfp f f'
d:= weqhfptohfpoverX f f': hfp f f' ≃ hfpoverX f f'
b:= weqfibtototal (hfiber g) (λ x : X, hfiber f' (f x))
  (λ x : X,
   make_weq (hfibersgtof' f f' g g' h x) (is x)): (∑ x : X, hfiber g x)
≃ (∑ x : X, (λ x0 : X, hfiber f' (f x0)) x)
h1: ∏ z : Z, d (c0 z) = b (a z)
isweq c0 unfold weqtococonusf.
X, X', Y, Z: UU
f: X → Y
f': X' → Y
g: Z → X
g': Z → X'
h: commsqstr g' f' g f
is: ∏ x : X, isweq (hfibersgtof' f f' g g' h x)
a:= weqtococonusf g: Z ≃ coconusf g
c0:= commsqZtohfp f f' g g' h: Z → hfp f f'
d:= weqhfptohfpoverX f f': hfp f f' ≃ hfpoverX f f'
b:= weqfibtototal (hfiber g) (λ x : X, hfiber f' (f x))
  (λ x : X,
   make_weq (hfibersgtof' f f' g g' h x) (is x)): (∑ x : X, hfiber g x)
≃ (∑ x : X, (λ x0 : X, hfiber f' (f x0)) x)
z: Z
total2asstor (λ _ : X, X')
  (λ xx' : ∑ _ : X, X', f' (pr2 xx') = f (pr1 xx'))
  (c0 z) =
totalfun (hfiber g) (λ x : X, hfiber f' (f x))
  (λ x : X, hfibersgtof' f f' g g' h x)
  (tococonusf g z)
X, X', Y, Z: UU
f: X → Y
f': X' → Y
g: Z → X
g': Z → X'
h: commsqstr g' f' g f
is: ∏ x : X, isweq (hfibersgtof' f f' g g' h x)
a:= weqtococonusf g: Z ≃ coconusf g
c0:= commsqZtohfp f f' g g' h: Z → hfp f f'
d:= weqhfptohfpoverX f f': hfp f f' ≃ hfpoverX f f'
b:= weqfibtototal (hfiber g) (λ x : X, hfiber f' (f x))
  (λ x : X,
   make_weq (hfibersgtof' f f' g g' h x) (is x)): (∑ x : X, hfiber g x)
≃ (∑ x : X, (λ x0 : X, hfiber f' (f x0)) x)
h1: ∏ z : Z, d (c0 z) = b (a z)
isweq c0 unfold tococonusf.
X, X', Y, Z: UU
f: X → Y
f': X' → Y
g: Z → X
g': Z → X'
h: commsqstr g' f' g f
is: ∏ x : X, isweq (hfibersgtof' f f' g g' h x)
a:= weqtococonusf g: Z ≃ coconusf g
c0:= commsqZtohfp f f' g g' h: Z → hfp f f'
d:= weqhfptohfpoverX f f': hfp f f' ≃ hfpoverX f f'
b:= weqfibtototal (hfiber g) (λ x : X, hfiber f' (f x))
  (λ x : X,
   make_weq (hfibersgtof' f f' g g' h x) (is x)): (∑ x : X, hfiber g x)
≃ (∑ x : X, (λ x0 : X, hfiber f' (f x0)) x)
z: Z
total2asstor (λ _ : X, X')
  (λ xx' : ∑ _ : X, X', f' (pr2 xx') = f (pr1 xx'))
  (c0 z) =
totalfun (hfiber g) (λ x : X, hfiber f' (f x))
  (λ x : X, hfibersgtof' f f' g g' h x)
  (g z,, make_hfiber g z (idpath (g z)))
X, X', Y, Z: UU
f: X → Y
f': X' → Y
g: Z → X
g': Z → X'
h: commsqstr g' f' g f
is: ∏ x : X, isweq (hfibersgtof' f f' g g' h x)
a:= weqtococonusf g: Z ≃ coconusf g
c0:= commsqZtohfp f f' g g' h: Z → hfp f f'
d:= weqhfptohfpoverX f f': hfp f f' ≃ hfpoverX f f'
b:= weqfibtototal (hfiber g) (λ x : X, hfiber f' (f x))
  (λ x : X,
   make_weq (hfibersgtof' f f' g g' h x) (is x)): (∑ x : X, hfiber g x)
≃ (∑ x : X, (λ x0 : X, hfiber f' (f x0)) x)
h1: ∏ z : Z, d (c0 z) = b (a z)
isweq c0
  simpl.
X, X', Y, Z: UU
f: X → Y
f': X' → Y
g: Z → X
g': Z → X'
h: commsqstr g' f' g f
is: ∏ x : X, isweq (hfibersgtof' f f' g g' h x)
a:= weqtococonusf g: Z ≃ coconusf g
c0:= commsqZtohfp f f' g g' h: Z → hfp f f'
d:= weqhfptohfpoverX f f': hfp f f' ≃ hfpoverX f f'
b:= weqfibtototal (hfiber g) (λ x : X, hfiber f' (f x))
  (λ x : X,
   make_weq (hfibersgtof' f f' g g' h x) (is x)): (∑ x : X, hfiber g x)
≃ (∑ x : X, (λ x0 : X, hfiber f' (f x0)) x)
z: Z
total2asstor (λ _ : X, X')
  (λ xx' : ∑ _ : X, X', f' (pr2 xx') = f (pr1 xx'))
  (c0 z) =
totalfun (hfiber g) (λ x : X, hfiber f' (f x))
  (λ x : X, hfibersgtof' f f' g g' h x)
  (g z,, make_hfiber g z (idpath (g z)))
X, X', Y, Z: UU
f: X → Y
f': X' → Y
g: Z → X
g': Z → X'
h: commsqstr g' f' g f
is: ∏ x : X, isweq (hfibersgtof' f f' g g' h x)
a:= weqtococonusf g: Z ≃ coconusf g
c0:= commsqZtohfp f f' g g' h: Z → hfp f f'
d:= weqhfptohfpoverX f f': hfp f f' ≃ hfpoverX f f'
b:= weqfibtototal (hfiber g) (λ x : X, hfiber f' (f x))
  (λ x : X,
   make_weq (hfibersgtof' f f' g g' h x) (is x)): (∑ x : X, hfiber g x)
≃ (∑ x : X, (λ x0 : X, hfiber f' (f x0)) x)
h1: ∏ z : Z, d (c0 z) = b (a z)
isweq c0 unfold totalfun, total2asstor, hfibersgtof'; simpl.
X, X', Y, Z: UU
f: X → Y
f': X' → Y
g: Z → X
g': Z → X'
h: commsqstr g' f' g f
is: ∏ x : X, isweq (hfibersgtof' f f' g g' h x)
a:= weqtococonusf g: Z ≃ coconusf g
c0:= commsqZtohfp f f' g g' h: Z → hfp f f'
d:= weqhfptohfpoverX f f': hfp f f' ≃ hfpoverX f f'
b:= weqfibtototal (hfiber g) (λ x : X, hfiber f' (f x))
  (λ x : X,
   make_weq (hfibersgtof' f f' g g' h x) (is x)): (∑ x : X, hfiber g x)
≃ (∑ x : X, (λ x0 : X, hfiber f' (f x0)) x)
z: Z
g z,, g' z,, h z = g z,, g' z,, h z @ idpath (f (g z))
X, X', Y, Z: UU
f: X → Y
f': X' → Y
g: Z → X
g': Z → X'
h: commsqstr g' f' g f
is: ∏ x : X, isweq (hfibersgtof' f f' g g' h x)
a:= weqtococonusf g: Z ≃ coconusf g
c0:= commsqZtohfp f f' g g' h: Z → hfp f f'
d:= weqhfptohfpoverX f f': hfp f f' ≃ hfpoverX f f'
b:= weqfibtototal (hfiber g) (λ x : X, hfiber f' (f x))
  (λ x : X,
   make_weq (hfibersgtof' f f' g g' h x) (is x)): (∑ x : X, hfiber g x)
≃ (∑ x : X, (λ x0 : X, hfiber f' (f x0)) x)
h1: ∏ z : Z, d (c0 z) = b (a z)
isweq c0
  assert (e : (h z) = (pathscomp0 (h z) (idpath (f (g z))))).
X, X', Y, Z: UU
f: X → Y
f': X' → Y
g: Z → X
g': Z → X'
h: commsqstr g' f' g f
is: ∏ x : X, isweq (hfibersgtof' f f' g g' h x)
a:= weqtococonusf g: Z ≃ coconusf g
c0:= commsqZtohfp f f' g g' h: Z → hfp f f'
d:= weqhfptohfpoverX f f': hfp f f' ≃ hfpoverX f f'
b:= weqfibtototal (hfiber g) (λ x : X, hfiber f' (f x))
  (λ x : X,
   make_weq (hfibersgtof' f f' g g' h x) (is x)): (∑ x : X, hfiber g x)
≃ (∑ x : X, (λ x0 : X, hfiber f' (f x0)) x)
z: Z
h z = h z @ idpath (f (g z))
X, X', Y, Z: UU
f: X → Y
f': X' → Y
g: Z → X
g': Z → X'
h: commsqstr g' f' g f
is: ∏ x : X, isweq (hfibersgtof' f f' g g' h x)
a:= weqtococonusf g: Z ≃ coconusf g
c0:= commsqZtohfp f f' g g' h: Z → hfp f f'
d:= weqhfptohfpoverX f f': hfp f f' ≃ hfpoverX f f'
b:= weqfibtototal (hfiber g) (λ x : X, hfiber f' (f x))
  (λ x : X,
   make_weq (hfibersgtof' f f' g g' h x) (is x)): (∑ x : X, hfiber g x)
≃ (∑ x : X, (λ x0 : X, hfiber f' (f x0)) x)
z: Z
e: h z = h z @ idpath (f (g z))
g z,, g' z,, h z = g z,, g' z,, h z @ idpath (f (g z))
X, X', Y, Z: UU
f: X → Y
f': X' → Y
g: Z → X
g': Z → X'
h: commsqstr g' f' g f
is: ∏ x : X, isweq (hfibersgtof' f f' g g' h x)
a:= weqtococonusf g: Z ≃ coconusf g
c0:= commsqZtohfp f f' g g' h: Z → hfp f f'
d:= weqhfptohfpoverX f f': hfp f f' ≃ hfpoverX f f'
b:= weqfibtototal (hfiber g) (λ x : X, hfiber f' (f x))
  (λ x : X,
   make_weq (hfibersgtof' f f' g g' h x) (is x)): (∑ x : X, hfiber g x)
≃ (∑ x : X, (λ x0 : X, hfiber f' (f x0)) x)
h1: ∏ z : Z, d (c0 z) = b (a z)
isweq c0
  apply (pathsinv0 (pathscomp0rid _)).
X, X', Y, Z: UU
f: X → Y
f': X' → Y
g: Z → X
g': Z → X'
h: commsqstr g' f' g f
is: ∏ x : X, isweq (hfibersgtof' f f' g g' h x)
a:= weqtococonusf g: Z ≃ coconusf g
c0:= commsqZtohfp f f' g g' h: Z → hfp f f'
d:= weqhfptohfpoverX f f': hfp f f' ≃ hfpoverX f f'
b:= weqfibtototal (hfiber g) (λ x : X, hfiber f' (f x))
  (λ x : X,
   make_weq (hfibersgtof' f f' g g' h x) (is x)): (∑ x : X, hfiber g x)
≃ (∑ x : X, (λ x0 : X, hfiber f' (f x0)) x)
z: Z
e: h z = h z @ idpath (f (g z))
g z,, g' z,, h z = g z,, g' z,, h z @ idpath (f (g z))
X, X', Y, Z: UU
f: X → Y
f': X' → Y
g: Z → X
g': Z → X'
h: commsqstr g' f' g f
is: ∏ x : X, isweq (hfibersgtof' f f' g g' h x)
a:= weqtococonusf g: Z ≃ coconusf g
c0:= commsqZtohfp f f' g g' h: Z → hfp f f'
d:= weqhfptohfpoverX f f': hfp f f' ≃ hfpoverX f f'
b:= weqfibtototal (hfiber g) (λ x : X, hfiber f' (f x))
  (λ x : X,
   make_weq (hfibersgtof' f f' g g' h x) (is x)): (∑ x : X, hfiber g x)
≃ (∑ x : X, (λ x0 : X, hfiber f' (f x0)) x)
h1: ∏ z : Z, d (c0 z) = b (a z)
isweq c0 induction e.
X, X', Y, Z: UU
f: X → Y
f': X' → Y
g: Z → X
g': Z → X'
h: commsqstr g' f' g f
is: ∏ x : X, isweq (hfibersgtof' f f' g g' h x)
a:= weqtococonusf g: Z ≃ coconusf g
c0:= commsqZtohfp f f' g g' h: Z → hfp f f'
d:= weqhfptohfpoverX f f': hfp f f' ≃ hfpoverX f f'
b:= weqfibtototal (hfiber g) (λ x : X, hfiber f' (f x))
  (λ x : X,
   make_weq (hfibersgtof' f f' g g' h x) (is x)): (∑ x : X, hfiber g x)
≃ (∑ x : X, (λ x0 : X, hfiber f' (f x0)) x)
z: Z
g z,, g' z,, h z = g z,, g' z,, h z
X, X', Y, Z: UU
f: X → Y
f': X' → Y
g: Z → X
g': Z → X'
h: commsqstr g' f' g f
is: ∏ x : X, isweq (hfibersgtof' f f' g g' h x)
a:= weqtococonusf g: Z ≃ coconusf g
c0:= commsqZtohfp f f' g g' h: Z → hfp f f'
d:= weqhfptohfpoverX f f': hfp f f' ≃ hfpoverX f f'
b:= weqfibtototal (hfiber g) (λ x : X, hfiber f' (f x))
  (λ x : X,
   make_weq (hfibersgtof' f f' g g' h x) (is x)): (∑ x : X, hfiber g x)
≃ (∑ x : X, (λ x0 : X, hfiber f' (f x0)) x)
h1: ∏ z : Z, d (c0 z) = b (a z)
isweq c0 apply idpath.
X, X', Y, Z: UU
f: X → Y
f': X' → Y
g: Z → X
g': Z → X'
h: commsqstr g' f' g f
is: ∏ x : X, isweq (hfibersgtof' f f' g g' h x)
a:= weqtococonusf g: Z ≃ coconusf g
c0:= commsqZtohfp f f' g g' h: Z → hfp f f'
d:= weqhfptohfpoverX f f': hfp f f' ≃ hfpoverX f f'
b:= weqfibtototal (hfiber g) (λ x : X, hfiber f' (f x))
  (λ x : X,
   make_weq (hfibersgtof' f f' g g' h x) (is x)): (∑ x : X, hfiber g x)
≃ (∑ x : X, (λ x0 : X, hfiber f' (f x0)) x)
h1: ∏ z : Z, d (c0 z) = b (a z)
isweq c0

  assert (is1 : isweq (λ z : _, d (c0 z))).
X, X', Y, Z: UU
f: X → Y
f': X' → Y
g: Z → X
g': Z → X'
h: commsqstr g' f' g f
is: ∏ x : X, isweq (hfibersgtof' f f' g g' h x)
a:= weqtococonusf g: Z ≃ coconusf g
c0:= commsqZtohfp f f' g g' h: Z → hfp f f'
d:= weqhfptohfpoverX f f': hfp f f' ≃ hfpoverX f f'
b:= weqfibtototal (hfiber g) (λ x : X, hfiber f' (f x))
  (λ x : X,
   make_weq (hfibersgtof' f f' g g' h x) (is x)): (∑ x : X, hfiber g x)
≃ (∑ x : X, (λ x0 : X, hfiber f' (f x0)) x)
h1: ∏ z : Z, d (c0 z) = b (a z)
isweq (λ z : Z, d (c0 z))
X, X', Y, Z: UU
f: X → Y
f': X' → Y
g: Z → X
g': Z → X'
h: commsqstr g' f' g f
is: ∏ x : X, isweq (hfibersgtof' f f' g g' h x)
a:= weqtococonusf g: Z ≃ coconusf g
c0:= commsqZtohfp f f' g g' h: Z → hfp f f'
d:= weqhfptohfpoverX f f': hfp f f' ≃ hfpoverX f f'
b:= weqfibtototal (hfiber g) (λ x : X, hfiber f' (f x))
  (λ x : X,
   make_weq (hfibersgtof' f f' g g' h x) (is x)): (∑ x : X, hfiber g x)
≃ (∑ x : X, (λ x0 : X, hfiber f' (f x0)) x)
h1: ∏ z : Z, d (c0 z) = b (a z)
is1: isweq (λ z : Z, d (c0 z))
isweq c0
  apply (isweqhomot _ _ (λ z : Z, (pathsinv0 (h1 z)))).
X, X', Y, Z: UU
f: X → Y
f': X' → Y
g: Z → X
g': Z → X'
h: commsqstr g' f' g f
is: ∏ x : X, isweq (hfibersgtof' f f' g g' h x)
a:= weqtococonusf g: Z ≃ coconusf g
c0:= commsqZtohfp f f' g g' h: Z → hfp f f'
d:= weqhfptohfpoverX f f': hfp f f' ≃ hfpoverX f f'
b:= weqfibtototal (hfiber g) (λ x : X, hfiber f' (f x))
  (λ x : X,
   make_weq (hfibersgtof' f f' g g' h x) (is x)): (∑ x : X, hfiber g x)
≃ (∑ x : X, (λ x0 : X, hfiber f' (f x0)) x)
h1: ∏ z : Z, d (c0 z) = b (a z)
isweq (λ z : Z, b (a z))
X, X', Y, Z: UU
f: X → Y
f': X' → Y
g: Z → X
g': Z → X'
h: commsqstr g' f' g f
is: ∏ x : X, isweq (hfibersgtof' f f' g g' h x)
a:= weqtococonusf g: Z ≃ coconusf g
c0:= commsqZtohfp f f' g g' h: Z → hfp f f'
d:= weqhfptohfpoverX f f': hfp f f' ≃ hfpoverX f f'
b:= weqfibtototal (hfiber g) (λ x : X, hfiber f' (f x))
  (λ x : X,
   make_weq (hfibersgtof' f f' g g' h x) (is x)): (∑ x : X, hfiber g x)
≃ (∑ x : X, (λ x0 : X, hfiber f' (f x0)) x)
h1: ∏ z : Z, d (c0 z) = b (a z)
is1: isweq (λ z : Z, d (c0 z))
isweq c0
  apply (twooutof3c _ _ (pr2 a) (pr2 b)).
X, X', Y, Z: UU
f: X → Y
f': X' → Y
g: Z → X
g': Z → X'
h: commsqstr g' f' g f
is: ∏ x : X, isweq (hfibersgtof' f f' g g' h x)
a:= weqtococonusf g: Z ≃ coconusf g
c0:= commsqZtohfp f f' g g' h: Z → hfp f f'
d:= weqhfptohfpoverX f f': hfp f f' ≃ hfpoverX f f'
b:= weqfibtototal (hfiber g) (λ x : X, hfiber f' (f x))
  (λ x : X,
   make_weq (hfibersgtof' f f' g g' h x) (is x)): (∑ x : X, hfiber g x)
≃ (∑ x : X, (λ x0 : X, hfiber f' (f x0)) x)
h1: ∏ z : Z, d (c0 z) = b (a z)
is1: isweq (λ z : Z, d (c0 z))
isweq c0

  apply (twooutof3a _ _ is1 (pr2 d)).
Defined.

Lemma isweqhfibersg'tof {X X' Y Z : UU} (f : X -> Y) (f' : X' -> Y) (g : Z -> X)
      (g' : Z -> X') (hf : hfsqstr f f' g g') (x' : X') :
  isweq (hfibersg'tof f f' g g' hf x').
X, X', Y, Z: UU
f: X → Y
f': X' → Y
g: Z → X
g': Z → X'
hf: hfsqstr f f' g g'
x': X'
isweq (hfibersg'tof f f' g g' hf x')
Proof.
X, X', Y, Z: UU
f: X → Y
f': X' → Y
g: Z → X
g': Z → X'
hf: hfsqstr f f' g g'
x': X'
isweq (hfibersg'tof f f' g g' hf x')
  intros.
X, X', Y, Z: UU
f: X → Y
f': X' → Y
g: Z → X
g': Z → X'
hf: hfsqstr f f' g g'
x': X'
isweq (hfibersg'tof f f' g g' hf x')
  set (is := pr2 hf).
X, X', Y, Z: UU
f: X → Y
f': X' → Y
g: Z → X
g': Z → X'
hf: hfsqstr f f' g g'
x': X'
is:= pr2 hf: (λ h : commsqstr g' f' g f,
 isweq (commsqZtohfp f f' g g' h)) (pr1 hf)
isweq (hfibersg'tof f f' g g' hf x')
  set (h := pr1 hf).
X, X', Y, Z: UU
f: X → Y
f': X' → Y
g: Z → X
g': Z → X'
hf: hfsqstr f f' g g'
x': X'
is:= pr2 hf: (λ h : commsqstr g' f' g f,
 isweq (commsqZtohfp f f' g g' h)) (pr1 hf)
h:= pr1 hf: commsqstr g' f' g f
isweq (hfibersg'tof f f' g g' hf x')
  set (a' := weqtococonusf g').
X, X', Y, Z: UU
f: X → Y
f': X' → Y
g: Z → X
g': Z → X'
hf: hfsqstr f f' g g'
x': X'
is:= pr2 hf: (λ h : commsqstr g' f' g f,
 isweq (commsqZtohfp f f' g g' h)) (pr1 hf)
h:= pr1 hf: commsqstr g' f' g f
a':= weqtococonusf g': Z ≃ coconusf g'
isweq (hfibersg'tof f f' g g' hf x')
  set (c' := make_weq _ is).
X, X', Y, Z: UU
f: X → Y
f': X' → Y
g: Z → X
g': Z → X'
hf: hfsqstr f f' g g'
x': X'
is:= pr2 hf: (λ h : commsqstr g' f' g f,
 isweq (commsqZtohfp f f' g g' h)) (pr1 hf)
h:= pr1 hf: commsqstr g' f' g f
a':= weqtococonusf g': Z ≃ coconusf g'
c':= make_weq (commsqZtohfp f f' g g' (pr1 hf)) is: Z ≃ hfp f f'
isweq (hfibersg'tof f f' g g' hf x')
  set (d' := weqhfptohfpoverX' f f').
X, X', Y, Z: UU
f: X → Y
f': X' → Y
g: Z → X
g': Z → X'
hf: hfsqstr f f' g g'
x': X'
is:= pr2 hf: (λ h : commsqstr g' f' g f,
 isweq (commsqZtohfp f f' g g' h)) (pr1 hf)
h:= pr1 hf: commsqstr g' f' g f
a':= weqtococonusf g': Z ≃ coconusf g'
c':= make_weq (commsqZtohfp f f' g g' (pr1 hf)) is: Z ≃ hfp f f'
d':= weqhfptohfpoverX' f f': hfp f f' ≃ hfpoverX' f f'
isweq (hfibersg'tof f f' g g' hf x')
  set (b0' := totalfun _ _ (hfibersg'tof f f' g g' h)).
X, X', Y, Z: UU
f: X → Y
f': X' → Y
g: Z → X
g': Z → X'
hf: hfsqstr f f' g g'
x': X'
is:= pr2 hf: (λ h : commsqstr g' f' g f,
 isweq (commsqZtohfp f f' g g' h)) (pr1 hf)
h:= pr1 hf: commsqstr g' f' g f
a':= weqtococonusf g': Z ≃ coconusf g'
c':= make_weq (commsqZtohfp f f' g g' (pr1 hf)) is: Z ≃ hfp f f'
d':= weqhfptohfpoverX' f f': hfp f f' ≃ hfpoverX' f f'
b0':= totalfun (hfiber g')
  (λ x' : X', hfiber f (f' x'))
  (hfibersg'tof f f' g g' h): (∑ y : X', hfiber g' y) → ∑ y : X', (λ x' : X', hfiber f (f' x')) y
isweq (hfibersg'tof f f' g g' hf x')

  assert (h1 : ∏ z : Z, (d' (c' z)) = (b0' (a' z))).
X, X', Y, Z: UU
f: X → Y
f': X' → Y
g: Z → X
g': Z → X'
hf: hfsqstr f f' g g'
x': X'
is:= pr2 hf: (λ h : commsqstr g' f' g f,
 isweq (commsqZtohfp f f' g g' h)) (pr1 hf)
h:= pr1 hf: commsqstr g' f' g f
a':= weqtococonusf g': Z ≃ coconusf g'
c':= make_weq (commsqZtohfp f f' g g' (pr1 hf)) is: Z ≃ hfp f f'
d':= weqhfptohfpoverX' f f': hfp f f' ≃ hfpoverX' f f'
b0':= totalfun (hfiber g')
  (λ x' : X', hfiber f (f' x'))
  (hfibersg'tof f f' g g' h): (∑ y : X', hfiber g' y) → ∑ y : X', (λ x' : X', hfiber f (f' x')) y
∏ z : Z, d' (c' z) = b0' (a' z)
X, X', Y, Z: UU
f: X → Y
f': X' → Y
g: Z → X
g': Z → X'
hf: hfsqstr f f' g g'
x': X'
is:= pr2 hf: (λ h : commsqstr g' f' g f,
 isweq (commsqZtohfp f f' g g' h)) (pr1 hf)
h:= pr1 hf: commsqstr g' f' g f
a':= weqtococonusf g': Z ≃ coconusf g'
c':= make_weq (commsqZtohfp f f' g g' (pr1 hf)) is: Z ≃ hfp f f'
d':= weqhfptohfpoverX' f f': hfp f f' ≃ hfpoverX' f f'
b0':= totalfun (hfiber g')
  (λ x' : X', hfiber f (f' x'))
  (hfibersg'tof f f' g g' h): (∑ y : X', hfiber g' y) → ∑ y : X', (λ x' : X', hfiber f (f' x')) y
h1: ∏ z : Z, d' (c' z) = b0' (a' z)
isweq (hfibersg'tof f f' g g' hf x')
  intro.
X, X', Y, Z: UU
f: X → Y
f': X' → Y
g: Z → X
g': Z → X'
hf: hfsqstr f f' g g'
x': X'
is:= pr2 hf: (λ h : commsqstr g' f' g f,
 isweq (commsqZtohfp f f' g g' h)) (pr1 hf)
h:= pr1 hf: commsqstr g' f' g f
a':= weqtococonusf g': Z ≃ coconusf g'
c':= make_weq (commsqZtohfp f f' g g' (pr1 hf)) is: Z ≃ hfp f f'
d':= weqhfptohfpoverX' f f': hfp f f' ≃ hfpoverX' f f'
b0':= totalfun (hfiber g')
  (λ x' : X', hfiber f (f' x'))
  (hfibersg'tof f f' g g' h): (∑ y : X', hfiber g' y) → ∑ y : X', (λ x' : X', hfiber f (f' x')) y
z: Z
d' (c' z) = b0' (a' z)
X, X', Y, Z: UU
f: X → Y
f': X' → Y
g: Z → X
g': Z → X'
hf: hfsqstr f f' g g'
x': X'
is:= pr2 hf: (λ h : commsqstr g' f' g f,
 isweq (commsqZtohfp f f' g g' h)) (pr1 hf)
h:= pr1 hf: commsqstr g' f' g f
a':= weqtococonusf g': Z ≃ coconusf g'
c':= make_weq (commsqZtohfp f f' g g' (pr1 hf)) is: Z ≃ hfp f f'
d':= weqhfptohfpoverX' f f': hfp f f' ≃ hfpoverX' f f'
b0':= totalfun (hfiber g')
  (λ x' : X', hfiber f (f' x'))
  (hfibersg'tof f f' g g' h): (∑ y : X', hfiber g' y) → ∑ y : X', (λ x' : X', hfiber f (f' x')) y
h1: ∏ z : Z, d' (c' z) = b0' (a' z)
isweq (hfibersg'tof f f' g g' hf x') unfold b0'.
X, X', Y, Z: UU
f: X → Y
f': X' → Y
g: Z → X
g': Z → X'
hf: hfsqstr f f' g g'
x': X'
is:= pr2 hf: (λ h : commsqstr g' f' g f,
 isweq (commsqZtohfp f f' g g' h)) (pr1 hf)
h:= pr1 hf: commsqstr g' f' g f
a':= weqtococonusf g': Z ≃ coconusf g'
c':= make_weq (commsqZtohfp f f' g g' (pr1 hf)) is: Z ≃ hfp f f'
d':= weqhfptohfpoverX' f f': hfp f f' ≃ hfpoverX' f f'
b0':= totalfun (hfiber g')
  (λ x' : X', hfiber f (f' x'))
  (hfibersg'tof f f' g g' h): (∑ y : X', hfiber g' y) → ∑ y : X', (λ x' : X', hfiber f (f' x')) y
z: Z
d' (c' z) =
totalfun (hfiber g') (λ x' : X', hfiber f (f' x'))
  (hfibersg'tof f f' g g' h) (a' z)
X, X', Y, Z: UU
f: X → Y
f': X' → Y
g: Z → X
g': Z → X'
hf: hfsqstr f f' g g'
x': X'
is:= pr2 hf: (λ h : commsqstr g' f' g f,
 isweq (commsqZtohfp f f' g g' h)) (pr1 hf)
h:= pr1 hf: commsqstr g' f' g f
a':= weqtococonusf g': Z ≃ coconusf g'
c':= make_weq (commsqZtohfp f f' g g' (pr1 hf)) is: Z ≃ hfp f f'
d':= weqhfptohfpoverX' f f': hfp f f' ≃ hfpoverX' f f'
b0':= totalfun (hfiber g')
  (λ x' : X', hfiber f (f' x'))
  (hfibersg'tof f f' g g' h): (∑ y : X', hfiber g' y) → ∑ y : X', (λ x' : X', hfiber f (f' x')) y
h1: ∏ z : Z, d' (c' z) = b0' (a' z)
isweq (hfibersg'tof f f' g g' hf x') unfold a'.
X, X', Y, Z: UU
f: X → Y
f': X' → Y
g: Z → X
g': Z → X'
hf: hfsqstr f f' g g'
x': X'
is:= pr2 hf: (λ h : commsqstr g' f' g f,
 isweq (commsqZtohfp f f' g g' h)) (pr1 hf)
h:= pr1 hf: commsqstr g' f' g f
a':= weqtococonusf g': Z ≃ coconusf g'
c':= make_weq (commsqZtohfp f f' g g' (pr1 hf)) is: Z ≃ hfp f f'
d':= weqhfptohfpoverX' f f': hfp f f' ≃ hfpoverX' f f'
b0':= totalfun (hfiber g')
  (λ x' : X', hfiber f (f' x'))
  (hfibersg'tof f f' g g' h): (∑ y : X', hfiber g' y) → ∑ y : X', (λ x' : X', hfiber f (f' x')) y
z: Z
d' (c' z) =
totalfun (hfiber g') (λ x' : X', hfiber f (f' x'))
  (hfibersg'tof f f' g g' h) (weqtococonusf g' z)
X, X', Y, Z: UU
f: X → Y
f': X' → Y
g: Z → X
g': Z → X'
hf: hfsqstr f f' g g'
x': X'
is:= pr2 hf: (λ h : commsqstr g' f' g f,
 isweq (commsqZtohfp f f' g g' h)) (pr1 hf)
h:= pr1 hf: commsqstr g' f' g f
a':= weqtococonusf g': Z ≃ coconusf g'
c':= make_weq (commsqZtohfp f f' g g' (pr1 hf)) is: Z ≃ hfp f f'
d':= weqhfptohfpoverX' f f': hfp f f' ≃ hfpoverX' f f'
b0':= totalfun (hfiber g')
  (λ x' : X', hfiber f (f' x'))
  (hfibersg'tof f f' g g' h): (∑ y : X', hfiber g' y) → ∑ y : X', (λ x' : X', hfiber f (f' x')) y
h1: ∏ z : Z, d' (c' z) = b0' (a' z)
isweq (hfibersg'tof f f' g g' hf x') unfold weqtococonusf.
X, X', Y, Z: UU
f: X → Y
f': X' → Y
g: Z → X
g': Z → X'
hf: hfsqstr f f' g g'
x': X'
is:= pr2 hf: (λ h : commsqstr g' f' g f,
 isweq (commsqZtohfp f f' g g' h)) (pr1 hf)
h:= pr1 hf: commsqstr g' f' g f
a':= weqtococonusf g': Z ≃ coconusf g'
c':= make_weq (commsqZtohfp f f' g g' (pr1 hf)) is: Z ≃ hfp f f'
d':= weqhfptohfpoverX' f f': hfp f f' ≃ hfpoverX' f f'
b0':= totalfun (hfiber g')
  (λ x' : X', hfiber f (f' x'))
  (hfibersg'tof f f' g g' h): (∑ y : X', hfiber g' y) → ∑ y : X', (λ x' : X', hfiber f (f' x')) y
z: Z
d' (c' z) =
totalfun (hfiber g') (λ x' : X', hfiber f (f' x'))
  (hfibersg'tof f f' g g' h)
  (make_weq (tococonusf g') (isweqtococonusf g') z)
X, X', Y, Z: UU
f: X → Y
f': X' → Y
g: Z → X
g': Z → X'
hf: hfsqstr f f' g g'
x': X'
is:= pr2 hf: (λ h : commsqstr g' f' g f,
 isweq (commsqZtohfp f f' g g' h)) (pr1 hf)
h:= pr1 hf: commsqstr g' f' g f
a':= weqtococonusf g': Z ≃ coconusf g'
c':= make_weq (commsqZtohfp f f' g g' (pr1 hf)) is: Z ≃ hfp f f'
d':= weqhfptohfpoverX' f f': hfp f f' ≃ hfpoverX' f f'
b0':= totalfun (hfiber g')
  (λ x' : X', hfiber f (f' x'))
  (hfibersg'tof f f' g g' h): (∑ y : X', hfiber g' y) → ∑ y : X', (λ x' : X', hfiber f (f' x')) y
h1: ∏ z : Z, d' (c' z) = b0' (a' z)
isweq (hfibersg'tof f f' g g' hf x') unfold tococonusf.
X, X', Y, Z: UU
f: X → Y
f': X' → Y
g: Z → X
g': Z → X'
hf: hfsqstr f f' g g'
x': X'
is:= pr2 hf: (λ h : commsqstr g' f' g f,
 isweq (commsqZtohfp f f' g g' h)) (pr1 hf)
h:= pr1 hf: commsqstr g' f' g f
a':= weqtococonusf g': Z ≃ coconusf g'
c':= make_weq (commsqZtohfp f f' g g' (pr1 hf)) is: Z ≃ hfp f f'
d':= weqhfptohfpoverX' f f': hfp f f' ≃ hfpoverX' f f'
b0':= totalfun (hfiber g')
  (λ x' : X', hfiber f (f' x'))
  (hfibersg'tof f f' g g' h): (∑ y : X', hfiber g' y) → ∑ y : X', (λ x' : X', hfiber f (f' x')) y
z: Z
d' (c' z) =
totalfun (hfiber g') (λ x' : X', hfiber f (f' x'))
  (hfibersg'tof f f' g g' h)
  (make_weq
     (λ x : Z, g' x,, make_hfiber g' x (idpath (g' x)))
     (isweqtococonusf g') z)
X, X', Y, Z: UU
f: X → Y
f': X' → Y
g: Z → X
g': Z → X'
hf: hfsqstr f f' g g'
x': X'
is:= pr2 hf: (λ h : commsqstr g' f' g f,
 isweq (commsqZtohfp f f' g g' h)) (pr1 hf)
h:= pr1 hf: commsqstr g' f' g f
a':= weqtococonusf g': Z ≃ coconusf g'
c':= make_weq (commsqZtohfp f f' g g' (pr1 hf)) is: Z ≃ hfp f f'
d':= weqhfptohfpoverX' f f': hfp f f' ≃ hfpoverX' f f'
b0':= totalfun (hfiber g')
  (λ x' : X', hfiber f (f' x'))
  (hfibersg'tof f f' g g' h): (∑ y : X', hfiber g' y) → ∑ y : X', (λ x' : X', hfiber f (f' x')) y
h1: ∏ z : Z, d' (c' z) = b0' (a' z)
isweq (hfibersg'tof f f' g g' hf x')
  unfold totalfun, hfibersg'tof; simpl.
X, X', Y, Z: UU
f: X → Y
f': X' → Y
g: Z → X
g': Z → X'
hf: hfsqstr f f' g g'
x': X'
is:= pr2 hf: (λ h : commsqstr g' f' g f,
 isweq (commsqZtohfp f f' g g' h)) (pr1 hf)
h:= pr1 hf: commsqstr g' f' g f
a':= weqtococonusf g': Z ≃ coconusf g'
c':= make_weq (commsqZtohfp f f' g g' (pr1 hf)) is: Z ≃ hfp f f'
d':= weqhfptohfpoverX' f f': hfp f f' ≃ hfpoverX' f f'
b0':= totalfun (hfiber g')
  (λ x' : X', hfiber f (f' x'))
  (hfibersg'tof f f' g g' h): (∑ y : X', hfiber g' y) → ∑ y : X', (λ x' : X', hfiber f (f' x')) y
z: Z
total2asstor (λ _ : X', X)
  (λ x'x : X' × X, f (pr2 x'x) = f' (pr1 x'x))
  (totalfun
     (λ x'x : X' × X, f' (pr1 x'x) = f (pr2 x'x))
     (λ x'x : X' × X, f (pr2 x'x) = f' (pr1 x'x))
     (λ x : X' × X, pathsinv0)
     (weqfp_map (weqdirprodcomm X X')
        (λ xx' : X' × X, f' (pr1 xx') = f (pr2 xx'))
        (commsqZtohfp f f' g g' (pr1 hf) z))) =
g' z,, g z,, ! h z @ idpath (f' (g' z))
X, X', Y, Z: UU
f: X → Y
f': X' → Y
g: Z → X
g': Z → X'
hf: hfsqstr f f' g g'
x': X'
is:= pr2 hf: (λ h : commsqstr g' f' g f,
 isweq (commsqZtohfp f f' g g' h)) (pr1 hf)
h:= pr1 hf: commsqstr g' f' g f
a':= weqtococonusf g': Z ≃ coconusf g'
c':= make_weq (commsqZtohfp f f' g g' (pr1 hf)) is: Z ≃ hfp f f'
d':= weqhfptohfpoverX' f f': hfp f f' ≃ hfpoverX' f f'
b0':= totalfun (hfiber g')
  (λ x' : X', hfiber f (f' x'))
  (hfibersg'tof f f' g g' h): (∑ y : X', hfiber g' y) → ∑ y : X', (λ x' : X', hfiber f (f' x')) y
h1: ∏ z : Z, d' (c' z) = b0' (a' z)
isweq (hfibersg'tof f f' g g' hf x')
  assert (e : (pathsinv0 (h z))
              = (pathscomp0 (pathsinv0 (h z)) (idpath (f' (g' z))))).
X, X', Y, Z: UU
f: X → Y
f': X' → Y
g: Z → X
g': Z → X'
hf: hfsqstr f f' g g'
x': X'
is:= pr2 hf: (λ h : commsqstr g' f' g f,
 isweq (commsqZtohfp f f' g g' h)) (pr1 hf)
h:= pr1 hf: commsqstr g' f' g f
a':= weqtococonusf g': Z ≃ coconusf g'
c':= make_weq (commsqZtohfp f f' g g' (pr1 hf)) is: Z ≃ hfp f f'
d':= weqhfptohfpoverX' f f': hfp f f' ≃ hfpoverX' f f'
b0':= totalfun (hfiber g')
  (λ x' : X', hfiber f (f' x'))
  (hfibersg'tof f f' g g' h): (∑ y : X', hfiber g' y) → ∑ y : X', (λ x' : X', hfiber f (f' x')) y
z: Z
! h z = ! h z @ idpath (f' (g' z))
X, X', Y, Z: UU
f: X → Y
f': X' → Y
g: Z → X
g': Z → X'
hf: hfsqstr f f' g g'
x': X'
is:= pr2 hf: (λ h : commsqstr g' f' g f,
 isweq (commsqZtohfp f f' g g' h)) (pr1 hf)
h:= pr1 hf: commsqstr g' f' g f
a':= weqtococonusf g': Z ≃ coconusf g'
c':= make_weq (commsqZtohfp f f' g g' (pr1 hf)) is: Z ≃ hfp f f'
d':= weqhfptohfpoverX' f f': hfp f f' ≃ hfpoverX' f f'
b0':= totalfun (hfiber g')
  (λ x' : X', hfiber f (f' x'))
  (hfibersg'tof f f' g g' h): (∑ y : X', hfiber g' y) → ∑ y : X', (λ x' : X', hfiber f (f' x')) y
z: Z
e: ! h z = ! h z @ idpath (f' (g' z))
total2asstor (λ _ : X', X)
  (λ x'x : X' × X, f (pr2 x'x) = f' (pr1 x'x))
  (totalfun
     (λ x'x : X' × X, f' (pr1 x'x) = f (pr2 x'x))
     (λ x'x : X' × X, f (pr2 x'x) = f' (pr1 x'x))
     (λ x : X' × X, pathsinv0)
     (weqfp_map (weqdirprodcomm X X')
        (λ xx' : X' × X, f' (pr1 xx') = f (pr2 xx'))
        (commsqZtohfp f f' g g' (pr1 hf) z))) =
g' z,, g z,, ! h z @ idpath (f' (g' z))
X, X', Y, Z: UU
f: X → Y
f': X' → Y
g: Z → X
g': Z → X'
hf: hfsqstr f f' g g'
x': X'
is:= pr2 hf: (λ h : commsqstr g' f' g f,
 isweq (commsqZtohfp f f' g g' h)) (pr1 hf)
h:= pr1 hf: commsqstr g' f' g f
a':= weqtococonusf g': Z ≃ coconusf g'
c':= make_weq (commsqZtohfp f f' g g' (pr1 hf)) is: Z ≃ hfp f f'
d':= weqhfptohfpoverX' f f': hfp f f' ≃ hfpoverX' f f'
b0':= totalfun (hfiber g')
  (λ x' : X', hfiber f (f' x'))
  (hfibersg'tof f f' g g' h): (∑ y : X', hfiber g' y) → ∑ y : X', (λ x' : X', hfiber f (f' x')) y
h1: ∏ z : Z, d' (c' z) = b0' (a' z)
isweq (hfibersg'tof f f' g g' hf x')
  apply (pathsinv0 (pathscomp0rid _)).
X, X', Y, Z: UU
f: X → Y
f': X' → Y
g: Z → X
g': Z → X'
hf: hfsqstr f f' g g'
x': X'
is:= pr2 hf: (λ h : commsqstr g' f' g f,
 isweq (commsqZtohfp f f' g g' h)) (pr1 hf)
h:= pr1 hf: commsqstr g' f' g f
a':= weqtococonusf g': Z ≃ coconusf g'
c':= make_weq (commsqZtohfp f f' g g' (pr1 hf)) is: Z ≃ hfp f f'
d':= weqhfptohfpoverX' f f': hfp f f' ≃ hfpoverX' f f'
b0':= totalfun (hfiber g')
  (λ x' : X', hfiber f (f' x'))
  (hfibersg'tof f f' g g' h): (∑ y : X', hfiber g' y) → ∑ y : X', (λ x' : X', hfiber f (f' x')) y
z: Z
e: ! h z = ! h z @ idpath (f' (g' z))
total2asstor (λ _ : X', X)
  (λ x'x : X' × X, f (pr2 x'x) = f' (pr1 x'x))
  (totalfun
     (λ x'x : X' × X, f' (pr1 x'x) = f (pr2 x'x))
     (λ x'x : X' × X, f (pr2 x'x) = f' (pr1 x'x))
     (λ x : X' × X, pathsinv0)
     (weqfp_map (weqdirprodcomm X X')
        (λ xx' : X' × X, f' (pr1 xx') = f (pr2 xx'))
        (commsqZtohfp f f' g g' (pr1 hf) z))) =
g' z,, g z,, ! h z @ idpath (f' (g' z))
X, X', Y, Z: UU
f: X → Y
f': X' → Y
g: Z → X
g': Z → X'
hf: hfsqstr f f' g g'
x': X'
is:= pr2 hf: (λ h : commsqstr g' f' g f,
 isweq (commsqZtohfp f f' g g' h)) (pr1 hf)
h:= pr1 hf: commsqstr g' f' g f
a':= weqtococonusf g': Z ≃ coconusf g'
c':= make_weq (commsqZtohfp f f' g g' (pr1 hf)) is: Z ≃ hfp f f'
d':= weqhfptohfpoverX' f f': hfp f f' ≃ hfpoverX' f f'
b0':= totalfun (hfiber g')
  (λ x' : X', hfiber f (f' x'))
  (hfibersg'tof f f' g g' h): (∑ y : X', hfiber g' y) → ∑ y : X', (λ x' : X', hfiber f (f' x')) y
h1: ∏ z : Z, d' (c' z) = b0' (a' z)
isweq (hfibersg'tof f f' g g' hf x') induction e.
X, X', Y, Z: UU
f: X → Y
f': X' → Y
g: Z → X
g': Z → X'
hf: hfsqstr f f' g g'
x': X'
is:= pr2 hf: (λ h : commsqstr g' f' g f,
 isweq (commsqZtohfp f f' g g' h)) (pr1 hf)
h:= pr1 hf: commsqstr g' f' g f
a':= weqtococonusf g': Z ≃ coconusf g'
c':= make_weq (commsqZtohfp f f' g g' (pr1 hf)) is: Z ≃ hfp f f'
d':= weqhfptohfpoverX' f f': hfp f f' ≃ hfpoverX' f f'
b0':= totalfun (hfiber g')
  (λ x' : X', hfiber f (f' x'))
  (hfibersg'tof f f' g g' h): (∑ y : X', hfiber g' y) → ∑ y : X', (λ x' : X', hfiber f (f' x')) y
z: Z
total2asstor (λ _ : X', X)
  (λ x'x : X' × X, f (pr2 x'x) = f' (pr1 x'x))
  (totalfun
     (λ x'x : X' × X, f' (pr1 x'x) = f (pr2 x'x))
     (λ x'x : X' × X, f (pr2 x'x) = f' (pr1 x'x))
     (λ x : X' × X, pathsinv0)
     (weqfp_map (weqdirprodcomm X X')
        (λ xx' : X' × X, f' (pr1 xx') = f (pr2 xx'))
        (commsqZtohfp f f' g g' (pr1 hf) z))) =
g' z,, g z,, ! h z
X, X', Y, Z: UU
f: X → Y
f': X' → Y
g: Z → X
g': Z → X'
hf: hfsqstr f f' g g'
x': X'
is:= pr2 hf: (λ h : commsqstr g' f' g f,
 isweq (commsqZtohfp f f' g g' h)) (pr1 hf)
h:= pr1 hf: commsqstr g' f' g f
a':= weqtococonusf g': Z ≃ coconusf g'
c':= make_weq (commsqZtohfp f f' g g' (pr1 hf)) is: Z ≃ hfp f f'
d':= weqhfptohfpoverX' f f': hfp f f' ≃ hfpoverX' f f'
b0':= totalfun (hfiber g')
  (λ x' : X', hfiber f (f' x'))
  (hfibersg'tof f f' g g' h): (∑ y : X', hfiber g' y) → ∑ y : X', (λ x' : X', hfiber f (f' x')) y
h1: ∏ z : Z, d' (c' z) = b0' (a' z)
isweq (hfibersg'tof f f' g g' hf x') apply idpath.
X, X', Y, Z: UU
f: X → Y
f': X' → Y
g: Z → X
g': Z → X'
hf: hfsqstr f f' g g'
x': X'
is:= pr2 hf: (λ h : commsqstr g' f' g f,
 isweq (commsqZtohfp f f' g g' h)) (pr1 hf)
h:= pr1 hf: commsqstr g' f' g f
a':= weqtococonusf g': Z ≃ coconusf g'
c':= make_weq (commsqZtohfp f f' g g' (pr1 hf)) is: Z ≃ hfp f f'
d':= weqhfptohfpoverX' f f': hfp f f' ≃ hfpoverX' f f'
b0':= totalfun (hfiber g')
  (λ x' : X', hfiber f (f' x'))
  (hfibersg'tof f f' g g' h): (∑ y : X', hfiber g' y) → ∑ y : X', (λ x' : X', hfiber f (f' x')) y
h1: ∏ z : Z, d' (c' z) = b0' (a' z)
isweq (hfibersg'tof f f' g g' hf x')

  assert (is1 : isweq (λ z : _, b0'(a' z))).
X, X', Y, Z: UU
f: X → Y
f': X' → Y
g: Z → X
g': Z → X'
hf: hfsqstr f f' g g'
x': X'
is:= pr2 hf: (λ h : commsqstr g' f' g f,
 isweq (commsqZtohfp f f' g g' h)) (pr1 hf)
h:= pr1 hf: commsqstr g' f' g f
a':= weqtococonusf g': Z ≃ coconusf g'
c':= make_weq (commsqZtohfp f f' g g' (pr1 hf)) is: Z ≃ hfp f f'
d':= weqhfptohfpoverX' f f': hfp f f' ≃ hfpoverX' f f'
b0':= totalfun (hfiber g')
  (λ x' : X', hfiber f (f' x'))
  (hfibersg'tof f f' g g' h): (∑ y : X', hfiber g' y) → ∑ y : X', (λ x' : X', hfiber f (f' x')) y
h1: ∏ z : Z, d' (c' z) = b0' (a' z)
isweq (λ z : Z, b0' (a' z))
X, X', Y, Z: UU
f: X → Y
f': X' → Y
g: Z → X
g': Z → X'
hf: hfsqstr f f' g g'
x': X'
is:= pr2 hf: (λ h : commsqstr g' f' g f,
 isweq (commsqZtohfp f f' g g' h)) (pr1 hf)
h:= pr1 hf: commsqstr g' f' g f
a':= weqtococonusf g': Z ≃ coconusf g'
c':= make_weq (commsqZtohfp f f' g g' (pr1 hf)) is: Z ≃ hfp f f'
d':= weqhfptohfpoverX' f f': hfp f f' ≃ hfpoverX' f f'
b0':= totalfun (hfiber g')
  (λ x' : X', hfiber f (f' x'))
  (hfibersg'tof f f' g g' h): (∑ y : X', hfiber g' y) → ∑ y : X', (λ x' : X', hfiber f (f' x')) y
h1: ∏ z : Z, d' (c' z) = b0' (a' z)
is1: isweq (λ z : Z, b0' (a' z))
isweq (hfibersg'tof f f' g g' hf x')
  apply (isweqhomot _ _ h1).
X, X', Y, Z: UU
f: X → Y
f': X' → Y
g: Z → X
g': Z → X'
hf: hfsqstr f f' g g'
x': X'
is:= pr2 hf: (λ h : commsqstr g' f' g f,
 isweq (commsqZtohfp f f' g g' h)) (pr1 hf)
h:= pr1 hf: commsqstr g' f' g f
a':= weqtococonusf g': Z ≃ coconusf g'
c':= make_weq (commsqZtohfp f f' g g' (pr1 hf)) is: Z ≃ hfp f f'
d':= weqhfptohfpoverX' f f': hfp f f' ≃ hfpoverX' f f'
b0':= totalfun (hfiber g')
  (λ x' : X', hfiber f (f' x'))
  (hfibersg'tof f f' g g' h): (∑ y : X', hfiber g' y) → ∑ y : X', (λ x' : X', hfiber f (f' x')) y
h1: ∏ z : Z, d' (c' z) = b0' (a' z)
isweq (λ z : Z, d' (c' z))
X, X', Y, Z: UU
f: X → Y
f': X' → Y
g: Z → X
g': Z → X'
hf: hfsqstr f f' g g'
x': X'
is:= pr2 hf: (λ h : commsqstr g' f' g f,
 isweq (commsqZtohfp f f' g g' h)) (pr1 hf)
h:= pr1 hf: commsqstr g' f' g f
a':= weqtococonusf g': Z ≃ coconusf g'
c':= make_weq (commsqZtohfp f f' g g' (pr1 hf)) is: Z ≃ hfp f f'
d':= weqhfptohfpoverX' f f': hfp f f' ≃ hfpoverX' f f'
b0':= totalfun (hfiber g')
  (λ x' : X', hfiber f (f' x'))
  (hfibersg'tof f f' g g' h): (∑ y : X', hfiber g' y) → ∑ y : X', (λ x' : X', hfiber f (f' x')) y
h1: ∏ z : Z, d' (c' z) = b0' (a' z)
is1: isweq (λ z : Z, b0' (a' z))
isweq (hfibersg'tof f f' g g' hf x') apply (twooutof3c _ _ (pr2 c') (pr2 d')).
X, X', Y, Z: UU
f: X → Y
f': X' → Y
g: Z → X
g': Z → X'
hf: hfsqstr f f' g g'
x': X'
is:= pr2 hf: (λ h : commsqstr g' f' g f,
 isweq (commsqZtohfp f f' g g' h)) (pr1 hf)
h:= pr1 hf: commsqstr g' f' g f
a':= weqtococonusf g': Z ≃ coconusf g'
c':= make_weq (commsqZtohfp f f' g g' (pr1 hf)) is: Z ≃ hfp f f'
d':= weqhfptohfpoverX' f f': hfp f f' ≃ hfpoverX' f f'
b0':= totalfun (hfiber g')
  (λ x' : X', hfiber f (f' x'))
  (hfibersg'tof f f' g g' h): (∑ y : X', hfiber g' y) → ∑ y : X', (λ x' : X', hfiber f (f' x')) y
h1: ∏ z : Z, d' (c' z) = b0' (a' z)
is1: isweq (λ z : Z, b0' (a' z))
isweq (hfibersg'tof f f' g g' hf x')

  assert (is2 : isweq b0').
X, X', Y, Z: UU
f: X → Y
f': X' → Y
g: Z → X
g': Z → X'
hf: hfsqstr f f' g g'
x': X'
is:= pr2 hf: (λ h : commsqstr g' f' g f,
 isweq (commsqZtohfp f f' g g' h)) (pr1 hf)
h:= pr1 hf: commsqstr g' f' g f
a':= weqtococonusf g': Z ≃ coconusf g'
c':= make_weq (commsqZtohfp f f' g g' (pr1 hf)) is: Z ≃ hfp f f'
d':= weqhfptohfpoverX' f f': hfp f f' ≃ hfpoverX' f f'
b0':= totalfun (hfiber g')
  (λ x' : X', hfiber f (f' x'))
  (hfibersg'tof f f' g g' h): (∑ y : X', hfiber g' y) → ∑ y : X', (λ x' : X', hfiber f (f' x')) y
h1: ∏ z : Z, d' (c' z) = b0' (a' z)
is1: isweq (λ z : Z, b0' (a' z))
isweq b0'
X, X', Y, Z: UU
f: X → Y
f': X' → Y
g: Z → X
g': Z → X'
hf: hfsqstr f f' g g'
x': X'
is:= pr2 hf: (λ h : commsqstr g' f' g f,
 isweq (commsqZtohfp f f' g g' h)) (pr1 hf)
h:= pr1 hf: commsqstr g' f' g f
a':= weqtococonusf g': Z ≃ coconusf g'
c':= make_weq (commsqZtohfp f f' g g' (pr1 hf)) is: Z ≃ hfp f f'
d':= weqhfptohfpoverX' f f': hfp f f' ≃ hfpoverX' f f'
b0':= totalfun (hfiber g')
  (λ x' : X', hfiber f (f' x'))
  (hfibersg'tof f f' g g' h): (∑ y : X', hfiber g' y) → ∑ y : X', (λ x' : X', hfiber f (f' x')) y
h1: ∏ z : Z, d' (c' z) = b0' (a' z)
is1: isweq (λ z : Z, b0' (a' z))
is2: isweq b0'
isweq (hfibersg'tof f f' g g' hf x') apply (twooutof3b _ _ (pr2 a') is1).
X, X', Y, Z: UU
f: X → Y
f': X' → Y
g: Z → X
g': Z → X'
hf: hfsqstr f f' g g'
x': X'
is:= pr2 hf: (λ h : commsqstr g' f' g f,
 isweq (commsqZtohfp f f' g g' h)) (pr1 hf)
h:= pr1 hf: commsqstr g' f' g f
a':= weqtococonusf g': Z ≃ coconusf g'
c':= make_weq (commsqZtohfp f f' g g' (pr1 hf)) is: Z ≃ hfp f f'
d':= weqhfptohfpoverX' f f': hfp f f' ≃ hfpoverX' f f'
b0':= totalfun (hfiber g')
  (λ x' : X', hfiber f (f' x'))
  (hfibersg'tof f f' g g' h): (∑ y : X', hfiber g' y) → ∑ y : X', (λ x' : X', hfiber f (f' x')) y
h1: ∏ z : Z, d' (c' z) = b0' (a' z)
is1: isweq (λ z : Z, b0' (a' z))
is2: isweq b0'
isweq (hfibersg'tof f f' g g' hf x')

  apply (isweqtotaltofib _ _ _ is2 x').
Defined.

Definition weqhfibersg'tof {X X' Y Z : UU} (f : X -> Y) (f' : X' -> Y)
           (g : Z -> X) (g' : Z -> X') (hf : hfsqstr f f' g g') (x' : X')
  := make_weq _ (isweqhfibersg'tof _ _ _ _ hf x').

Lemma ishfsqweqhfibersg'tof {X X' Y Z : UU} (f : X -> Y) (f' : X' -> Y)
      (g : Z -> X) (g' : Z -> X') (h : commsqstr g' f' g f)
      (is : ∏ x' : X', isweq (hfibersg'tof f f' g g' h x')) : hfsqstr f f' g g'.
X, X', Y, Z: UU
f: X → Y
f': X' → Y
g: Z → X
g': Z → X'
h: commsqstr g' f' g f
is: ∏ x' : X', isweq (hfibersg'tof f f' g g' h x')
hfsqstr f f' g g'
Proof.
X, X', Y, Z: UU
f: X → Y
f': X' → Y
g: Z → X
g': Z → X'
h: commsqstr g' f' g f
is: ∏ x' : X', isweq (hfibersg'tof f f' g g' h x')
hfsqstr f f' g g'
  intros.
X, X', Y, Z: UU
f: X → Y
f': X' → Y
g: Z → X
g': Z → X'
h: commsqstr g' f' g f
is: ∏ x' : X', isweq (hfibersg'tof f f' g g' h x')
hfsqstr f f' g g'
  split with h.
X, X', Y, Z: UU
f: X → Y
f': X' → Y
g: Z → X
g': Z → X'
h: commsqstr g' f' g f
is: ∏ x' : X', isweq (hfibersg'tof f f' g g' h x')
isweq (commsqZtohfp f f' g g' h)
  set (a' := weqtococonusf g').
X, X', Y, Z: UU
f: X → Y
f': X' → Y
g: Z → X
g': Z → X'
h: commsqstr g' f' g f
is: ∏ x' : X', isweq (hfibersg'tof f f' g g' h x')
a':= weqtococonusf g': Z ≃ coconusf g'
isweq (commsqZtohfp f f' g g' h)
  set (c0' := commsqZtohfp f f' g g' h).
X, X', Y, Z: UU
f: X → Y
f': X' → Y
g: Z → X
g': Z → X'
h: commsqstr g' f' g f
is: ∏ x' : X', isweq (hfibersg'tof f f' g g' h x')
a':= weqtococonusf g': Z ≃ coconusf g'
c0':= commsqZtohfp f f' g g' h: Z → hfp f f'
isweq c0'
  set (d' := weqhfptohfpoverX' f f').
X, X', Y, Z: UU
f: X → Y
f': X' → Y
g: Z → X
g': Z → X'
h: commsqstr g' f' g f
is: ∏ x' : X', isweq (hfibersg'tof f f' g g' h x')
a':= weqtococonusf g': Z ≃ coconusf g'
c0':= commsqZtohfp f f' g g' h: Z → hfp f f'
d':= weqhfptohfpoverX' f f': hfp f f' ≃ hfpoverX' f f'
isweq c0'
  set (b' := weqfibtototal _ _ (λ x' : X', make_weq _ (is x'))).
X, X', Y, Z: UU
f: X → Y
f': X' → Y
g: Z → X
g': Z → X'
h: commsqstr g' f' g f
is: ∏ x' : X', isweq (hfibersg'tof f f' g g' h x')
a':= weqtococonusf g': Z ≃ coconusf g'
c0':= commsqZtohfp f f' g g' h: Z → hfp f f'
d':= weqhfptohfpoverX' f f': hfp f f' ≃ hfpoverX' f f'
b':= weqfibtototal (hfiber g')
  (λ x' : X', hfiber f (f' x'))
  (λ x' : X',
   make_weq (hfibersg'tof f f' g g' h x') (is x')): (∑ x : X', hfiber g' x)
≃ (∑ x : X', (λ x' : X', hfiber f (f' x')) x)
isweq c0'

  assert (h1 : ∏ z : Z, (d' (c0' z)) = (b' (a' z))).
X, X', Y, Z: UU
f: X → Y
f': X' → Y
g: Z → X
g': Z → X'
h: commsqstr g' f' g f
is: ∏ x' : X', isweq (hfibersg'tof f f' g g' h x')
a':= weqtococonusf g': Z ≃ coconusf g'
c0':= commsqZtohfp f f' g g' h: Z → hfp f f'
d':= weqhfptohfpoverX' f f': hfp f f' ≃ hfpoverX' f f'
b':= weqfibtototal (hfiber g')
  (λ x' : X', hfiber f (f' x'))
  (λ x' : X',
   make_weq (hfibersg'tof f f' g g' h x') (is x')): (∑ x : X', hfiber g' x)
≃ (∑ x : X', (λ x' : X', hfiber f (f' x')) x)
∏ z : Z, d' (c0' z) = b' (a' z)
X, X', Y, Z: UU
f: X → Y
f': X' → Y
g: Z → X
g': Z → X'
h: commsqstr g' f' g f
is: ∏ x' : X', isweq (hfibersg'tof f f' g g' h x')
a':= weqtococonusf g': Z ≃ coconusf g'
c0':= commsqZtohfp f f' g g' h: Z → hfp f f'
d':= weqhfptohfpoverX' f f': hfp f f' ≃ hfpoverX' f f'
b':= weqfibtototal (hfiber g')
  (λ x' : X', hfiber f (f' x'))
  (λ x' : X',
   make_weq (hfibersg'tof f f' g g' h x') (is x')): (∑ x : X', hfiber g' x)
≃ (∑ x : X', (λ x' : X', hfiber f (f' x')) x)
h1: ∏ z : Z, d' (c0' z) = b' (a' z)
isweq c0'
  intro.
X, X', Y, Z: UU
f: X → Y
f': X' → Y
g: Z → X
g': Z → X'
h: commsqstr g' f' g f
is: ∏ x' : X', isweq (hfibersg'tof f f' g g' h x')
a':= weqtococonusf g': Z ≃ coconusf g'
c0':= commsqZtohfp f f' g g' h: Z → hfp f f'
d':= weqhfptohfpoverX' f f': hfp f f' ≃ hfpoverX' f f'
b':= weqfibtototal (hfiber g')
  (λ x' : X', hfiber f (f' x'))
  (λ x' : X',
   make_weq (hfibersg'tof f f' g g' h x') (is x')): (∑ x : X', hfiber g' x)
≃ (∑ x : X', (λ x' : X', hfiber f (f' x')) x)
z: Z
d' (c0' z) = b' (a' z)
X, X', Y, Z: UU
f: X → Y
f': X' → Y
g: Z → X
g': Z → X'
h: commsqstr g' f' g f
is: ∏ x' : X', isweq (hfibersg'tof f f' g g' h x')
a':= weqtococonusf g': Z ≃ coconusf g'
c0':= commsqZtohfp f f' g g' h: Z → hfp f f'
d':= weqhfptohfpoverX' f f': hfp f f' ≃ hfpoverX' f f'
b':= weqfibtototal (hfiber g')
  (λ x' : X', hfiber f (f' x'))
  (λ x' : X',
   make_weq (hfibersg'tof f f' g g' h x') (is x')): (∑ x : X', hfiber g' x)
≃ (∑ x : X', (λ x' : X', hfiber f (f' x')) x)
h1: ∏ z : Z, d' (c0' z) = b' (a' z)
isweq c0' simpl.
X, X', Y, Z: UU
f: X → Y
f': X' → Y
g: Z → X
g': Z → X'
h: commsqstr g' f' g f
is: ∏ x' : X', isweq (hfibersg'tof f f' g g' h x')
a':= weqtococonusf g': Z ≃ coconusf g'
c0':= commsqZtohfp f f' g g' h: Z → hfp f f'
d':= weqhfptohfpoverX' f f': hfp f f' ≃ hfpoverX' f f'
b':= weqfibtototal (hfiber g')
  (λ x' : X', hfiber f (f' x'))
  (λ x' : X',
   make_weq (hfibersg'tof f f' g g' h x') (is x')): (∑ x : X', hfiber g' x)
≃ (∑ x : X', (λ x' : X', hfiber f (f' x')) x)
z: Z
total2asstor (λ _ : X', X)
  (λ x'x : X' × X, f (pr2 x'x) = f' (pr1 x'x))
  (totalfun
     (λ x'x : X' × X, f' (pr1 x'x) = f (pr2 x'x))
     (λ x'x : X' × X, f (pr2 x'x) = f' (pr1 x'x))
     (λ x : X' × X, pathsinv0)
     (weqfp_map (weqdirprodcomm X X')
        (λ xx' : X' × X, f' (pr1 xx') = f (pr2 xx'))
        (c0' z))) =
totalfun (hfiber g') (λ x' : X', hfiber f (f' x'))
  (λ x : X', hfibersg'tof f f' g g' h x)
  (tococonusf g' z)
X, X', Y, Z: UU
f: X → Y
f': X' → Y
g: Z → X
g': Z → X'
h: commsqstr g' f' g f
is: ∏ x' : X', isweq (hfibersg'tof f f' g g' h x')
a':= weqtococonusf g': Z ≃ coconusf g'
c0':= commsqZtohfp f f' g g' h: Z → hfp f f'
d':= weqhfptohfpoverX' f f': hfp f f' ≃ hfpoverX' f f'
b':= weqfibtototal (hfiber g')
  (λ x' : X', hfiber f (f' x'))
  (λ x' : X',
   make_weq (hfibersg'tof f f' g g' h x') (is x')): (∑ x : X', hfiber g' x)
≃ (∑ x : X', (λ x' : X', hfiber f (f' x')) x)
h1: ∏ z : Z, d' (c0' z) = b' (a' z)
isweq c0' unfold b'.
X, X', Y, Z: UU
f: X → Y
f': X' → Y
g: Z → X
g': Z → X'
h: commsqstr g' f' g f
is: ∏ x' : X', isweq (hfibersg'tof f f' g g' h x')
a':= weqtococonusf g': Z ≃ coconusf g'
c0':= commsqZtohfp f f' g g' h: Z → hfp f f'
d':= weqhfptohfpoverX' f f': hfp f f' ≃ hfpoverX' f f'
b':= weqfibtototal (hfiber g')
  (λ x' : X', hfiber f (f' x'))
  (λ x' : X',
   make_weq (hfibersg'tof f f' g g' h x') (is x')): (∑ x : X', hfiber g' x)
≃ (∑ x : X', (λ x' : X', hfiber f (f' x')) x)
z: Z
total2asstor (λ _ : X', X)
  (λ x'x : X' × X, f (pr2 x'x) = f' (pr1 x'x))
  (totalfun
     (λ x'x : X' × X, f' (pr1 x'x) = f (pr2 x'x))
     (λ x'x : X' × X, f (pr2 x'x) = f' (pr1 x'x))
     (λ x : X' × X, pathsinv0)
     (weqfp_map (weqdirprodcomm X X')
        (λ xx' : X' × X, f' (pr1 xx') = f (pr2 xx'))
        (c0' z))) =
totalfun (hfiber g') (λ x' : X', hfiber f (f' x'))
  (λ x : X', hfibersg'tof f f' g g' h x)
  (tococonusf g' z)
X, X', Y, Z: UU
f: X → Y
f': X' → Y
g: Z → X
g': Z → X'
h: commsqstr g' f' g f
is: ∏ x' : X', isweq (hfibersg'tof f f' g g' h x')
a':= weqtococonusf g': Z ≃ coconusf g'
c0':= commsqZtohfp f f' g g' h: Z → hfp f f'
d':= weqhfptohfpoverX' f f': hfp f f' ≃ hfpoverX' f f'
b':= weqfibtototal (hfiber g')
  (λ x' : X', hfiber f (f' x'))
  (λ x' : X',
   make_weq (hfibersg'tof f f' g g' h x') (is x')): (∑ x : X', hfiber g' x)
≃ (∑ x : X', (λ x' : X', hfiber f (f' x')) x)
h1: ∏ z : Z, d' (c0' z) = b' (a' z)
isweq c0' unfold a'.
X, X', Y, Z: UU
f: X → Y
f': X' → Y
g: Z → X
g': Z → X'
h: commsqstr g' f' g f
is: ∏ x' : X', isweq (hfibersg'tof f f' g g' h x')
a':= weqtococonusf g': Z ≃ coconusf g'
c0':= commsqZtohfp f f' g g' h: Z → hfp f f'
d':= weqhfptohfpoverX' f f': hfp f f' ≃ hfpoverX' f f'
b':= weqfibtototal (hfiber g')
  (λ x' : X', hfiber f (f' x'))
  (λ x' : X',
   make_weq (hfibersg'tof f f' g g' h x') (is x')): (∑ x : X', hfiber g' x)
≃ (∑ x : X', (λ x' : X', hfiber f (f' x')) x)
z: Z
total2asstor (λ _ : X', X)
  (λ x'x : X' × X, f (pr2 x'x) = f' (pr1 x'x))
  (totalfun
     (λ x'x : X' × X, f' (pr1 x'x) = f (pr2 x'x))
     (λ x'x : X' × X, f (pr2 x'x) = f' (pr1 x'x))
     (λ x : X' × X, pathsinv0)
     (weqfp_map (weqdirprodcomm X X')
        (λ xx' : X' × X, f' (pr1 xx') = f (pr2 xx'))
        (c0' z))) =
totalfun (hfiber g') (λ x' : X', hfiber f (f' x'))
  (λ x : X', hfibersg'tof f f' g g' h x)
  (tococonusf g' z)
X, X', Y, Z: UU
f: X → Y
f': X' → Y
g: Z → X
g': Z → X'
h: commsqstr g' f' g f
is: ∏ x' : X', isweq (hfibersg'tof f f' g g' h x')
a':= weqtococonusf g': Z ≃ coconusf g'
c0':= commsqZtohfp f f' g g' h: Z → hfp f f'
d':= weqhfptohfpoverX' f f': hfp f f' ≃ hfpoverX' f f'
b':= weqfibtototal (hfiber g')
  (λ x' : X', hfiber f (f' x'))
  (λ x' : X',
   make_weq (hfibersg'tof f f' g g' h x') (is x')): (∑ x : X', hfiber g' x)
≃ (∑ x : X', (λ x' : X', hfiber f (f' x')) x)
h1: ∏ z : Z, d' (c0' z) = b' (a' z)
isweq c0' unfold weqtococonusf.
X, X', Y, Z: UU
f: X → Y
f': X' → Y
g: Z → X
g': Z → X'
h: commsqstr g' f' g f
is: ∏ x' : X', isweq (hfibersg'tof f f' g g' h x')
a':= weqtococonusf g': Z ≃ coconusf g'
c0':= commsqZtohfp f f' g g' h: Z → hfp f f'
d':= weqhfptohfpoverX' f f': hfp f f' ≃ hfpoverX' f f'
b':= weqfibtototal (hfiber g')
  (λ x' : X', hfiber f (f' x'))
  (λ x' : X',
   make_weq (hfibersg'tof f f' g g' h x') (is x')): (∑ x : X', hfiber g' x)
≃ (∑ x : X', (λ x' : X', hfiber f (f' x')) x)
z: Z
total2asstor (λ _ : X', X)
  (λ x'x : X' × X, f (pr2 x'x) = f' (pr1 x'x))
  (totalfun
     (λ x'x : X' × X, f' (pr1 x'x) = f (pr2 x'x))
     (λ x'x : X' × X, f (pr2 x'x) = f' (pr1 x'x))
     (λ x : X' × X, pathsinv0)
     (weqfp_map (weqdirprodcomm X X')
        (λ xx' : X' × X, f' (pr1 xx') = f (pr2 xx'))
        (c0' z))) =
totalfun (hfiber g') (λ x' : X', hfiber f (f' x'))
  (λ x : X', hfibersg'tof f f' g g' h x)
  (tococonusf g' z)
X, X', Y, Z: UU
f: X → Y
f': X' → Y
g: Z → X
g': Z → X'
h: commsqstr g' f' g f
is: ∏ x' : X', isweq (hfibersg'tof f f' g g' h x')
a':= weqtococonusf g': Z ≃ coconusf g'
c0':= commsqZtohfp f f' g g' h: Z → hfp f f'
d':= weqhfptohfpoverX' f f': hfp f f' ≃ hfpoverX' f f'
b':= weqfibtototal (hfiber g')
  (λ x' : X', hfiber f (f' x'))
  (λ x' : X',
   make_weq (hfibersg'tof f f' g g' h x') (is x')): (∑ x : X', hfiber g' x)
≃ (∑ x : X', (λ x' : X', hfiber f (f' x')) x)
h1: ∏ z : Z, d' (c0' z) = b' (a' z)
isweq c0' unfold tococonusf.
X, X', Y, Z: UU
f: X → Y
f': X' → Y
g: Z → X
g': Z → X'
h: commsqstr g' f' g f
is: ∏ x' : X', isweq (hfibersg'tof f f' g g' h x')
a':= weqtococonusf g': Z ≃ coconusf g'
c0':= commsqZtohfp f f' g g' h: Z → hfp f f'
d':= weqhfptohfpoverX' f f': hfp f f' ≃ hfpoverX' f f'
b':= weqfibtototal (hfiber g')
  (λ x' : X', hfiber f (f' x'))
  (λ x' : X',
   make_weq (hfibersg'tof f f' g g' h x') (is x')): (∑ x : X', hfiber g' x)
≃ (∑ x : X', (λ x' : X', hfiber f (f' x')) x)
z: Z
total2asstor (λ _ : X', X)
  (λ x'x : X' × X, f (pr2 x'x) = f' (pr1 x'x))
  (totalfun
     (λ x'x : X' × X, f' (pr1 x'x) = f (pr2 x'x))
     (λ x'x : X' × X, f (pr2 x'x) = f' (pr1 x'x))
     (λ x : X' × X, pathsinv0)
     (weqfp_map (weqdirprodcomm X X')
        (λ xx' : X' × X, f' (pr1 xx') = f (pr2 xx'))
        (c0' z))) =
totalfun (hfiber g') (λ x' : X', hfiber f (f' x'))
  (λ x : X', hfibersg'tof f f' g g' h x)
  (g' z,, make_hfiber g' z (idpath (g' z)))
X, X', Y, Z: UU
f: X → Y
f': X' → Y
g: Z → X
g': Z → X'
h: commsqstr g' f' g f
is: ∏ x' : X', isweq (hfibersg'tof f f' g g' h x')
a':= weqtococonusf g': Z ≃ coconusf g'
c0':= commsqZtohfp f f' g g' h: Z → hfp f f'
d':= weqhfptohfpoverX' f f': hfp f f' ≃ hfpoverX' f f'
b':= weqfibtototal (hfiber g')
  (λ x' : X', hfiber f (f' x'))
  (λ x' : X',
   make_weq (hfibersg'tof f f' g g' h x') (is x')): (∑ x : X', hfiber g' x)
≃ (∑ x : X', (λ x' : X', hfiber f (f' x')) x)
h1: ∏ z : Z, d' (c0' z) = b' (a' z)
isweq c0'
  unfold totalfun, total2asstor, hfibersg'tof; simpl.
X, X', Y, Z: UU
f: X → Y
f': X' → Y
g: Z → X
g': Z → X'
h: commsqstr g' f' g f
is: ∏ x' : X', isweq (hfibersg'tof f f' g g' h x')
a':= weqtococonusf g': Z ≃ coconusf g'
c0':= commsqZtohfp f f' g g' h: Z → hfp f f'
d':= weqhfptohfpoverX' f f': hfp f f' ≃ hfpoverX' f f'
b':= weqfibtototal (hfiber g')
  (λ x' : X', hfiber f (f' x'))
  (λ x' : X',
   make_weq (hfibersg'tof f f' g g' h x') (is x')): (∑ x : X', hfiber g' x)
≃ (∑ x : X', (λ x' : X', hfiber f (f' x')) x)
z: Z
g' z,, g z,, ! h z =
g' z,, g z,, ! h z @ idpath (f' (g' z))
X, X', Y, Z: UU
f: X → Y
f': X' → Y
g: Z → X
g': Z → X'
h: commsqstr g' f' g f
is: ∏ x' : X', isweq (hfibersg'tof f f' g g' h x')
a':= weqtococonusf g': Z ≃ coconusf g'
c0':= commsqZtohfp f f' g g' h: Z → hfp f f'
d':= weqhfptohfpoverX' f f': hfp f f' ≃ hfpoverX' f f'
b':= weqfibtototal (hfiber g')
  (λ x' : X', hfiber f (f' x'))
  (λ x' : X',
   make_weq (hfibersg'tof f f' g g' h x') (is x')): (∑ x : X', hfiber g' x)
≃ (∑ x : X', (λ x' : X', hfiber f (f' x')) x)
h1: ∏ z : Z, d' (c0' z) = b' (a' z)
isweq c0'
  assert (e : (pathsinv0 (h z)) =
              (pathscomp0 (pathsinv0 (h z)) (idpath (f' (g' z))))).
X, X', Y, Z: UU
f: X → Y
f': X' → Y
g: Z → X
g': Z → X'
h: commsqstr g' f' g f
is: ∏ x' : X', isweq (hfibersg'tof f f' g g' h x')
a':= weqtococonusf g': Z ≃ coconusf g'
c0':= commsqZtohfp f f' g g' h: Z → hfp f f'
d':= weqhfptohfpoverX' f f': hfp f f' ≃ hfpoverX' f f'
b':= weqfibtototal (hfiber g')
  (λ x' : X', hfiber f (f' x'))
  (λ x' : X',
   make_weq (hfibersg'tof f f' g g' h x') (is x')): (∑ x : X', hfiber g' x)
≃ (∑ x : X', (λ x' : X', hfiber f (f' x')) x)
z: Z
! h z = ! h z @ idpath (f' (g' z))
X, X', Y, Z: UU
f: X → Y
f': X' → Y
g: Z → X
g': Z → X'
h: commsqstr g' f' g f
is: ∏ x' : X', isweq (hfibersg'tof f f' g g' h x')
a':= weqtococonusf g': Z ≃ coconusf g'
c0':= commsqZtohfp f f' g g' h: Z → hfp f f'
d':= weqhfptohfpoverX' f f': hfp f f' ≃ hfpoverX' f f'
b':= weqfibtototal (hfiber g')
  (λ x' : X', hfiber f (f' x'))
  (λ x' : X',
   make_weq (hfibersg'tof f f' g g' h x') (is x')): (∑ x : X', hfiber g' x)
≃ (∑ x : X', (λ x' : X', hfiber f (f' x')) x)
z: Z
e: ! h z = ! h z @ idpath (f' (g' z))
g' z,, g z,, ! h z =
g' z,, g z,, ! h z @ idpath (f' (g' z))
X, X', Y, Z: UU
f: X → Y
f': X' → Y
g: Z → X
g': Z → X'
h: commsqstr g' f' g f
is: ∏ x' : X', isweq (hfibersg'tof f f' g g' h x')
a':= weqtococonusf g': Z ≃ coconusf g'
c0':= commsqZtohfp f f' g g' h: Z → hfp f f'
d':= weqhfptohfpoverX' f f': hfp f f' ≃ hfpoverX' f f'
b':= weqfibtototal (hfiber g')
  (λ x' : X', hfiber f (f' x'))
  (λ x' : X',
   make_weq (hfibersg'tof f f' g g' h x') (is x')): (∑ x : X', hfiber g' x)
≃ (∑ x : X', (λ x' : X', hfiber f (f' x')) x)
h1: ∏ z : Z, d' (c0' z) = b' (a' z)
isweq c0'
  apply (pathsinv0 (pathscomp0rid _)).
X, X', Y, Z: UU
f: X → Y
f': X' → Y
g: Z → X
g': Z → X'
h: commsqstr g' f' g f
is: ∏ x' : X', isweq (hfibersg'tof f f' g g' h x')
a':= weqtococonusf g': Z ≃ coconusf g'
c0':= commsqZtohfp f f' g g' h: Z → hfp f f'
d':= weqhfptohfpoverX' f f': hfp f f' ≃ hfpoverX' f f'
b':= weqfibtototal (hfiber g')
  (λ x' : X', hfiber f (f' x'))
  (λ x' : X',
   make_weq (hfibersg'tof f f' g g' h x') (is x')): (∑ x : X', hfiber g' x)
≃ (∑ x : X', (λ x' : X', hfiber f (f' x')) x)
z: Z
e: ! h z = ! h z @ idpath (f' (g' z))
g' z,, g z,, ! h z =
g' z,, g z,, ! h z @ idpath (f' (g' z))
X, X', Y, Z: UU
f: X → Y
f': X' → Y
g: Z → X
g': Z → X'
h: commsqstr g' f' g f
is: ∏ x' : X', isweq (hfibersg'tof f f' g g' h x')
a':= weqtococonusf g': Z ≃ coconusf g'
c0':= commsqZtohfp f f' g g' h: Z → hfp f f'
d':= weqhfptohfpoverX' f f': hfp f f' ≃ hfpoverX' f f'
b':= weqfibtototal (hfiber g')
  (λ x' : X', hfiber f (f' x'))
  (λ x' : X',
   make_weq (hfibersg'tof f f' g g' h x') (is x')): (∑ x : X', hfiber g' x)
≃ (∑ x : X', (λ x' : X', hfiber f (f' x')) x)
h1: ∏ z : Z, d' (c0' z) = b' (a' z)
isweq c0' induction e.
X, X', Y, Z: UU
f: X → Y
f': X' → Y
g: Z → X
g': Z → X'
h: commsqstr g' f' g f
is: ∏ x' : X', isweq (hfibersg'tof f f' g g' h x')
a':= weqtococonusf g': Z ≃ coconusf g'
c0':= commsqZtohfp f f' g g' h: Z → hfp f f'
d':= weqhfptohfpoverX' f f': hfp f f' ≃ hfpoverX' f f'
b':= weqfibtototal (hfiber g')
  (λ x' : X', hfiber f (f' x'))
  (λ x' : X',
   make_weq (hfibersg'tof f f' g g' h x') (is x')): (∑ x : X', hfiber g' x)
≃ (∑ x : X', (λ x' : X', hfiber f (f' x')) x)
z: Z
g' z,, g z,, ! h z = g' z,, g z,, ! h z
X, X', Y, Z: UU
f: X → Y
f': X' → Y
g: Z → X
g': Z → X'
h: commsqstr g' f' g f
is: ∏ x' : X', isweq (hfibersg'tof f f' g g' h x')
a':= weqtococonusf g': Z ≃ coconusf g'
c0':= commsqZtohfp f f' g g' h: Z → hfp f f'
d':= weqhfptohfpoverX' f f': hfp f f' ≃ hfpoverX' f f'
b':= weqfibtototal (hfiber g')
  (λ x' : X', hfiber f (f' x'))
  (λ x' : X',
   make_weq (hfibersg'tof f f' g g' h x') (is x')): (∑ x : X', hfiber g' x)
≃ (∑ x : X', (λ x' : X', hfiber f (f' x')) x)
h1: ∏ z : Z, d' (c0' z) = b' (a' z)
isweq c0' apply idpath.
X, X', Y, Z: UU
f: X → Y
f': X' → Y
g: Z → X
g': Z → X'
h: commsqstr g' f' g f
is: ∏ x' : X', isweq (hfibersg'tof f f' g g' h x')
a':= weqtococonusf g': Z ≃ coconusf g'
c0':= commsqZtohfp f f' g g' h: Z → hfp f f'
d':= weqhfptohfpoverX' f f': hfp f f' ≃ hfpoverX' f f'
b':= weqfibtototal (hfiber g')
  (λ x' : X', hfiber f (f' x'))
  (λ x' : X',
   make_weq (hfibersg'tof f f' g g' h x') (is x')): (∑ x : X', hfiber g' x)
≃ (∑ x : X', (λ x' : X', hfiber f (f' x')) x)
h1: ∏ z : Z, d' (c0' z) = b' (a' z)
isweq c0'

  assert (is1 : isweq (λ z : _, d' (c0' z))).
X, X', Y, Z: UU
f: X → Y
f': X' → Y
g: Z → X
g': Z → X'
h: commsqstr g' f' g f
is: ∏ x' : X', isweq (hfibersg'tof f f' g g' h x')
a':= weqtococonusf g': Z ≃ coconusf g'
c0':= commsqZtohfp f f' g g' h: Z → hfp f f'
d':= weqhfptohfpoverX' f f': hfp f f' ≃ hfpoverX' f f'
b':= weqfibtototal (hfiber g')
  (λ x' : X', hfiber f (f' x'))
  (λ x' : X',
   make_weq (hfibersg'tof f f' g g' h x') (is x')): (∑ x : X', hfiber g' x)
≃ (∑ x : X', (λ x' : X', hfiber f (f' x')) x)
h1: ∏ z : Z, d' (c0' z) = b' (a' z)
isweq (λ z : Z, d' (c0' z))
X, X', Y, Z: UU
f: X → Y
f': X' → Y
g: Z → X
g': Z → X'
h: commsqstr g' f' g f
is: ∏ x' : X', isweq (hfibersg'tof f f' g g' h x')
a':= weqtococonusf g': Z ≃ coconusf g'
c0':= commsqZtohfp f f' g g' h: Z → hfp f f'
d':= weqhfptohfpoverX' f f': hfp f f' ≃ hfpoverX' f f'
b':= weqfibtototal (hfiber g')
  (λ x' : X', hfiber f (f' x'))
  (λ x' : X',
   make_weq (hfibersg'tof f f' g g' h x') (is x')): (∑ x : X', hfiber g' x)
≃ (∑ x : X', (λ x' : X', hfiber f (f' x')) x)
h1: ∏ z : Z, d' (c0' z) = b' (a' z)
is1: isweq (λ z : Z, d' (c0' z))
isweq c0'
  apply (isweqhomot _ _ (λ z : Z, (pathsinv0 (h1 z)))).
X, X', Y, Z: UU
f: X → Y
f': X' → Y
g: Z → X
g': Z → X'
h: commsqstr g' f' g f
is: ∏ x' : X', isweq (hfibersg'tof f f' g g' h x')
a':= weqtococonusf g': Z ≃ coconusf g'
c0':= commsqZtohfp f f' g g' h: Z → hfp f f'
d':= weqhfptohfpoverX' f f': hfp f f' ≃ hfpoverX' f f'
b':= weqfibtototal (hfiber g')
  (λ x' : X', hfiber f (f' x'))
  (λ x' : X',
   make_weq (hfibersg'tof f f' g g' h x') (is x')): (∑ x : X', hfiber g' x)
≃ (∑ x : X', (λ x' : X', hfiber f (f' x')) x)
h1: ∏ z : Z, d' (c0' z) = b' (a' z)
isweq (λ z : Z, b' (a' z))
X, X', Y, Z: UU
f: X → Y
f': X' → Y
g: Z → X
g': Z → X'
h: commsqstr g' f' g f
is: ∏ x' : X', isweq (hfibersg'tof f f' g g' h x')
a':= weqtococonusf g': Z ≃ coconusf g'
c0':= commsqZtohfp f f' g g' h: Z → hfp f f'
d':= weqhfptohfpoverX' f f': hfp f f' ≃ hfpoverX' f f'
b':= weqfibtototal (hfiber g')
  (λ x' : X', hfiber f (f' x'))
  (λ x' : X',
   make_weq (hfibersg'tof f f' g g' h x') (is x')): (∑ x : X', hfiber g' x)
≃ (∑ x : X', (λ x' : X', hfiber f (f' x')) x)
h1: ∏ z : Z, d' (c0' z) = b' (a' z)
is1: isweq (λ z : Z, d' (c0' z))
isweq c0'
  apply (twooutof3c _ _ (pr2 a') (pr2 b')).
X, X', Y, Z: UU
f: X → Y
f': X' → Y
g: Z → X
g': Z → X'
h: commsqstr g' f' g f
is: ∏ x' : X', isweq (hfibersg'tof f f' g g' h x')
a':= weqtococonusf g': Z ≃ coconusf g'
c0':= commsqZtohfp f f' g g' h: Z → hfp f f'
d':= weqhfptohfpoverX' f f': hfp f f' ≃ hfpoverX' f f'
b':= weqfibtototal (hfiber g')
  (λ x' : X', hfiber f (f' x'))
  (λ x' : X',
   make_weq (hfibersg'tof f f' g g' h x') (is x')): (∑ x : X', hfiber g' x)
≃ (∑ x : X', (λ x' : X', hfiber f (f' x')) x)
h1: ∏ z : Z, d' (c0' z) = b' (a' z)
is1: isweq (λ z : Z, d' (c0' z))
isweq c0'

  apply (twooutof3a _ _ is1 (pr2 d')).
Defined.

Theorem transposhfpsqstr {X X' Y Z : UU} (f : X -> Y) (f' : X' -> Y) (g : Z -> X)
        (g' : Z -> X') (hf : hfsqstr f f' g g') : hfsqstr f' f g' g.
X, X', Y, Z: UU
f: X → Y
f': X' → Y
g: Z → X
g': Z → X'
hf: hfsqstr f f' g g'
hfsqstr f' f g' g
Proof.
X, X', Y, Z: UU
f: X → Y
f': X' → Y
g: Z → X
g': Z → X'
hf: hfsqstr f f' g g'
hfsqstr f' f g' g
  intros.
X, X', Y, Z: UU
f: X → Y
f': X' → Y
g: Z → X
g': Z → X'
hf: hfsqstr f f' g g'
hfsqstr f' f g' g
  set (is := pr2 hf).
X, X', Y, Z: UU
f: X → Y
f': X' → Y
g: Z → X
g': Z → X'
hf: hfsqstr f f' g g'
is:= pr2 hf: (λ h : commsqstr g' f' g f,
 isweq (commsqZtohfp f f' g g' h)) (pr1 hf)
hfsqstr f' f g' g set (h := pr1 hf).
X, X', Y, Z: UU
f: X → Y
f': X' → Y
g: Z → X
g': Z → X'
hf: hfsqstr f f' g g'
is:= pr2 hf: (λ h : commsqstr g' f' g f,
 isweq (commsqZtohfp f f' g g' h)) (pr1 hf)
h:= pr1 hf: commsqstr g' f' g f
hfsqstr f' f g' g
  set (th := transposcommsqstr f f' g g' h).
X, X', Y, Z: UU
f: X → Y
f': X' → Y
g: Z → X
g': Z → X'
hf: hfsqstr f f' g g'
is:= pr2 hf: (λ h : commsqstr g' f' g f,
 isweq (commsqZtohfp f f' g g' h)) (pr1 hf)
h:= pr1 hf: commsqstr g' f' g f
th:= transposcommsqstr f f' g g' h: commsqstr g f g' f'
hfsqstr f' f g' g
  split with th.
X, X', Y, Z: UU
f: X → Y
f': X' → Y
g: Z → X
g': Z → X'
hf: hfsqstr f f' g g'
is:= pr2 hf: (λ h : commsqstr g' f' g f,
 isweq (commsqZtohfp f f' g g' h)) (pr1 hf)
h:= pr1 hf: commsqstr g' f' g f
th:= transposcommsqstr f f' g g' h: commsqstr g f g' f'
isweq (commsqZtohfp f' f g' g th)
  set (w1 := weqhfpcomm f f').
X, X', Y, Z: UU
f: X → Y
f': X' → Y
g: Z → X
g': Z → X'
hf: hfsqstr f f' g g'
is:= pr2 hf: (λ h : commsqstr g' f' g f,
 isweq (commsqZtohfp f f' g g' h)) (pr1 hf)
h:= pr1 hf: commsqstr g' f' g f
th:= transposcommsqstr f f' g g' h: commsqstr g f g' f'
w1:= weqhfpcomm f f': hfp f f' ≃ hfp f' f
isweq (commsqZtohfp f' f g' g th)
  assert (h1 : ∏ z : Z, (w1 (commsqZtohfp f f' g g' h z))
                        = (commsqZtohfp f' f g' g th z)).
X, X', Y, Z: UU
f: X → Y
f': X' → Y
g: Z → X
g': Z → X'
hf: hfsqstr f f' g g'
is:= pr2 hf: (λ h : commsqstr g' f' g f,
 isweq (commsqZtohfp f f' g g' h)) (pr1 hf)
h:= pr1 hf: commsqstr g' f' g f
th:= transposcommsqstr f f' g g' h: commsqstr g f g' f'
w1:= weqhfpcomm f f': hfp f f' ≃ hfp f' f
∏ z : Z,
w1 (commsqZtohfp f f' g g' h z) =
commsqZtohfp f' f g' g th z
X, X', Y, Z: UU
f: X → Y
f': X' → Y
g: Z → X
g': Z → X'
hf: hfsqstr f f' g g'
is:= pr2 hf: (λ h : commsqstr g' f' g f,
 isweq (commsqZtohfp f f' g g' h)) (pr1 hf)
h:= pr1 hf: commsqstr g' f' g f
th:= transposcommsqstr f f' g g' h: commsqstr g f g' f'
w1:= weqhfpcomm f f': hfp f f' ≃ hfp f' f
h1: ∏ z : Z,
w1 (commsqZtohfp f f' g g' h z) =
commsqZtohfp f' f g' g th z
isweq (commsqZtohfp f' f g' g th)
  intro.
X, X', Y, Z: UU
f: X → Y
f': X' → Y
g: Z → X
g': Z → X'
hf: hfsqstr f f' g g'
is:= pr2 hf: (λ h : commsqstr g' f' g f,
 isweq (commsqZtohfp f f' g g' h)) (pr1 hf)
h:= pr1 hf: commsqstr g' f' g f
th:= transposcommsqstr f f' g g' h: commsqstr g f g' f'
w1:= weqhfpcomm f f': hfp f f' ≃ hfp f' f
z: Z
w1 (commsqZtohfp f f' g g' h z) =
commsqZtohfp f' f g' g th z
X, X', Y, Z: UU
f: X → Y
f': X' → Y
g: Z → X
g': Z → X'
hf: hfsqstr f f' g g'
is:= pr2 hf: (λ h : commsqstr g' f' g f,
 isweq (commsqZtohfp f f' g g' h)) (pr1 hf)
h:= pr1 hf: commsqstr g' f' g f
th:= transposcommsqstr f f' g g' h: commsqstr g f g' f'
w1:= weqhfpcomm f f': hfp f f' ≃ hfp f' f
h1: ∏ z : Z,
w1 (commsqZtohfp f f' g g' h z) =
commsqZtohfp f' f g' g th z
isweq (commsqZtohfp f' f g' g th) unfold commsqZtohfp.
X, X', Y, Z: UU
f: X → Y
f': X' → Y
g: Z → X
g': Z → X'
hf: hfsqstr f f' g g'
is:= pr2 hf: (λ h : commsqstr g' f' g f,
 isweq (commsqZtohfp f f' g g' h)) (pr1 hf)
h:= pr1 hf: commsqstr g' f' g f
th:= transposcommsqstr f f' g g' h: commsqstr g f g' f'
w1:= weqhfpcomm f f': hfp f f' ≃ hfp f' f
z: Z
w1 (make_dirprod (g z) (g' z),, h z) =
make_dirprod (g' z) (g z),, th z
X, X', Y, Z: UU
f: X → Y
f': X' → Y
g: Z → X
g': Z → X'
hf: hfsqstr f f' g g'
is:= pr2 hf: (λ h : commsqstr g' f' g f,
 isweq (commsqZtohfp f f' g g' h)) (pr1 hf)
h:= pr1 hf: commsqstr g' f' g f
th:= transposcommsqstr f f' g g' h: commsqstr g f g' f'
w1:= weqhfpcomm f f': hfp f f' ≃ hfp f' f
h1: ∏ z : Z,
w1 (commsqZtohfp f f' g g' h z) =
commsqZtohfp f' f g' g th z
isweq (commsqZtohfp f' f g' g th) simpl.
X, X', Y, Z: UU
f: X → Y
f': X' → Y
g: Z → X
g': Z → X'
hf: hfsqstr f f' g g'
is:= pr2 hf: (λ h : commsqstr g' f' g f,
 isweq (commsqZtohfp f f' g g' h)) (pr1 hf)
h:= pr1 hf: commsqstr g' f' g f
th:= transposcommsqstr f f' g g' h: commsqstr g f g' f'
w1:= weqhfpcomm f f': hfp f f' ≃ hfp f' f
z: Z
totalfun (λ x'x : X' × X, f' (pr1 x'x) = f (pr2 x'x))
  (λ x'x : X' × X, f (pr2 x'x) = f' (pr1 x'x))
  (λ x : X' × X, pathsinv0)
  (weqfp_map (weqdirprodcomm X X')
     (λ xx' : X' × X, f' (pr1 xx') = f (pr2 xx'))
     (make_dirprod (g z) (g' z),, h z)) =
make_dirprod (g' z) (g z),, th z
X, X', Y, Z: UU
f: X → Y
f': X' → Y
g: Z → X
g': Z → X'
hf: hfsqstr f f' g g'
is:= pr2 hf: (λ h : commsqstr g' f' g f,
 isweq (commsqZtohfp f f' g g' h)) (pr1 hf)
h:= pr1 hf: commsqstr g' f' g f
th:= transposcommsqstr f f' g g' h: commsqstr g f g' f'
w1:= weqhfpcomm f f': hfp f f' ≃ hfp f' f
h1: ∏ z : Z,
w1 (commsqZtohfp f f' g g' h z) =
commsqZtohfp f' f g' g th z
isweq (commsqZtohfp f' f g' g th) unfold fpmap.
X, X', Y, Z: UU
f: X → Y
f': X' → Y
g: Z → X
g': Z → X'
hf: hfsqstr f f' g g'
is:= pr2 hf: (λ h : commsqstr g' f' g f,
 isweq (commsqZtohfp f f' g g' h)) (pr1 hf)
h:= pr1 hf: commsqstr g' f' g f
th:= transposcommsqstr f f' g g' h: commsqstr g f g' f'
w1:= weqhfpcomm f f': hfp f f' ≃ hfp f' f
z: Z
totalfun (λ x'x : X' × X, f' (pr1 x'x) = f (pr2 x'x))
  (λ x'x : X' × X, f (pr2 x'x) = f' (pr1 x'x))
  (λ x : X' × X, pathsinv0)
  (weqfp_map (weqdirprodcomm X X')
     (λ xx' : X' × X, f' (pr1 xx') = f (pr2 xx'))
     (make_dirprod (g z) (g' z),, h z)) =
make_dirprod (g' z) (g z),, th z
X, X', Y, Z: UU
f: X → Y
f': X' → Y
g: Z → X
g': Z → X'
hf: hfsqstr f f' g g'
is:= pr2 hf: (λ h : commsqstr g' f' g f,
 isweq (commsqZtohfp f f' g g' h)) (pr1 hf)
h:= pr1 hf: commsqstr g' f' g f
th:= transposcommsqstr f f' g g' h: commsqstr g f g' f'
w1:= weqhfpcomm f f': hfp f f' ≃ hfp f' f
h1: ∏ z : Z,
w1 (commsqZtohfp f f' g g' h z) =
commsqZtohfp f' f g' g th z
isweq (commsqZtohfp f' f g' g th) unfold totalfun.
X, X', Y, Z: UU
f: X → Y
f': X' → Y
g: Z → X
g': Z → X'
hf: hfsqstr f f' g g'
is:= pr2 hf: (λ h : commsqstr g' f' g f,
 isweq (commsqZtohfp f f' g g' h)) (pr1 hf)
h:= pr1 hf: commsqstr g' f' g f
th:= transposcommsqstr f f' g g' h: commsqstr g f g' f'
w1:= weqhfpcomm f f': hfp f f' ≃ hfp f' f
z: Z
pr1
  (weqfp_map (weqdirprodcomm X X')
     (λ xx' : X' × X, f' (pr1 xx') = f (pr2 xx'))
     (make_dirprod (g z) (g' z),, h z)),,
! pr2
    (weqfp_map (weqdirprodcomm X X')
       (λ xx' : X' × X, f' (pr1 xx') = f (pr2 xx'))
       (make_dirprod (g z) (g' z),, h z)) =
make_dirprod (g' z) (g z),, th z
X, X', Y, Z: UU
f: X → Y
f': X' → Y
g: Z → X
g': Z → X'
hf: hfsqstr f f' g g'
is:= pr2 hf: (λ h : commsqstr g' f' g f,
 isweq (commsqZtohfp f f' g g' h)) (pr1 hf)
h:= pr1 hf: commsqstr g' f' g f
th:= transposcommsqstr f f' g g' h: commsqstr g f g' f'
w1:= weqhfpcomm f f': hfp f f' ≃ hfp f' f
h1: ∏ z : Z,
w1 (commsqZtohfp f f' g g' h z) =
commsqZtohfp f' f g' g th z
isweq (commsqZtohfp f' f g' g th)
  simpl.
X, X', Y, Z: UU
f: X → Y
f': X' → Y
g: Z → X
g': Z → X'
hf: hfsqstr f f' g g'
is:= pr2 hf: (λ h : commsqstr g' f' g f,
 isweq (commsqZtohfp f f' g g' h)) (pr1 hf)
h:= pr1 hf: commsqstr g' f' g f
th:= transposcommsqstr f f' g g' h: commsqstr g f g' f'
w1:= weqhfpcomm f f': hfp f f' ≃ hfp f' f
z: Z
make_dirprod (g' z) (g z),, ! h z =
make_dirprod (g' z) (g z),, th z
X, X', Y, Z: UU
f: X → Y
f': X' → Y
g: Z → X
g': Z → X'
hf: hfsqstr f f' g g'
is:= pr2 hf: (λ h : commsqstr g' f' g f,
 isweq (commsqZtohfp f f' g g' h)) (pr1 hf)
h:= pr1 hf: commsqstr g' f' g f
th:= transposcommsqstr f f' g g' h: commsqstr g f g' f'
w1:= weqhfpcomm f f': hfp f f' ≃ hfp f' f
h1: ∏ z : Z,
w1 (commsqZtohfp f f' g g' h z) =
commsqZtohfp f' f g' g th z
isweq (commsqZtohfp f' f g' g th) apply idpath.
X, X', Y, Z: UU
f: X → Y
f': X' → Y
g: Z → X
g': Z → X'
hf: hfsqstr f f' g g'
is:= pr2 hf: (λ h : commsqstr g' f' g f,
 isweq (commsqZtohfp f f' g g' h)) (pr1 hf)
h:= pr1 hf: commsqstr g' f' g f
th:= transposcommsqstr f f' g g' h: commsqstr g f g' f'
w1:= weqhfpcomm f f': hfp f f' ≃ hfp f' f
h1: ∏ z : Z,
w1 (commsqZtohfp f f' g g' h z) =
commsqZtohfp f' f g' g th z
isweq (commsqZtohfp f' f g' g th)
  apply (isweqhomot _ _ h1).
X, X', Y, Z: UU
f: X → Y
f': X' → Y
g: Z → X
g': Z → X'
hf: hfsqstr f f' g g'
is:= pr2 hf: (λ h : commsqstr g' f' g f,
 isweq (commsqZtohfp f f' g g' h)) (pr1 hf)
h:= pr1 hf: commsqstr g' f' g f
th:= transposcommsqstr f f' g g' h: commsqstr g f g' f'
w1:= weqhfpcomm f f': hfp f f' ≃ hfp f' f
h1: ∏ z : Z,
w1 (commsqZtohfp f f' g g' h z) =
commsqZtohfp f' f g' g th z
isweq (λ z : Z, w1 (commsqZtohfp f f' g g' h z)) apply (twooutof3c _ _ is (pr2 w1)).
Defined.


(** *** Fiber sequences and homotopy fiber squares *)

Theorem fibseqstrtohfsqstr {X Y Z : UU} (f : X -> Y) (g : Y -> Z) (z : Z)
        (hf : fibseqstr f g z) : hfsqstr (λ t : unit, z) g (λ x : X, tt) f.
X, Y, Z: UU
f: X → Y
g: Y → Z
z: Z
hf: fibseqstr f g z
hfsqstr (λ _ : unit, z) g (λ _ : X, tt) f
Proof.
X, Y, Z: UU
f: X → Y
g: Y → Z
z: Z
hf: fibseqstr f g z
hfsqstr (λ _ : unit, z) g (λ _ : X, tt) f
  intros.
X, Y, Z: UU
f: X → Y
g: Y → Z
z: Z
hf: fibseqstr f g z
hfsqstr (λ _ : unit, z) g (λ _ : X, tt) f
  split with (pr1 hf).
X, Y, Z: UU
f: X → Y
g: Y → Z
z: Z
hf: fibseqstr f g z
isweq
  (commsqZtohfp (λ _ : unit, z) g (λ _ : X, tt) f
     (pr1 hf))
  set (ff := ezweq f g z hf).
X, Y, Z: UU
f: X → Y
g: Y → Z
z: Z
hf: fibseqstr f g z
ff:= ezweq f g z hf: X ≃ hfiber g z
isweq
  (commsqZtohfp (λ _ : unit, z) g (λ _ : X, tt) f
     (pr1 hf))
  set (ggff := commsqZtohfp (λ t : unit, z) g (λ x : X, tt) f (pr1 hf)).
X, Y, Z: UU
f: X → Y
g: Y → Z
z: Z
hf: fibseqstr f g z
ff:= ezweq f g z hf: X ≃ hfiber g z
ggff:= commsqZtohfp (λ _ : unit, z) g (λ _ : X, tt) f (pr1 hf): X → hfp (λ _ : unit, z) g
isweq ggff
  set (gg := weqhfibertohfp g z).
X, Y, Z: UU
f: X → Y
g: Y → Z
z: Z
hf: fibseqstr f g z
ff:= ezweq f g z hf: X ≃ hfiber g z
ggff:= commsqZtohfp (λ _ : unit, z) g 
  (λ _ : X, tt) f (pr1 hf): X → hfp (λ _ : unit, z) g
gg:= weqhfibertohfp g z: hfiber g z ≃ hfp (λ _ : unit, z) g
isweq ggff
  apply (pr2 (weqcomp ff gg)).
Defined.


Theorem hfsqstrtofibseqstr {X Y Z : UU} (f : X -> Y) (g : Y -> Z) (z : Z)
        (hf : hfsqstr (λ t : unit, z) g (λ x : X, tt) f) : fibseqstr f g z.
X, Y, Z: UU
f: X → Y
g: Y → Z
z: Z
hf: hfsqstr (λ _ : unit, z) g (λ _ : X, tt) f
fibseqstr f g z
Proof.
X, Y, Z: UU
f: X → Y
g: Y → Z
z: Z
hf: hfsqstr (λ _ : unit, z) g (λ _ : X, tt) f
fibseqstr f g z
  intros.
X, Y, Z: UU
f: X → Y
g: Y → Z
z: Z
hf: hfsqstr (λ _ : unit, z) g (λ _ : X, tt) f
fibseqstr f g z split with (pr1 hf).
X, Y, Z: UU
f: X → Y
g: Y → Z
z: Z
hf: hfsqstr (λ _ : unit, z) g (λ _ : X, tt) f
isfibseq f g z (pr1 hf)  set (ff := ezmap f g z (pr1 hf)).
X, Y, Z: UU
f: X → Y
g: Y → Z
z: Z
hf: hfsqstr (λ _ : unit, z) g (λ _ : X, tt) f
ff:= ezmap f g z (pr1 hf): X → hfiber g z
isfibseq f g z (pr1 hf)
  set (ggff := weqZtohfp (λ t : unit, z) g (λ x : X, tt) f hf).
X, Y, Z: UU
f: X → Y
g: Y → Z
z: Z
hf: hfsqstr (λ _ : unit, z) g (λ _ : X, tt) f
ff:= ezmap f g z (pr1 hf): X → hfiber g z
ggff:= weqZtohfp (λ _ : unit, z) g (λ _ : X, tt) f hf: X ≃ hfp (λ _ : unit, z) g
isfibseq f g z (pr1 hf)
  set (gg := weqhfibertohfp g z).
X, Y, Z: UU
f: X → Y
g: Y → Z
z: Z
hf: hfsqstr (λ _ : unit, z) g (λ _ : X, tt) f
ff:= ezmap f g z (pr1 hf): X → hfiber g z
ggff:= weqZtohfp (λ _ : unit, z) g (λ _ : X, tt) f hf: X ≃ hfp (λ _ : unit, z) g
gg:= weqhfibertohfp g z: hfiber g z ≃ hfp (λ _ : unit, z) g
isfibseq f g z (pr1 hf)
  apply (twooutof3a ff gg (pr2 ggff) (pr2 gg)).
Defined.

(* End of the file PartA.v *)