diff options
| author | Bernhard Schommer <bernhardschommer@gmail.com> | 2016-07-11 08:30:14 +0200 |
|---|---|---|
| committer | Bernhard Schommer <bernhardschommer@gmail.com> | 2016-07-11 08:30:14 +0200 |
| commit | d5b86a98560c36fbcb3ab8d2698e09147acda512 (patch) | |
| tree | f3ab850a1620fa5d3dbbe439998d09de8e0d817d /cparser/validator/Interpreter_correct.v | |
| parent | ea2d6b70ed06c60dba9ba81cf53883c85fb92068 (diff) | |
| parent | 3872ce9f9806d9af334b1fde092145edf664d170 (diff) | |
| download | compcert-d5b86a98560c36fbcb3ab8d2698e09147acda512.tar.gz compcert-d5b86a98560c36fbcb3ab8d2698e09147acda512.zip | |
Merge branch 'master' into add-file
Diffstat (limited to 'cparser/validator/Interpreter_correct.v')
| -rw-r--r-- | cparser/validator/Interpreter_correct.v | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/cparser/validator/Interpreter_correct.v b/cparser/validator/Interpreter_correct.v index 3a285158..1263d4e3 100644 --- a/cparser/validator/Interpreter_correct.v +++ b/cparser/validator/Interpreter_correct.v @@ -59,7 +59,7 @@ Proof. intros. unfold arrows_right, arrows_left. rewrite rev_append_rev, map_app, map_rev, fold_left_app. -f_equal. +apply f_equal. rewrite <- fold_left_rev_right, rev_involutive. reflexivity. Qed. @@ -87,7 +87,7 @@ Lemma pop_invariant: end. Proof. induction symbols_to_pop; intros; unfold pop; fold pop. -exists word_stack ([]:list token) sem_popped; intuition. +exists word_stack, ([]:list token), sem_popped; intuition. f_equal. apply JMeq_eq, JMeq_eqrect with (P:=(fun x => x)). destruct stack_cur as [|[]]; eauto. |