include "sets/sets.ma".
-nrecord magma (A: Type) : Type ≝
- { carr: Ω \sup A(*;
+nrecord magma (A: Type) : Type[1] ≝
+ { carr: Ω \sup A;
op: A → A → A;
- op_closed: ∀x,y. x ∈ carr → y ∈ carr → op x y ∈ carr*)
+ op_closed: ∀x,y. x ∈ carr → y ∈ carr → op x y ∈ carr
}.
\ No newline at end of file