src/HOL/Library/Countable_Set_Type.thy
changeset 55565 f663fc1e653b
parent 55414 eab03e9cee8a
child 55934 800e155d051a
equal deleted inserted replaced
55564:e81ee43ab290 55565:f663fc1e653b
    67   acset_inverse[Transfer.transferred, unfolded mem_Collect_eq, simp]
    67   acset_inverse[Transfer.transferred, unfolded mem_Collect_eq, simp]
    68   acset_inject[Transfer.transferred, unfolded mem_Collect_eq, simp]
    68   acset_inject[Transfer.transferred, unfolded mem_Collect_eq, simp]
    69   rcset[Transfer.transferred, unfolded mem_Collect_eq, simp]
    69   rcset[Transfer.transferred, unfolded mem_Collect_eq, simp]
    70 
    70 
    71 lift_definition cin :: "'a \<Rightarrow> 'a cset \<Rightarrow> bool" is "op \<in>" parametric member_transfer
    71 lift_definition cin :: "'a \<Rightarrow> 'a cset \<Rightarrow> bool" is "op \<in>" parametric member_transfer
    72   ..
    72   .
    73 lift_definition cempty :: "'a cset" is "{}" parametric empty_transfer
    73 lift_definition cempty :: "'a cset" is "{}" parametric empty_transfer
    74   by (rule countable_empty)
    74   by (rule countable_empty)
    75 lift_definition cinsert :: "'a \<Rightarrow> 'a cset \<Rightarrow> 'a cset" is insert parametric Lifting_Set.insert_transfer
    75 lift_definition cinsert :: "'a \<Rightarrow> 'a cset \<Rightarrow> 'a cset" is insert parametric Lifting_Set.insert_transfer
    76   by (rule countable_insert)
    76   by (rule countable_insert)
    77 lift_definition csingle :: "'a \<Rightarrow> 'a cset" is "\<lambda>x. {x}"
    77 lift_definition csingle :: "'a \<Rightarrow> 'a cset" is "\<lambda>x. {x}"