X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fsoftware%2Fmatita%2Fnlibrary%2Fsets%2Fpartitions.ma;h=80648f4eacddb68f3207b233654d5d7416db18ce;hb=7433f1b6439e7c5eb532546b533980686636f468;hp=1dce8d535f0926646958a8224412065e55dc1ea3;hpb=d93c422814484956482b1e70d90bb443eb99af21;p=helm.git diff --git a/helm/software/matita/nlibrary/sets/partitions.ma b/helm/software/matita/nlibrary/sets/partitions.ma index 1dce8d535..80648f4ea 100644 --- a/helm/software/matita/nlibrary/sets/partitions.ma +++ b/helm/software/matita/nlibrary/sets/partitions.ma @@ -18,19 +18,11 @@ include "nat/compare.ma". include "nat/minus.ma". include "datatypes/pairs.ma". -alias symbol "eq" = "setoid eq". - -alias symbol "eq" = "setoid1 eq". -alias symbol "eq" = "setoid eq". -alias symbol "eq" = "setoid eq". -alias symbol "eq" = "setoid1 eq". -alias symbol "eq" = "setoid eq". -alias symbol "eq" = "setoid1 eq". alias symbol "eq" = "setoid eq". nrecord partition (A: setoid) : Type[1] ≝ { support: setoid; - indexes: qpowerclass support; - class: unary_morphism1 (setoid1_of_setoid support) (qpowerclass_setoid A); + indexes: ext_powerclass support; + class: unary_morphism1 (setoid1_of_setoid support) (ext_powerclass_setoid A); inhabited: ∀i. i ∈ indexes → class i ≬ class i; disjoint: ∀i,j. i ∈ indexes → j ∈ indexes → class i ≬ class j → i = j; covers: big_union support ? indexes (λx.class x) = full_set A