Commit bdb566a4 authored by Robbert Krebbers's avatar Robbert Krebbers

Shorten proof.

parent e4091905
......@@ -123,11 +123,7 @@ Proof.
+ rewrite -EQ impl_elim_r. done.
Qed.
Lemma entails_impl_True P Q : (P Q) (True (P Q)).
Proof.
rewrite entails_eq_True. split.
- by intros <-.
- intros. apply (anti_symm ()); last done. apply True_intro.
Qed.
Proof. rewrite entails_eq_True equiv_spec; naive_solver. Qed.
Lemma and_mono P P' Q Q' : (P Q) (P' Q') P P' Q Q'.
Proof. auto. 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