equal
deleted
inserted
replaced
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}" |