lib: Another trivial lemma for supporting CAmkES.
This commit is contained in:
parent
3f20d24822
commit
10f963db36
|
@ -424,4 +424,7 @@ lemma none_some_map2: "the ` Set.filter (\<lambda>s. \<not> Option.is_none s) (r
|
|||
lemma prop_map_of_prop:"\<lbrakk>\<forall>z \<in> set xs. P (g z); map_of (map (\<lambda>x. (f x, g x)) xs) y = Some a\<rbrakk> \<Longrightarrow> P a"
|
||||
using map_of_SomeD by fastforce
|
||||
|
||||
lemma range_subsetI: "\<forall>y\<in>A. \<exists>x. f x = y \<Longrightarrow> A \<subseteq> range f"
|
||||
by fast
|
||||
|
||||
end
|
Loading…
Reference in New Issue