Skip to content
Snippets Groups Projects
Commit a7b8d5f8 authored by Robbert Krebbers's avatar Robbert Krebbers
Browse files

Generalize `merge_ext`.

parent 735e4e4d
No related branches found
No related tags found
No related merge requests found
......@@ -181,7 +181,8 @@ Section setoid.
intros ?? Hf; apply partial_alter_proper.
by destruct 1; constructor; apply Hf.
Qed.
Lemma merge_ext f g `{!DiagNone f, !DiagNone g} :
Lemma merge_ext `{Equiv B, Equiv C} (f g : option A option B option C)
`{!DiagNone f, !DiagNone g} :
(() ==> () ==> ())%signature f g
(() ==> () ==> ())%signature (merge (M:=M) f) (merge g).
Proof.
......
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