Step * 1 1 of Lemma equipollent-product-product


1. Type
2. A ⟶ Type
3. a:A ⟶ B[a] ⟶ Type
4. a1 x:A ⟶ y:B[x] ⟶ C[x;y]
5. a2 x:A ⟶ y:B[x] ⟶ C[x;y]
6. p.let x,y in a1 y) p.let x,y in a2 y) ∈ (p:(a:A × B[a]) ⟶ C[fst(p);snd(p)])
7. A
8. x1 B[x]
⊢ (a1 x1) (a2 x1) ∈ C[x;x1]
BY
TACTIC:((ApFunToHypEquands `F' ⌜F <x, x1>⌝ ⌜C[x;x1]⌝ (-3)⋅ THENA Auto) THEN Reduce (-1) THEN Auto) }


Latex:


Latex:

1.  A  :  Type
2.  B  :  A  {}\mrightarrow{}  Type
3.  C  :  a:A  {}\mrightarrow{}  B[a]  {}\mrightarrow{}  Type
4.  a1  :  x:A  {}\mrightarrow{}  y:B[x]  {}\mrightarrow{}  C[x;y]
5.  a2  :  x:A  {}\mrightarrow{}  y:B[x]  {}\mrightarrow{}  C[x;y]
6.  (\mlambda{}p.let  x,y  =  p  in  a1  x  y)  =  (\mlambda{}p.let  x,y  =  p  in  a2  x  y)
7.  x  :  A
8.  x1  :  B[x]
\mvdash{}  (a1  x  x1)  =  (a2  x  x1)


By


Latex:
TACTIC:((ApFunToHypEquands  `F'  \mkleeneopen{}F  <x,  x1>\mkleeneclose{}  \mkleeneopen{}C[x;x1]\mkleeneclose{}  (-3)\mcdot{}  THENA  Auto)  THEN  Reduce  (-1)  THEN  Auto)




Home Index