X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fsoftware%2Fmatita%2Fcontribs%2FCoRN-Decl%2Falgebra%2FCSetoids.ma;h=a11ee12297a09e9a638e1d95dd7ee4fa779eabeb;hb=db235934efa41a0f38e79747f6db4f468367410b;hp=03bf9450866ce3071178458e813c1090a7d648ce;hpb=80110e17ef1d38d71473e9471ce15beddde663bb;p=helm.git

diff --git a/helm/software/matita/contribs/CoRN-Decl/algebra/CSetoids.ma b/helm/software/matita/contribs/CoRN-Decl/algebra/CSetoids.ma
index 03bf94508..a11ee1229 100644
--- a/helm/software/matita/contribs/CoRN-Decl/algebra/CSetoids.ma
+++ b/helm/software/matita/contribs/CoRN-Decl/algebra/CSetoids.ma
@@ -93,10 +93,10 @@ Notice that their type depends on the main logical connective.
 *)
 
 (* UNEXPORTED
-Section Properties_of_relations.
+Section Properties_of_relations
 *)
 
-inline "cic:/CoRN/algebra/CSetoids/A.var".
+alias id "A" = "cic:/CoRN/algebra/CSetoids/Properties_of_relations/A.var".
 
 inline "cic:/CoRN/algebra/CSetoids/irreflexive.con".
 
@@ -107,7 +107,7 @@ inline "cic:/CoRN/algebra/CSetoids/tight_apart.con".
 inline "cic:/CoRN/algebra/CSetoids/antisymmetric.con".
 
 (* UNEXPORTED
-End Properties_of_relations.
+End Properties_of_relations
 *)
 
 (* begin hide *)
@@ -131,7 +131,7 @@ inline "cic:/CoRN/algebra/CSetoids/is_CSetoid.ind".
 
 inline "cic:/CoRN/algebra/CSetoids/CSetoid.ind".
 
-coercion "cic:/matita/CoRN-Decl/algebra/CSetoids/cs_crr.con" 0 (* compounds *).
+coercion cic:/matita/CoRN-Decl/algebra/CSetoids/cs_crr.con 0 (* compounds *).
 
 (* UNEXPORTED
 Implicit Arguments cs_eq [c].
@@ -141,6 +141,14 @@ Implicit Arguments cs_eq [c].
 Implicit Arguments cs_ap [c].
 *)
 
+(* NOTATION
+Infix "[=]" := cs_eq (at level 70, no associativity).
+*)
+
+(* NOTATION
+Infix "[#]" := cs_ap (at level 70, no associativity).
+*)
+
 (* End_SpecReals *)
 
 inline "cic:/CoRN/algebra/CSetoids/cs_neq.con".
@@ -149,6 +157,10 @@ inline "cic:/CoRN/algebra/CSetoids/cs_neq.con".
 Implicit Arguments cs_neq [S].
 *)
 
