diff options
| author |  Jason Gross <jgross@mit.edu> | 2017-01-11 21:02:50 -0500 |
|---|---|---|
| committer |  Jason Gross <jasongross9@gmail.com> | 2017-03-01 11:45:47 -0500 |
| commit | 6b3048c37ad348dc88ecc03ef892ecfb121bfa7f (patch) | |
| tree | 351e5438c5664ab0caf08b9d5054f296ff4aa2ee /src/Reflection/InlineCastInterp.v | |
| parent | 80dc66a34fbf031bfac1214ccbb3bb1dcdef3d39 (diff) | |
Switch to fully uncurried form for reflection
This will eventually make a number of proofs easier.
Unfortunately, the correctness lemmas for AddCoordinates and LadderStep
no longer work (because of different arities), and there's a proof in
Experiments/Ed25519 that I've admitted.
The correctness lemmas will be easy to re-add when we have a more
general version that handle arbitrary type shapes.
Diffstat (limited to 'src/Reflection/InlineCastInterp.v')
| -rw-r--r-- | src/Reflection/InlineCastInterp.v | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/Reflection/InlineCastInterp.v b/src/Reflection/InlineCastInterp.v index 5cf2bf7fe..8e6719f0c 100644 --- a/src/Reflection/InlineCastInterp.v +++ b/src/Reflection/InlineCastInterp.v @@ -106,8 +106,8 @@ Section language. Local Hint Resolve interpf_exprf_of_push_cast. Lemma InterpInlineCast {t} e (Hwf : Wf e) - : interp_type_gen_rel_pointwise (fun _ => @eq _) - (Interp interp_op (@InlineCast t e)) - (Interp interp_op e). + : forall x, + Interp interp_op (@InlineCast t e) x + = Interp interp_op e x. Proof. apply InterpInlineConstGen; auto. Qed. End language. |