X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fsoftware%2Fmatita%2Fdama%2Fvalued_lattice.ma;h=610bf7d359b65650cb84a838a4f3149bbcb973ca;hb=dbf2689a206bb4f7a3b36f6e40a88a47c8ad6e09;hp=165160977dc2955840520d91e5ad6e6bb3008c60;hpb=cb89a1eebdd620d7e1c593fa279e74d4c715b8bf;p=helm.git

diff --git a/helm/software/matita/dama/valued_lattice.ma b/helm/software/matita/dama/valued_lattice.ma
index 165160977..610bf7d35 100644
--- a/helm/software/matita/dama/valued_lattice.ma
+++ b/helm/software/matita/dama/valued_lattice.ma
@@ -75,6 +75,8 @@ apply eq_reflexive.
 qed.
 
 lemma modularm: ∀R.∀L:vlattice R.∀y,z:L. μ(y∧z) ≈ μy + μz + -μ (y ∨ z).
+(* CSC: questa è la causa per cui la hint per cercare i duplicati ci sta 1 mese *)
+(* exact modularj; *)
 intros (R L y z);
 lapply (modular_mjp ?? y z) as H1;
 apply (plus_cancl ??? (μ(y ∨ z)));