X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fsoftware%2Fmatita%2Fcontribs%2FRELATIONAL%2FNPlus%2Ffun.ma;h=271a7c6e475949614872175a546473b7fefbcebd;hb=e7cbfc078d4738277cf4a730c9407fc140bc029b;hp=66847cf934fcc7c603c709bd074a2a481bf8068d;hpb=ee31ecd9be54fb4a3d815f11d77e88c3c49ff363;p=helm.git

diff --git a/helm/software/matita/contribs/RELATIONAL/NPlus/fun.ma b/helm/software/matita/contribs/RELATIONAL/NPlus/fun.ma
index 66847cf93..271a7c6e4 100644
--- a/helm/software/matita/contribs/RELATIONAL/NPlus/fun.ma
+++ b/helm/software/matita/contribs/RELATIONAL/NPlus/fun.ma
@@ -12,7 +12,7 @@
 (*                                                                        *)
 (**************************************************************************)
 
-set "baseuri" "cic:/matita/RELATIONAL/NPlus/fun".
+
 
 include "NPlus/inv.ma".
 
@@ -28,7 +28,7 @@ theorem nplus_mono: \forall p,q,r1. (p + q == r1) \to
  intros 4. elim H; clear H q r1;
  [ lapply linear nplus_inv_zero_2 to H1
  | lapply linear nplus_inv_succ_2 to H3. decompose
- ]; subst; autobatch.
+ ]; destruct; autobatch.
 qed.
 
 theorem nplus_inj_1: \forall p1, q, r. (p1 + q == r) \to