---

Step * of Lemma per-set-equality

∀[A:Type]. ∀[B:A ⟶ Type]. ∀[a1,a2:A].  (a1 = a2 ∈ per-set(A;a.B[a])) supposing ((a1 = a2 ∈ A) and B[a1])
BY
{ (Intros
   THEN (PointwiseFunctionalityForEquality 4 THENW Auto)
   THEN (PointwiseFunctionalityForEquality 3 THENW Auto)
   THEN (Unfold `per-set` 0 THEN PerEqCD_member)
   THEN Try (Fold `per-set` 0)
   THEN Reduce 0
   THEN Auto) }

---

Latex:

---

Latex:
\mforall{}[A:Type].  \mforall{}[B:A  {}\mrightarrow{}  Type].  \mforall{}[a1,a2:A].    (a1  =  a2)  supposing  ((a1  =  a2)  and  B[a1])


By

---

Latex:
(Intros
  THEN  (PointwiseFunctionalityForEquality  4  THENW  Auto)
  THEN  (PointwiseFunctionalityForEquality  3  THENW  Auto)
  THEN  (Unfold  `per-set`  0  THEN  PerEqCD\_member)
  THEN  Try  (Fold  `per-set`  0)
  THEN  Reduce  0
  THEN  Auto)

---

Home Index