Commit a7b8d5f8 authored by Robbert Krebbers's avatar Robbert Krebbers
Browse files

Generalize `merge_ext`.

parent 735e4e4d
Pipeline #5675 passed with stages
in 7 minutes and 32 seconds
......@@ -181,7 +181,8 @@ Section setoid.
intros ?? Hf; apply partial_alter_proper.
by destruct 1; constructor; apply Hf.
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).
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment