X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fsoftware%2Fmatita%2Fcontribs%2Fng_assembly%2Fcommon%2Fstring_lemmas.ma;h=b30befbf9a41ced577d514b1b3bd8b99a4c88532;hb=601baed778a190b580982b588ebe49ba3f762b30;hp=170581a672a50ba1cc72f83e07bc734464094800;hpb=94c6cfe7e6b833190904c6b546668d716978a812;p=helm.git

diff --git a/helm/software/matita/contribs/ng_assembly/common/string_lemmas.ma b/helm/software/matita/contribs/ng_assembly/common/string_lemmas.ma
index 170581a67..b30befbf9 100755
--- a/helm/software/matita/contribs/ng_assembly/common/string_lemmas.ma
+++ b/helm/software/matita/contribs/ng_assembly/common/string_lemmas.ma
@@ -153,7 +153,7 @@ nlemma neqstrid_to_neq : ∀sid1,sid2:strId.(eq_strId sid1 sid2 = false) → (si
  #sid2; nelim sid2; #s2; #n2;
  nchange with ((((eq_str s1 s2) ⊗ (eq_nat n1 n2)) = false) → ?);
  #H;
- napply (or2_elim ((eq_str s1 s2) = false) ((eq_nat n1 n2) = false) ? (andb_false … H) …);
+ napply (or2_elim ((eq_str s1 s2) = false) ((eq_nat n1 n2) = false) ? (andb_false2 … H) …);
  ##[ ##1: #H1; napply (decidable_strid_aux1 … (neqstr_to_neq … H1))
  ##| ##2: #H1; napply (decidable_strid_aux2 … (neqnat_to_neq … H1))
  ##]