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