]> matita.cs.unibo.it Git - helm.git/blobdiff - helm/software/matita/dama/valued_lattice.ma
first draft of a script to mechanically introduce (disambiguation) errors into Matita...
[helm.git] / helm / software / matita / dama / valued_lattice.ma
index 165160977dc2955840520d91e5ad6e6bb3008c60..610bf7d359b65650cb84a838a4f3149bbcb973ca 100644 (file)
@@ -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)));