(* *)
(**************************************************************************)
-set "baseuri" "cic:/matita/Fsub/part1a/".
include "Fsub/defn.ma".
(*** Lemma A.1 (Reflexivity) ***)
[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.