From: Claudio Sacerdoti Coen Date: Wed, 8 Jul 2009 02:24:37 +0000 (+0000) Subject: ... X-Git-Tag: make_still_working~3737 X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=commitdiff_plain;h=e3e4e21b2cb9b6988c5ab2a79fd18d8e7aa1b5bd;p=helm.git ... --- diff --git a/helm/software/matita/nlibrary/algebra/magmas.ma b/helm/software/matita/nlibrary/algebra/magmas.ma index de8e3ba22..e83c62227 100644 --- a/helm/software/matita/nlibrary/algebra/magmas.ma +++ b/helm/software/matita/nlibrary/algebra/magmas.ma @@ -14,8 +14,8 @@ include "sets/sets.ma". -nrecord magma (A: Type) : Type ≝ - { carr: Ω \sup A(*; - op: A → A → 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*) }. \ No newline at end of file