Commit d10c1878 by Robbert Krebbers

### Make wp_rec/wp_lam solve to_of_val premises.

parent 04f588de
 ... @@ -29,7 +29,9 @@ Tactic Notation "wp_rec" ">" := ... @@ -29,7 +29,9 @@ Tactic Notation "wp_rec" ">" := | |- _ ⊑ wp ?E ?e ?Q => reshape_expr e ltac:(fun K e' => | |- _ ⊑ wp ?E ?e ?Q => reshape_expr e ltac:(fun K e' => match eval cbv in e' with match eval cbv in e' with | App (Rec _ _ _) _ => | App (Rec _ _ _) _ => wp_bind K; etrans; [|eapply wp_rec; reflexivity]; wp_finish wp_bind K; etrans; [|eapply wp_rec; repeat (reflexivity || rewrite /= to_of_val)]; wp_finish end) end) end). end). Tactic Notation "wp_rec" := wp_rec>; try strip_later. Tactic Notation "wp_rec" := wp_rec>; try strip_later. ... @@ -39,7 +41,9 @@ Tactic Notation "wp_lam" ">" := ... @@ -39,7 +41,9 @@ Tactic Notation "wp_lam" ">" := | |- _ ⊑ wp ?E ?e ?Q => reshape_expr e ltac:(fun K e' => | |- _ ⊑ wp ?E ?e ?Q => reshape_expr e ltac:(fun K e' => match eval cbv in e' with match eval cbv in e' with | App (Rec "" _ _) _ => | App (Rec "" _ _) _ => wp_bind K; etrans; [|eapply wp_lam; reflexivity]; wp_finish wp_bind K; etrans; [|eapply wp_lam; repeat (reflexivity || rewrite /= to_of_val)]; wp_finish end) end) end. end. Tactic Notation "wp_lam" := wp_lam>; try strip_later. Tactic Notation "wp_lam" := wp_lam>; try strip_later. ... ...
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!