Skip to content
Snippets Groups Projects
Commit 4d2f128e authored by Simon Friis Vindum's avatar Simon Friis Vindum
Browse files

Combine intro patterns

parent 728bf3ba
No related branches found
No related tags found
No related merge requests found
Hide whitespace changes
Inline Side-by-side
theories/algebra/agree.v
+ 1
− 2
View file @ 4d2f128e
...@@ -209,8 +209,7 @@ Qed. ...@@ -209,8 +209,7 @@ Qed.
Lemma to_agree_includedN n a b : to_agree a ≼{n} to_agree b ↔ a ≡{n}≡ b. Lemma to_agree_includedN n a b : to_agree a ≼{n} to_agree b ↔ a ≡{n}≡ b.
Proof. Proof.
split; last by intros ->. split; last by intros ->. intros [x [_ Hincl]].
intros (x & Heq). destruct Heq as [_ Hincl].
by destruct (Hincl a) as (? & ->%elem_of_list_singleton & ?); first set_solver+. by destruct (Hincl a) as (? & ->%elem_of_list_singleton & ?); first set_solver+.
Qed. Qed.
......
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