+(* NOTATION
+Infix "[~=]" := cs_neq (at level 70, no associativity).
+*)
+
 (*#*
 %\begin{nameconvention}%
 In the names of lemmas, we refer to [ [=] ] by [eq], [ [~=] ] by
@@ -165,10 +177,10 @@ Let [S] be a setoid.
 (* Begin_SpecReals *)
 
 (* UNEXPORTED
-Section CSetoid_axioms.
+Section CSetoid_axioms
 *)
 
-inline "cic:/CoRN/algebra/CSetoids/S.var".
+alias id "S" = "cic:/CoRN/algebra/CSetoids/CSetoid_axioms/S.var".
 
 inline "cic:/CoRN/algebra/CSetoids/CSetoid_is_CSetoid.con".
 
@@ -181,7 +193,7 @@ inline "cic:/CoRN/algebra/CSetoids/ap_cotransitive.con".
 inline "cic:/CoRN/algebra/CSetoids/ap_tight.con".
 
 (* UNEXPORTED
-End CSetoid_axioms.
+End CSetoid_axioms
 *)
 
 (* End_SpecReals *)
@@ -194,10 +206,10 @@ End CSetoid_axioms.
 (* Begin_SpecReals *)
 
 (* UNEXPORTED
-Section CSetoid_basics.
+Section CSetoid_basics
 *)
 
-inline "cic:/CoRN/algebra/CSetoids/S.var".
+alias id "S" = "cic:/CoRN/algebra/CSetoids/CSetoid_basics/S.var".
 
 (* End_SpecReals *)
 
@@ -273,13 +285,13 @@ inline "cic:/CoRN/algebra/CSetoids/eq_imp_not_neq.con".
 (* Begin_SpecReals *)
 
 (* UNEXPORTED
-End CSetoid_basics.
+End CSetoid_basics
 *)
 
 (* End_SpecReals *)
 
 (* UNEXPORTED
-Section product_csetoid.
+Section product_csetoid
 *)
 
 (*#* **The product of setoids *)
@@ -293,7 +305,7 @@ inline "cic:/CoRN/algebra/CSetoids/prodcsetoid_is_CSetoid.con".
 inline "cic:/CoRN/algebra/CSetoids/ProdCSetoid.con".
 
 (* UNEXPORTED
-End product_csetoid.
+End product_csetoid
 *)
 
 (* UNEXPORTED
@@ -333,10 +345,10 @@ on predicates and relations.
 *)
 
 (* UNEXPORTED
-Section CSetoid_relations_and_predicates.
+Section CSetoid_relations_and_predicates
 *)
 
-inline "cic:/CoRN/algebra/CSetoids/S.var".
+alias id "S" = "cic:/CoRN/algebra/CSetoids/CSetoid_relations_and_predicates/S.var".
 
 (* End_SpecReals *)
 
@@ -349,46 +361,46 @@ At this stage, we consider [CProp]- and [Prop]-valued predicates on setoids.
 *)
 
 (* UNEXPORTED
-Section CSetoidPredicates.
+Section CSetoidPredicates
 *)
 
-inline "cic:/CoRN/algebra/CSetoids/P.var".
+alias id "P" = "cic:/CoRN/algebra/CSetoids/CSetoid_relations_and_predicates/CSetoidPredicates/P.var".
 
 inline "cic:/CoRN/algebra/CSetoids/pred_strong_ext.con".
 
 inline "cic:/CoRN/algebra/CSetoids/pred_wd.con".
 
 (* UNEXPORTED
-End CSetoidPredicates.
+End CSetoidPredicates
 *)
 
 inline "cic:/CoRN/algebra/CSetoids/CSetoid_predicate.ind".
 
-coercion "cic:/matita/CoRN-Decl/algebra/CSetoids/csp_pred.con" 0 (* compounds *).
+coercion cic:/matita/CoRN-Decl/algebra/CSetoids/csp_pred.con 0 (* compounds *).
 
 inline "cic:/CoRN/algebra/CSetoids/csp_wd.con".
 
 (*#* Similar, with [Prop] instead of [CProp]. *)
 
 (* UNEXPORTED
-Section CSetoidPPredicates.
+Section CSetoidPPredicates
 *)
 
-inline "cic:/CoRN/algebra/CSetoids/P.var".
+alias id "P" = "cic:/CoRN/algebra/CSetoids/CSetoid_relations_and_predicates/CSetoidPPredicates/P.var".
 
 inline "cic:/CoRN/algebra/CSetoids/pred_strong_ext'.con".
 
 inline "cic:/CoRN/algebra/CSetoids/pred_wd'.con".
 
 (* UNEXPORTED
-End CSetoidPPredicates.
+End CSetoidPPredicates
 *)
 
 (*#* ***Definition of a setoid predicate *)
 
 inline "cic:/CoRN/algebra/CSetoids/CSetoid_predicate'.ind".
 
-coercion "cic:/matita/CoRN-Decl/algebra/CSetoids/csp'_pred.con" 0 (* compounds *).
+coercion cic:/matita/CoRN-Decl/algebra/CSetoids/csp'_pred.con 0 (* compounds *).
 
 inline "cic:/CoRN/algebra/CSetoids/csp'_wd.con".
 
@@ -400,10 +412,10 @@ Let [R] be a relation on (the carrier of) [S].
 %\end{convention}% *)
 
 (* UNEXPORTED
-Section CsetoidRelations.
+Section CsetoidRelations
 *)
 
-inline "cic:/CoRN/algebra/CSetoids/R.var".
+alias id "R" = "cic:/CoRN/algebra/CSetoids/CSetoid_relations_and_predicates/CsetoidRelations/R.var".
 
 inline "cic:/CoRN/algebra/CSetoids/rel_wdr.con".
 
@@ -426,7 +438,7 @@ inline "cic:/CoRN/algebra/CSetoids/rel_strextarg_imp_strext.con".
 (* Begin_SpecReals *)
 
 (* UNEXPORTED
-End CsetoidRelations.
+End CsetoidRelations
 *)
 
 (*#* ***Definition of a setoid relation
@@ -434,7 +446,7 @@ The type of relations over a setoid.  *)
 
 inline "cic:/CoRN/algebra/CSetoids/CSetoid_relation.ind".
 
-coercion "cic:/matita/CoRN-Decl/algebra/CSetoids/csr_rel.con" 0 (* compounds *).
+coercion cic:/matita/CoRN-Decl/algebra/CSetoids/csr_rel.con 0 (* compounds *).
 
 (*#* ***[CProp] Relations
 %\begin{convention}%
@@ -443,10 +455,10 @@ Let [R] be a relation on (the carrier of) [S].
 *)
 
 (* UNEXPORTED
-Section CCsetoidRelations.
+Section CCsetoidRelations
 *)
 
-inline "cic:/CoRN/algebra/CSetoids/R.var".
+alias id "R" = "cic:/CoRN/algebra/CSetoids/CSetoid_relations_and_predicates/CCsetoidRelations/R.var".
 
 inline "cic:/CoRN/algebra/CSetoids/Crel_wdr.con".
 
@@ -469,7 +481,7 @@ inline "cic:/CoRN/algebra/CSetoids/Crel_strextarg_imp_strext.con".
 (* Begin_SpecReals *)
 
 (* UNEXPORTED
-End CCsetoidRelations.
+End CCsetoidRelations
 *)
 
 (*#* ***Definition of a [CProp] setoid relation
@@ -478,7 +490,7 @@ The type of relations over a setoid.  *)
 
 inline "cic:/CoRN/algebra/CSetoids/CCSetoid_relation.ind".
 
-coercion "cic:/matita/CoRN-Decl/algebra/CSetoids/Ccsr_rel.con" 0 (* compounds *).
+coercion cic:/matita/CoRN-Decl/algebra/CSetoids/Ccsr_rel.con 0 (* compounds *).
 
 inline "cic:/CoRN/algebra/CSetoids/Ccsr_wdr.con".
 
@@ -501,7 +513,7 @@ inline "cic:/CoRN/algebra/CSetoids/predS_well_def.con".
 (* Begin_SpecReals *)
 
 (* UNEXPORTED
-End CSetoid_relations_and_predicates.
+End CSetoid_relations_and_predicates
 *)
 
 (* UNEXPORTED
@@ -528,17 +540,17 @@ First we consider unary functions.  *)
 (* Begin_SpecReals *)
 
 (* UNEXPORTED
-Section CSetoid_functions.
+Section CSetoid_functions
 *)
 
-inline "cic:/CoRN/algebra/CSetoids/S1.var".
+alias id "S1" = "cic:/CoRN/algebra/CSetoids/CSetoid_functions/S1.var".
 
-inline "cic:/CoRN/algebra/CSetoids/S2.var".
+alias id "S2" = "cic:/CoRN/algebra/CSetoids/CSetoid_functions/S2.var".
 
-inline "cic:/CoRN/algebra/CSetoids/S3.var".
+alias id "S3" = "cic:/CoRN/algebra/CSetoids/CSetoid_functions/S3.var".
 
 (* UNEXPORTED
-Section unary_functions.
+Section unary_functions
 *)
 
 (*#*
@@ -546,7 +558,7 @@ In the following two definitions,
 [f] is a function from (the carrier of) [S1] to
 (the carrier of) [S2].  *)
 
-inline "cic:/CoRN/algebra/CSetoids/f.var".
+alias id "f" = "cic:/CoRN/algebra/CSetoids/CSetoid_functions/unary_functions/f.var".
 
 inline "cic:/CoRN/algebra/CSetoids/fun_wd.con".
 
@@ -559,12 +571,12 @@ inline "cic:/CoRN/algebra/CSetoids/fun_strext_imp_wd.con".
 (* Begin_SpecReals *)
 
 (* UNEXPORTED
-End unary_functions.
+End unary_functions
 *)
 
 inline "cic:/CoRN/algebra/CSetoids/CSetoid_fun.ind".
 
-coercion "cic:/matita/CoRN-Decl/algebra/CSetoids/csf_fun.con" 0 (* compounds *).
+coercion cic:/matita/CoRN-Decl/algebra/CSetoids/csf_fun.con 0 (* compounds *).
 
 inline "cic:/CoRN/algebra/CSetoids/csf_wd.con".
 
@@ -575,7 +587,7 @@ inline "cic:/CoRN/algebra/CSetoids/Const_CSetoid_fun.con".
 (* Begin_SpecReals *)
 
 (* UNEXPORTED
-Section binary_functions.
+Section binary_functions
 *)
 
 (*#*
@@ -584,7 +596,7 @@ In the following two definitions,
 [f] is a function from [S1] and [S2] to [S3].
 *)
 
-inline "cic:/CoRN/algebra/CSetoids/f.var".
+alias id "f" = "cic:/CoRN/algebra/CSetoids/CSetoid_functions/binary_functions/f.var".
 
 inline "cic:/CoRN/algebra/CSetoids/bin_fun_wd.con".
 
@@ -597,12 +609,12 @@ inline "cic:/CoRN/algebra/CSetoids/bin_fun_strext_imp_wd.con".
 (* Begin_SpecReals *)
 
 (* UNEXPORTED
-End binary_functions.
+End binary_functions
 *)
 
 inline "cic:/CoRN/algebra/CSetoids/CSetoid_bin_fun.ind".
 
-coercion "cic:/matita/CoRN-Decl/algebra/CSetoids/csbf_fun.con" 0 (* compounds *).
+coercion cic:/matita/CoRN-Decl/algebra/CSetoids/csbf_fun.con 0 (* compounds *).
 
 inline "cic:/CoRN/algebra/CSetoids/csbf_wd.con".
 
@@ -613,7 +625,7 @@ inline "cic:/CoRN/algebra/CSetoids/csf_strext_unfolded.con".
 inline "cic:/CoRN/algebra/CSetoids/csbf_wd_unfolded.con".
 
 (* UNEXPORTED
-End CSetoid_functions.
+End CSetoid_functions
 *)
 
 (* End_SpecReals *)
@@ -646,10 +658,10 @@ Let [S] be a setoid.
 *)
 
 (* UNEXPORTED
-Section csetoid_inner_ops.
+Section csetoid_inner_ops
 *)
 
-inline "cic:/CoRN/algebra/CSetoids/S.var".
+alias id "S" = "cic:/CoRN/algebra/CSetoids/csetoid_inner_ops/S.var".
 
 (*#* Properties of binary operations *)
 
@@ -677,7 +689,7 @@ inline "cic:/CoRN/algebra/CSetoids/id_un_op.con".
 
 (* begin hide *)
 
-coercion "cic:/matita/CoRN-Decl/algebra/CSetoids/un_op_fun.con" 0 (* compounds *).
+coercion cic:/matita/CoRN-Decl/algebra/CSetoids/un_op_fun.con 0 (* compounds *).
 
 (* end hide *)
 
@@ -713,7 +725,7 @@ inline "cic:/CoRN/algebra/CSetoids/cs_bin_op_strext.con".
 
 (* begin hide *)
 
-coercion "cic:/matita/CoRN-Decl/algebra/CSetoids/bin_op_bin_fun.con" 0 (* compounds *).
+coercion cic:/matita/CoRN-Decl/algebra/CSetoids/bin_op_bin_fun.con 0 (* compounds *).
 
 (* end hide *)
 
@@ -738,7 +750,7 @@ inline "cic:/CoRN/algebra/CSetoids/bin_op2un_op_lft.con".
 (* Begin_SpecReals *)
 
 (* UNEXPORTED
-End csetoid_inner_ops.
+End csetoid_inner_ops
 *)
 
 (* End_SpecReals *)
@@ -766,12 +778,12 @@ Let [S1] and [S2] be setoids.
 *)
 
 (* UNEXPORTED
-Section csetoid_outer_ops.
+Section csetoid_outer_ops
 *)
 
-inline "cic:/CoRN/algebra/CSetoids/S1.var".
+alias id "S1" = "cic:/CoRN/algebra/CSetoids/csetoid_outer_ops/S1.var".
 
-inline "cic:/CoRN/algebra/CSetoids/S2.var".
+alias id "S2" = "cic:/CoRN/algebra/CSetoids/csetoid_outer_ops/S2.var".
 
 (*#*
 Well-defined outer operations on a setoid.
@@ -791,14 +803,14 @@ inline "cic:/CoRN/algebra/CSetoids/csoo_strext.con".
 
 (* begin hide *)
 
-coercion "cic:/matita/CoRN-Decl/algebra/CSetoids/outer_op_bin_fun.con" 0 (* compounds *).
+coercion cic:/matita/CoRN-Decl/algebra/CSetoids/outer_op_bin_fun.con 0 (* compounds *).
 
 (* end hide *)
 
 inline "cic:/CoRN/algebra/CSetoids/csoo_wd_unfolded.con".
 
 (* UNEXPORTED
-End csetoid_outer_ops.
+End csetoid_outer_ops
 *)
 
 (* UNEXPORTED
@@ -814,16 +826,16 @@ Let [S] be a setoid, and [P] a predicate on the carrier of [S].
 *)
 
 (* UNEXPORTED
-Section SubCSetoids.
+Section SubCSetoids
 *)
 
-inline "cic:/CoRN/algebra/CSetoids/S.var".
+alias id "S" = "cic:/CoRN/algebra/CSetoids/SubCSetoids/S.var".
 
-inline "cic:/CoRN/algebra/CSetoids/P.var".
+alias id "P" = "cic:/CoRN/algebra/CSetoids/SubCSetoids/P.var".
 
 inline "cic:/CoRN/algebra/CSetoids/subcsetoid_crr.ind".
 
-coercion "cic:/matita/CoRN-Decl/algebra/CSetoids/scs_elem.con" 0 (* compounds *).
+coercion cic:/matita/CoRN-Decl/algebra/CSetoids/scs_elem.con 0 (* compounds *).
 
 (*#* Though [scs_elem] is declared as a coercion, it does not satisfy the
 uniform inheritance condition and will not be inserted.  However it will
@@ -857,10 +869,10 @@ Let [f] be a unary setoid operation on [S].
 *)
 
 (* UNEXPORTED
-Section SubCSetoid_unary_operations.
+Section SubCSetoid_unary_operations
 *)
 
-inline "cic:/CoRN/algebra/CSetoids/f.var".
+alias id "f" = "cic:/CoRN/algebra/CSetoids/SubCSetoids/SubCSetoid_unary_operations/f.var".
 
 inline "cic:/CoRN/algebra/CSetoids/un_op_pres_pred.con".
 
@@ -869,7 +881,7 @@ inline "cic:/CoRN/algebra/CSetoids/un_op_pres_pred.con".
 Assume [pr:un_op_pres_pred].
 %\end{convention}% *)
 
-inline "cic:/CoRN/algebra/CSetoids/pr.var".
+alias id "pr" = "cic:/CoRN/algebra/CSetoids/SubCSetoids/SubCSetoid_unary_operations/pr.var".
 
 inline "cic:/CoRN/algebra/CSetoids/restr_un_op.con".
 
@@ -880,7 +892,7 @@ inline "cic:/CoRN/algebra/CSetoids/restr_un_op_strext.con".
 inline "cic:/CoRN/algebra/CSetoids/Build_SubCSetoid_un_op.con".
 
 (* UNEXPORTED
-End SubCSetoid_unary_operations.
+End SubCSetoid_unary_operations
 *)
 
 (*#* ***Subsetoid binary operations
@@ -890,10 +902,10 @@ Let [f] be a binary setoid operation on [S].
 *)
 
 (* UNEXPORTED
-Section SubCSetoid_binary_operations.
+Section SubCSetoid_binary_operations
 *)
 
-inline "cic:/CoRN/algebra/CSetoids/f.var".
+alias id "f" = "cic:/CoRN/algebra/CSetoids/SubCSetoids/SubCSetoid_binary_operations/f.var".
 
 inline "cic:/CoRN/algebra/CSetoids/bin_op_pres_pred.con".
 
@@ -903,7 +915,7 @@ Assume [bin_op_pres_pred].
 %\end{convention}%
 *)
 
-inline "cic:/CoRN/algebra/CSetoids/pr.var".
+alias id "pr" = "cic:/CoRN/algebra/CSetoids/SubCSetoids/SubCSetoid_binary_operations/pr.var".
 
 inline "cic:/CoRN/algebra/CSetoids/restr_bin_op.con".
 
@@ -916,13 +928,13 @@ inline "cic:/CoRN/algebra/CSetoids/Build_SubCSetoid_bin_op.con".
 inline "cic:/CoRN/algebra/CSetoids/restr_f_assoc.con".
 
 (* UNEXPORTED
-End SubCSetoid_binary_operations.
+End SubCSetoid_binary_operations
 *)
 
 (* Begin_SpecReals *)
 
 (* UNEXPORTED
-End SubCSetoids.
+End SubCSetoids
 *)
 
 (* End_SpecReals *)