]> matita.cs.unibo.it Git - helm.git/blobdiff - matita/matita/contribs/lambdadelta/ground_2/relocation/nstream_istot.ma
- second precommit for rtmap
[helm.git] / matita / matita / contribs / lambdadelta / ground_2 / relocation / nstream_istot.ma
index c64c7011cd8caab1354a303d976ad67ff98c5e51..0001b90b9c06cff094db74fc2b49b3d54da71815 100644 (file)
@@ -98,7 +98,8 @@ lemma apply_S1: ∀f,i. (⫯f)@❴i❵ = ⫯(f@❴i❵).
 qed.
 
 (* Main inversion lemmas ****************************************************)
-
+(*
 lemma apply_inj_aux: ∀f1,f2,j1,j2,i1,i2. f1@❴i1❵ = j1 → f2@❴i2❵ = j2 →
                      j1 = j2 → f1 ≗ f2 → i1 = i2.
 /2 width=6 by at_inj/ qed-.
+*)