From: Enrico Tassi Date: Mon, 26 Nov 2007 10:55:46 +0000 (+0000) Subject: for csc X-Git-Tag: make_still_working~5780 X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=commitdiff_plain;h=12ebc9483bec78f948de80e7e230c98488890f4d;p=helm.git for csc --- 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)));