X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fsoftware%2Fmatita%2Fcontribs%2FPOPLmark%2FFsub%2Fpart1a.ma;h=7ae8763cfeddeedaf1c56e1c556ccb203c481362;hb=759451f66c0009b12e5bcc9fe0c61f7ab5277057;hp=8558725cc883569783da832862df8b0d1ed8e969;hpb=ef3e622c49ce8a0478c3ef1326d4f179aff3d1ed;p=helm.git

diff --git a/helm/software/matita/contribs/POPLmark/Fsub/part1a.ma b/helm/software/matita/contribs/POPLmark/Fsub/part1a.ma
index 8558725cc..7ae8763cf 100644
--- a/helm/software/matita/contribs/POPLmark/Fsub/part1a.ma
+++ b/helm/software/matita/contribs/POPLmark/Fsub/part1a.ma
@@ -12,7 +12,6 @@
 (*                                                                        *)
 (**************************************************************************)
 
-set "baseuri" "cic:/matita/Fsub/part1a/".
 include "Fsub/defn.ma".
 
 (*** Lemma A.1 (Reflexivity) ***)
@@ -43,8 +42,8 @@ intros 4;elim H
      [unfold;intro;apply H8;apply (incl_bound_fv ? ? H7 ? H9)
      |apply (WFE_cons ? ? ? ? H6 H8);autobatch
      |unfold;intros;inversion H9;intros
-        [destruct H11;apply in_Base
-        |destruct H13;apply in_Skip;apply (H7 ? H10)]]]
+        [destruct H11;apply in_list_head
+        |destruct H13;apply in_list_cons;apply (H7 ? H10)]]]
 qed.
 
 theorem narrowing:∀X,G,G1,U,P,M,N.