try assumption; apply I]
qed.
-definition setoid_OF_SET: objs1 SET → setoid.
- intros; apply o; qed.
-
-coercion setoid_OF_SET.
-
lemma IF_THEN_ELSE_p :
∀S:setoid.∀a,b:S.∀x,y:BOOL.x = y →
(λm.match m with [ true ⇒ a | false ⇒ b ]) x =
| apply ((comp_assoc1 ????? H* G* F* ));]
| intros; split; unfold ORelation_composition; simplify; apply id_neutral_left1;
| intros; split; unfold ORelation_composition; simplify; apply id_neutral_right1;]
-qed.
\ No newline at end of file
+qed.