- fun21 M1 M2 M3 TT x S ≡ mem A SS x.
-
-nlemma subseteq_is_morph: ∀A. binary_morphism1 (ext_powerclass_setoid A) (ext_powerclass_setoid A) CPROP.
- #A; @
- [ napply (λS,S'. S ⊆ S')
- | #a; #a'; #b; #b'; *; #Ha1; #Ha2; *; #Hb1; #Hb2; @; #H
- [ napply (subseteq_trans … a)
- [ nassumption | napply (subseteq_trans … b); nassumption ]
- ##| napply (subseteq_trans … a')
- [ nassumption | napply (subseteq_trans … b'); nassumption ] ##]
+ fun11 (setoid1_of_setoid A)
+ (unary_morphism1_setoid1 XX CPROP) TT x S
+ ≡ mem A SS x.
+
+nlemma subseteq_is_morph: ∀A. unary_morphism1 (ext_powerclass_setoid A)
+ (unary_morphism1_setoid1 (ext_powerclass_setoid A) CPROP).
+ #A; napply (mk_binary_morphism1 … (λS,S':𝛀^A. S ⊆ S'));
+ #a; #a'; #b; #b'; *; #H1; #H2; *; /5/.