diff options
author | Yann Herklotz <git@yannherklotz.com> | 2020-06-14 14:12:38 +0100 |
---|---|---|
committer | Yann Herklotz <git@yannherklotz.com> | 2020-06-14 14:12:38 +0100 |
commit | a23cc48f449ffbfd347f833965c1e04b88e0009a (patch) | |
tree | a2f052d935a9db4fe34ca518a4bc81ad0ae6fd30 /src/translation/HTLgenspec.v | |
parent | 8e3c89bad3a20c0bb9c88b83d966565d79822ff1 (diff) | |
download | vericert-a23cc48f449ffbfd347f833965c1e04b88e0009a.tar.gz vericert-a23cc48f449ffbfd347f833965c1e04b88e0009a.zip |
Add more unproven instructions, Admitted equiv to spec
Diffstat (limited to 'src/translation/HTLgenspec.v')
-rw-r--r-- | src/translation/HTLgenspec.v | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/translation/HTLgenspec.v b/src/translation/HTLgenspec.v index 7909688..b70e11c 100644 --- a/src/translation/HTLgenspec.v +++ b/src/translation/HTLgenspec.v @@ -320,14 +320,14 @@ Lemma translate_instr_tr_op : translate_instr op args s = OK e s' i -> tr_op op args e. Proof. - intros. +(* intros. destruct op eqn:?; eauto with htlspec; try discriminate; simpl in *; try (match goal with [ H: match ?args with _ => _ end _ = _ _ _ |- _ ] => repeat (destruct args; try discriminate) end); monadInv H; constructor. -Qed. +Qed.*) Admitted. (* FIXME: Currently admitted because added Osel *) Hint Resolve translate_instr_tr_op : htlspec. Ltac unfold_match H := |