Commit 3eb9d489 authored by Robbert Krebbers's avatar Robbert Krebbers
Browse files

Simplify proof of `list_find_ext`.

parent 9eb8cd13
Pipeline #18394 passed with stage
in 8 minutes and 37 seconds
......@@ -920,10 +920,8 @@ Section find.
(∀ x, P x ↔ Q x) →
list_find P l = list_find Q l.
intros HPQ. induction l as [|x l IH]; [done|]. simpl.
rewrite !decide_bool_decide.
rewrite (bool_decide_iff _ (Q x)) by done.
rewrite IH. done.
intros HPQ. induction l as [|x l IH]; simpl; [done|].
by rewrite (decide_iff (P x) (Q x)), IH by done.
End find.
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