- Procedural: now we generate the exact tactic (in place of some apply tactics) and...

[helm.git] / helm / software / matita / contribs / POPLmark / Fsub / part1a.ma

diff --git a/helm/software/matita/contribs/POPLmark/Fsub/part1a.ma b/helm/software/matita/contribs/POPLmark/Fsub/part1a.ma
index 8558725cc883569783da832862df8b0d1ed8e969..7ae8763cfeddeedaf1c56e1c556ccb203c481362 100644 (file)
--- 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.