diff options
| author | Yann Herklotz <git@yannherklotz.com> | 2020-07-07 13:50:55 +0100 |
|---|---|---|
| committer | Yann Herklotz <git@yannherklotz.com> | 2020-07-07 13:50:55 +0100 |
| commit | fcb129725a68a052a079f882396be8e28142e1e0 (patch) | |
| tree | 6bf1a5380772071b3e5e23ac26e419d0f9ee779c /src/translation/HTLgenspec.v | |
| parent | 855ca59a303efd32f1979f4e508edb4ddb43adac (diff) | |
| download | vericert-kvx-fcb129725a68a052a079f882396be8e28142e1e0.tar.gz vericert-kvx-fcb129725a68a052a079f882396be8e28142e1e0.zip | |
Only translate_cond left
Diffstat (limited to 'src/translation/HTLgenspec.v')
| -rw-r--r-- | src/translation/HTLgenspec.v | 18 |
1 files changed, 18 insertions, 0 deletions
diff --git a/src/translation/HTLgenspec.v b/src/translation/HTLgenspec.v index f0508bd..71fb618 100644 --- a/src/translation/HTLgenspec.v +++ b/src/translation/HTLgenspec.v @@ -349,6 +349,15 @@ Proof. Qed. Hint Resolve translate_comparison_freshreg_trans : htlspec. +Lemma translate_comparisonu_freshreg_trans : + forall op args s r s' i, + translate_comparisonu op args s = OK r s' i -> + s.(st_freshreg) = s'.(st_freshreg). +Proof. + destruct op; intros; simpl in *; repeat (unfold_match H); inv H; auto. +Qed. +Hint Resolve translate_comparisonu_freshreg_trans : htlspec. + Lemma translate_comparison_imm_freshreg_trans : forall op args s r s' i n, translate_comparison_imm op args n s = OK r s' i -> @@ -358,6 +367,15 @@ Proof. Qed. Hint Resolve translate_comparison_imm_freshreg_trans : htlspec. +Lemma translate_comparison_immu_freshreg_trans : + forall op args s r s' i n, + translate_comparison_immu op args n s = OK r s' i -> + s.(st_freshreg) = s'.(st_freshreg). +Proof. + destruct op; intros; simpl in *; repeat (unfold_match H); inv H; auto. +Qed. +Hint Resolve translate_comparison_immu_freshreg_trans : htlspec. + Lemma translate_condition_freshreg_trans : forall op args s r s' i, translate_condition op args s = OK r s' i -> |