Step
*
of Lemma
equal_functionality_wrt_subtype_rel2
∀[A,B:Type]. ∀[x,y:A].  {(x = y ∈ A) 
⇒ (x = y ∈ B)} supposing A ⊆r B
BY
{ (Unfold `guard` 0
   THEN Auto
   THEN (HypSubst (-1) 0)
   THEN Auto
   THEN Try (Fold `member` 0)
   THEN SubsumeC ⌜A⌝⋅
   THEN Auto) }
Latex:
Latex:
\mforall{}[A,B:Type].  \mforall{}[x,y:A].    \{(x  =  y)  {}\mRightarrow{}  (x  =  y)\}  supposing  A  \msubseteq{}r  B
By
Latex:
(Unfold  `guard`  0
  THEN  Auto
  THEN  (HypSubst  (-1)  0)
  THEN  Auto
  THEN  Try  (Fold  `member`  0)
  THEN  SubsumeC  \mkleeneopen{}A\mkleeneclose{}\mcdot{}
  THEN  Auto)
Home
Index