X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fsoftware%2Fmatita%2Fdama%2Fpremetric_lattice.ma;h=d985ec24fcb5d2c70460d27f205f33edee927739;hb=c38c15fa800498bcac6230e07a31ed54414a0865;hp=42d00fd268a81a48cd67dc2c40baa974a372111b;hpb=a2fe87da00fb5b9a39e9a1c7d796c61d4c7346af;p=helm.git

diff --git a/helm/software/matita/dama/premetric_lattice.ma b/helm/software/matita/dama/premetric_lattice.ma
index 42d00fd26..d985ec24f 100644
--- a/helm/software/matita/dama/premetric_lattice.ma
+++ b/helm/software/matita/dama/premetric_lattice.ma
@@ -16,7 +16,7 @@ set "baseuri" "cic:/matita/premetric_lattice/".
 
 include "metric_space.ma".
 
-record premetric_lattice_ (R : ogroup) : Type ≝ {
+record premetric_lattice_ (R : todgroup) : Type ≝ {
   pml_carr:> metric_space R;
   meet: pml_carr → pml_carr → pml_carr;
   join: pml_carr → pml_carr → pml_carr
@@ -28,7 +28,7 @@ interpretation "valued lattice meet" 'and a b =
 interpretation "valued lattice join" 'or a b =
  (cic:/matita/premetric_lattice/join.con _ _ a b).
  
-record premetric_lattice_props (R : ogroup) (ml : premetric_lattice_ R) : Prop ≝ {
+record premetric_lattice_props (R : todgroup) (ml : premetric_lattice_ R) : Prop ≝ {
   prop1a: ∀a : ml.δ (a ∧ a) a ≈ 0;
   prop1b: ∀a : ml.δ (a ∨ a) a ≈ 0;
   prop2a: ∀a,b: ml. δ (a ∨ b) (b ∨ a) ≈ 0;
@@ -40,14 +40,14 @@ record premetric_lattice_props (R : ogroup) (ml : premetric_lattice_ R) : Prop 
   prop5: ∀a,b,c: ml. δ (a ∨ b) (a ∨ c) + δ (a ∧ b) (a ∧ c) ≤ δ b c
 }.
 
-record pmlattice (R : ogroup) : Type ≝ {
+record pmlattice (R : todgroup) : Type ≝ {
   carr :> premetric_lattice_ R;
   ispremetriclattice:> premetric_lattice_props R carr
 }.
   
 include "lattice.ma".
 
-lemma lattice_of_pmlattice: ∀R: ogroup. pmlattice R → lattice.
+lemma lattice_of_pmlattice: ∀R: todgroup. pmlattice R → lattice.
 intros (R pml); apply (mk_lattice (apart_of_metric_space ? pml));
 [apply (join ? pml)|apply (meet ? pml)
 |3,4,5,6,7,8,9,10: intros (x y z); whd; intro H; whd in H; cases H (LE AP);]