Commit 2e0bf441 authored by Ralf Jung's avatar Ralf Jung

name fmap_inj

parent 5f2a6b77
Pipeline #18264 passed with stage
in 8 minutes and 43 seconds
...@@ -3100,7 +3100,7 @@ Section fmap. ...@@ -3100,7 +3100,7 @@ Section fmap.
( x, f x g x) f <$> l g <$> l. ( x, f x g x) f <$> l g <$> l.
Proof. induction l; constructor; auto. Qed. Proof. induction l; constructor; auto. Qed.
Global Instance: Inj (=) (=) f Inj (=) (=) (fmap f). Global Instance fmap_inj: Inj (=) (=) f Inj (=) (=) (fmap f).
Proof. Proof.
intros ? l1. induction l1 as [|x l1 IH]; [by intros [|??]|]. intros ? l1. induction l1 as [|x l1 IH]; [by intros [|??]|].
intros [|??]; intros; f_equal/=; simplify_eq; auto. intros [|??]; intros; f_equal/=; simplify_eq; auto.
......
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