Step * of Lemma fpf-sub_functionality

[A,A':Type].
  ∀[B:A ─→ Type]. ∀[C:A' ─→ Type]. ∀[eq:EqDecider(A)]. ∀[eq':EqDecider(A')]. ∀[f,g:a:A fp-> B[a]].
    {f ⊆ supposing f ⊆ g} supposing ∀a:A. (B[a] ⊆C[a]) 
  supposing strong-subtype(A;A')
BY
((InstLemma `fpf-sub-functionality` []) THEN Unfold `guard` THEN Trivial) }


Latex:


\mforall{}[A,A':Type].
    \mforall{}[B:A  {}\mrightarrow{}  Type].  \mforall{}[C:A'  {}\mrightarrow{}  Type].  \mforall{}[eq:EqDecider(A)].  \mforall{}[eq':EqDecider(A')].  \mforall{}[f,g:a:A  fp->  B[a]].
        \{f  \msubseteq{}  g  supposing  f  \msubseteq{}  g\}  supposing  \mforall{}a:A.  (B[a]  \msubseteq{}r  C[a]) 
    supposing  strong-subtype(A;A')


By

((InstLemma  `fpf-sub-functionality`  [])  THEN  Unfold  `guard`  0  THEN  Trivial)




Home Index