Commit a7b8d5f8 authored by Robbert Krebbers's avatar Robbert Krebbers

Generalize `merge_ext`.

parent 735e4e4d
Pipeline #5675 passed with stages
in 7 minutes and 32 seconds
...@@ -181,7 +181,8 @@ Section setoid. ...@@ -181,7 +181,8 @@ Section setoid.
intros ?? Hf; apply partial_alter_proper. intros ?? Hf; apply partial_alter_proper.
by destruct 1; constructor; apply Hf. by destruct 1; constructor; apply Hf.
Qed. 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 f g
(() ==> () ==> ())%signature (merge (M:=M) f) (merge g). (() ==> () ==> ())%signature (merge (M:=M) f) (merge g).
Proof. Proof.
......
Markdown is supported
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