src/HOL/Filter.thy
changeset 60037 071a99649dde
parent 60036 218fcc645d22
child 60038 ca431cbce2a3
     1.1 --- a/src/HOL/Filter.thy	Sun Apr 12 11:33:19 2015 +0200
     1.2 +++ b/src/HOL/Filter.thy	Sun Apr 12 11:33:30 2015 +0200
     1.3 @@ -39,6 +39,15 @@
     1.4  definition eventually :: "('a \<Rightarrow> bool) \<Rightarrow> 'a filter \<Rightarrow> bool"
     1.5    where "eventually P F \<longleftrightarrow> Rep_filter F P"
     1.6  
     1.7 +syntax
     1.8 +  "_eventually"  :: "pttrn => 'a filter => bool => bool"      ("(3ALL _ in _./ _)" [0, 0, 10] 10)
     1.9 +
    1.10 +syntax (xsymbols)
    1.11 +  "_eventually"  :: "pttrn => 'a filter => bool => bool"      ("(3\<forall>_ in _./ _)" [0, 0, 10] 10)
    1.12 +
    1.13 +translations
    1.14 +  "\<forall>x in F. P" == "CONST eventually (%x. P) F"
    1.15 +
    1.16  lemma eventually_Abs_filter:
    1.17    assumes "is_filter F" shows "eventually P (Abs_filter F) = F P"
    1.18    unfolding eventually_def using assms by (simp add: Abs_filter_inverse)