Commit aac8c9ef authored by Robbert Krebbers's avatar Robbert Krebbers
Browse files

Fix typo.

parent cea60198
...@@ -70,7 +70,7 @@ Tactic Notation "wp_pure" open_constr(efoc) := ...@@ -70,7 +70,7 @@ Tactic Notation "wp_pure" open_constr(efoc) :=
|apply _ (* IntoLaters *) |apply _ (* IntoLaters *)
|wp_expr_simpl_subst; try wp_value_head (* new goal *) |wp_expr_simpl_subst; try wp_value_head (* new goal *)
]) ])
|| fail "wp_pure: cannot find" efoc "in" e "or" efoc "is not a reduct" || fail "wp_pure: cannot find" efoc "in" e "or" efoc "is not a redex"
| |- envs_entails _ (twp ?s ?E ?e ?Q) => | |- envs_entails _ (twp ?s ?E ?e ?Q) =>
let e := eval simpl in e in let e := eval simpl in e in
reshape_expr e ltac:(fun K e' => reshape_expr e ltac:(fun K e' =>
...@@ -80,7 +80,7 @@ Tactic Notation "wp_pure" open_constr(efoc) := ...@@ -80,7 +80,7 @@ Tactic Notation "wp_pure" open_constr(efoc) :=
|try fast_done (* The pure condition for PureExec *) |try fast_done (* The pure condition for PureExec *)
|wp_expr_simpl_subst; try wp_value_head (* new goal *) |wp_expr_simpl_subst; try wp_value_head (* new goal *)
]) ])
|| fail "wp_pure: cannot find" efoc "in" e "or" efoc "is not a reduct" || fail "wp_pure: cannot find" efoc "in" e "or" efoc "is not a redex"
| _ => fail "wp_pure: not a 'wp'" | _ => fail "wp_pure: not a 'wp'"
end. end.
......
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