lablgladecc => lablgladecc3

[helm.git] / matita / matita / lib / reverse_complexity / speed_clean.ma

diff --git a/matita/matita/lib/reverse_complexity/speed_clean.ma b/matita/matita/lib/reverse_complexity/speed_clean.ma
index 46eb10751b7b2ebba1279499b0b5b3954e10f788..9b9fecf949282e3f167c00e6ec640871f95d0904 100644 (file)
--- a/matita/matita/lib/reverse_complexity/speed_clean.ma
+++ b/matita/matita/lib/reverse_complexity/speed_clean.ma
@@ -918,8 +918,6 @@ lemma h_of_def: ∀r,a,b.h_of r 〈a,b〉 =
   h_of_aux r (MSC 〈〈m,m〉,〈m,m〉〉) (b - a) b.
 #r #a #b normalize >fst_pair >snd_pair //
 qed.
-   
-(*  (∀x.MSC x≤h (S (fst x)) (snd(snd x))) → *)
   
 lemma mono_h_of_aux: ∀r.(∀x. x ≤ r x) → monotonic ? le r →
   ∀d,d1,c,c1,b,b1.c ≤ c1 → d ≤ d1 → b ≤ b1 →