Commit 4d2f128e authored by Simon Friis Vindum's avatar Simon Friis Vindum
Browse files

Combine intro patterns

parent 728bf3ba
......@@ -209,8 +209,7 @@ Qed.
Lemma to_agree_includedN n a b : to_agree a {n} to_agree b a {n} b.
Proof.
split; last by intros ->.
intros (x & Heq). destruct Heq as [_ Hincl].
split; last by intros ->. intros [x [_ Hincl]].
by destruct (Hincl a) as (? & ->%elem_of_list_singleton & ?); first set_solver+.
Qed.
......
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