Skip to content
Snippets Groups Projects
Commit 032879e0 authored by Robbert Krebbers's avatar Robbert Krebbers
Browse files

Fix some typos in comments.

parent b62bb39a
No related branches found
No related tags found
No related merge requests found
......@@ -691,8 +691,8 @@ Local Tactic Notation "iIntro" "(" simple_intropattern(x) ")" :=
|(* (?P -∗ _) *) eapply tac_wand_intro_pure;
[let P := match goal with |- IntoPure ?P _ => P end in
apply _ || fail "iIntro:" P "not pure"|]
|(* (■ ∀ _, _) *) apply tac_pure_forall_intro
|(* (■ (_ → _)) *) apply tac_pure_impl_intro];
|(* ∀ _, _ *) apply tac_pure_forall_intro
|(* _ → _ *) apply tac_pure_impl_intro];
intros x.
Local Tactic Notation "iIntro" constr(H) := first
......@@ -1163,7 +1163,7 @@ Tactic Notation "iRewrite" "-" open_constr(lem) "in" constr(H) :=
iRewriteCore true lem in H.
Ltac iSimplifyEq := repeat (
iMatchGoal ltac:(fun H P => match P with (⌜_ = _)%I => iDestruct H as %? end)
iMatchGoal ltac:(fun H P => match P with ⌜_ = _⌝%I => iDestruct H as %? end)
|| simplify_eq/=).
(** * Update modality *)
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment