huge commit in automation:

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

diff --git a/helm/software/matita/contribs/POPLmark/Fsub/defn.ma b/helm/software/matita/contribs/POPLmark/Fsub/defn.ma
index 184166ed9346616940e739b222dd408a327e623b..d9e4e4695f387c3d1f821590567f19afd21f2646 100644 (file)
--- a/helm/software/matita/contribs/POPLmark/Fsub/defn.ma
+++ b/helm/software/matita/contribs/POPLmark/Fsub/defn.ma
@@ -248,8 +248,7 @@ qed.
 
 (*** lemmata on well-formedness ***)
 
-lemma fv_WFT : \forall T,x,G.(WFType G T) \to (in_list ? x (fv_type T)) \to
-                  (in_list ? x (fv_env G)).
+lemma fv_WFT : \forall T,x,G.(WFType G T) → x ∈ fv_type T → x ∈ fv_env G.
 intros 4.elim H
   [simplify in H2;elim (in_list_cons_case ? ? ? ? H2)
      [rewrite > H3;assumption|elim (not_in_list_nil ? ? H3)]