Commit c056a2d9 authored by Heiko Becker's avatar Heiko Becker

Rename Lemma in ExpressionsSemantics and fix assumptions for abstract bound lemmas

parent ebc6d460
This diff is collapsed.
......@@ -184,7 +184,7 @@ Proof.
auto.
Qed.
Lemma toRMap_eval_REAL f:
Lemma toRTMap_eval_REAL f:
forall v E Gamma m, eval_expr E (toRTMap Gamma) (toREval f) v m -> m = REAL.
Proof.
induction f; intros * eval_f; inversion eval_f; subst.
......@@ -247,20 +247,20 @@ Proof.
+ cbn in *. Flover_compute; rewrite (IHf v0 v3); [auto | | ];
destruct m, m0; cbn in *; congruence.
- inversion ev1; inversion ev2; subst.
assert (m0 = REAL) by (eapply toRMap_eval_REAL; eauto).
assert (m3 = REAL) by (eapply toRMap_eval_REAL; eauto).
assert (m1 = REAL) by (eapply toRMap_eval_REAL; eauto).
assert (m2 = REAL) by (eapply toRMap_eval_REAL; eauto).
assert (m0 = REAL) by (eapply toRTMap_eval_REAL; eauto).
assert (m3 = REAL) by (eapply toRTMap_eval_REAL; eauto).
assert (m1 = REAL) by (eapply toRTMap_eval_REAL; eauto).
assert (m2 = REAL) by (eapply toRTMap_eval_REAL; eauto).
subst.
rewrite (IHf1 v0 v4); try auto.
rewrite (IHf2 v3 v5); try auto.
- inversion ev1; inversion ev2; subst.
assert (m0 = REAL) by (eapply toRMap_eval_REAL; eauto).
assert (m1 = REAL) by (eapply toRMap_eval_REAL; eauto).
assert (m2 = REAL) by (eapply toRMap_eval_REAL; eauto).
assert (m3 = REAL) by (eapply toRMap_eval_REAL; eauto).
assert (m4 = REAL) by (eapply toRMap_eval_REAL; eauto).
assert (m5 = REAL) by (eapply toRMap_eval_REAL; eauto).
assert (m0 = REAL) by (eapply toRTMap_eval_REAL; eauto).
assert (m1 = REAL) by (eapply toRTMap_eval_REAL; eauto).
assert (m2 = REAL) by (eapply toRTMap_eval_REAL; eauto).
assert (m3 = REAL) by (eapply toRTMap_eval_REAL; eauto).
assert (m4 = REAL) by (eapply toRTMap_eval_REAL; eauto).
assert (m5 = REAL) by (eapply toRTMap_eval_REAL; eauto).
subst.
rewrite (IHf1 v0 v5); try auto.
rewrite (IHf2 v3 v6); try auto.
......
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