intro x; simplify; cases x; simplify; assumption;]
qed.
-notation "hovbox(a ∧ b)" left associative with precedence 35
-for @{ 'oa_meet_bin $a $b }.
-interpretation "o-algebra binary meet" 'oa_meet_bin a b =
+interpretation "o-algebra binary meet" 'and a b =
(fun21 ___ (binary_meet _) a b).
coercion Type1_OF_OAlgebra nocomposites.
lemma Type_OF_category2_OF_SET1_OF_OA: OA → Type_OF_category2 SET1.
intro; apply (oa_P t);
qed.
-coercion Type_OF_category2_OF_SET1_OF_OA.
\ No newline at end of file
+coercion Type_OF_category2_OF_SET1_OF_OA.