Step * 1 1 2 of Lemma assert_of_eq_pair


1. s : DSet
2. t : DSet
3. a1 : |s|
4. a2 : |t|
5. b1 : |s|
6. b2 : |t|
7. <a1, a2> = <b1, b2> ∈ (|s| × |t|)
⊢ a1 = b1 ∈ |s|
BY
{ ((EqHD 7 THEN AbReduce (-2)) THEN Auto) }


Latex:


Latex:

1.  s  :  DSet
2.  t  :  DSet
3.  a1  :  |s|
4.  a2  :  |t|
5.  b1  :  |s|
6.  b2  :  |t|
7.  <a1,  a2>  =  <b1,  b2>
\mvdash{}  a1  =  b1


By


Latex:
((EqHD  7  THEN  AbReduce  (-2))  THEN  Auto)




Home Index