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 ⊆ g supposing f ⊆ g} supposing ∀a:A. (B[a] ⊆r C[a]) 
  supposing strong-subtype(A;A')
BY
{ ((InstLemma `fpf-sub-functionality` []) THEN Unfold `guard` 0 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