Step
*
1
of Lemma
equal-product1
1. A : Type
2. B : A ⟶ Type
3. a1 : A
4. a2 : A
5. b1 : B[a1]
6. b2 : B[a2]
7. <a1, b1> = <a2, b2> ∈ (a:A × B[a])
⊢ b1 = b2 ∈ B[a1]
BY
{ (EqHD (-1) THEN Auto) }
Latex:
Latex:
1.  A  :  Type
2.  B  :  A  {}\mrightarrow{}  Type
3.  a1  :  A
4.  a2  :  A
5.  b1  :  B[a1]
6.  b2  :  B[a2]
7.  <a1,  b1>  =  <a2,  b2>
\mvdash{}  b1  =  b2
By
Latex:
(EqHD  (-1)  THEN  Auto)
Home
Index