Skip to content
Snippets Groups Projects
Commit a889efa0 authored by Michael Sammler's avatar Michael Sammler
Browse files

simplify option fmap none

parent c94fb809
No related branches found
No related tags found
No related merge requests found
Pipeline #41612 passed
......@@ -433,6 +433,10 @@ Proof. unfold FastDone in *; subst. split; naive_solver. Qed.
Global Instance simpl_both_fmap_Some A f (o : option A) (x : A): SimplBothRel (=) (f <$> o) (Some x) ( x', o = Some x' x = f x').
Proof. unfold SimplBothRel. rewrite fmap_Some. naive_solver. Qed.
Global Instance simplify_option_fmap_None {A B} (f : A B) (x : option A) :
SimplBothRel (=) (f <$> x) (None) (x = None).
Proof. by split; rewrite fmap_None. Qed.
Global Instance simpl_both_rotate_lookup_Some A b l i (x : A): SimplBothRel (=) (rotate b l !! i) (Some x) (l !! rotate_nat_add b i (length l) = Some x (i < length l)%nat).
Proof. unfold SimplBothRel. by rewrite lookup_rotate_r_Some. Qed.
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment