Step
*
of Lemma
fset-subtype
∀[A,B:Type].  fset(A) ⊆r fset(B) supposing A ⊆r B
BY
{ (((Auto THEN D 0) THEN Auto) THEN D -1 THEN Auto THEN EqTypeCD THEN Auto) }
1
.....antecedent..... 
1. A : Type
2. B : Type
3. A ⊆r B
4. x : Base
5. x1 : Base
6. x = x1 ∈ pertype(λx,y. ((x ∈ A List) ∧ (y ∈ A List) ∧ set-equal(A;x;y)))
7. x ∈ A List
8. x1 ∈ A List
9. set-equal(A;x;x1)
⊢ set-equal(B;x;x1)
Latex:
Latex:
\mforall{}[A,B:Type].    fset(A)  \msubseteq{}r  fset(B)  supposing  A  \msubseteq{}r  B
By
Latex:
(((Auto  THEN  D  0)  THEN  Auto)  THEN  D  -1  THEN  Auto  THEN  EqTypeCD  THEN  Auto)
Home
Index