Commit 191a6f43 authored by Ralf Jung's avatar Ralf Jung

fix nits

parent 6d15cf39
...@@ -534,15 +534,14 @@ Proof. ...@@ -534,15 +534,14 @@ Proof.
Qed. Qed.
Section wandM. Section wandM.
Import proofmode.base. Import proofmode.base.
Lemma test_wandM mP Q R : Lemma test_wandM mP Q R :
(mP -? Q) - (Q - R) - (mP -? R). (mP -? Q) - (Q - R) - (mP -? R).
Proof. Proof.
iIntros "HPQ HQR HP". Show. iIntros "HPQ HQR HP". Show.
iApply "HQR". iApply "HPQ". Show. iApply "HQR". iApply "HPQ". Show.
done. done.
Qed. Qed.
End wandM. End wandM.
End tests. End tests.
......
...@@ -23,8 +23,8 @@ Notation "'∀..' x .. y , P" := (bi_tforall (λ x, .. (bi_tforall (λ y, P)) .. ...@@ -23,8 +23,8 @@ Notation "'∀..' x .. y , P" := (bi_tforall (λ x, .. (bi_tforall (λ y, P)) ..
Section telescope_quantifiers. Section telescope_quantifiers.
Context {PROP : bi} {TT : tele}. Context {PROP : bi} {TT : tele}.
Lemma bi_tforall_forall (Ψ : TT -> PROP) : Lemma bi_tforall_forall (Ψ : TT PROP) :
(bi_tforall Ψ) (bi_forall Ψ). bi_tforall Ψ bi_forall Ψ.
Proof. Proof.
symmetry. unfold bi_tforall. induction TT as [|X ft IH]. symmetry. unfold bi_tforall. induction TT as [|X ft IH].
- simpl. apply (anti_symm _). - simpl. apply (anti_symm _).
...@@ -36,11 +36,11 @@ Section telescope_quantifiers. ...@@ -36,11 +36,11 @@ Section telescope_quantifiers.
by rewrite (forall_elim (TargS a p)). by rewrite (forall_elim (TargS a p)).
+ move/tele_arg_inv : (a) => [x [pf ->]] {a} /=. + move/tele_arg_inv : (a) => [x [pf ->]] {a} /=.
setoid_rewrite <- IH. setoid_rewrite <- IH.
do 2 rewrite forall_elim. done. rewrite 2!forall_elim. done.
Qed. Qed.
Lemma bi_texist_exist (Ψ : TT -> PROP) : Lemma bi_texist_exist (Ψ : TT PROP) :
(bi_texist Ψ) (bi_exist Ψ). bi_texist Ψ bi_exist Ψ.
Proof. Proof.
symmetry. unfold bi_texist. induction TT as [|X ft IH]. symmetry. unfold bi_texist. induction TT as [|X ft IH].
- simpl. apply (anti_symm _). - simpl. apply (anti_symm _).
......
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