diff options
Diffstat (limited to 'x86/SelectOpproof.v')
-rw-r--r-- | x86/SelectOpproof.v | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/x86/SelectOpproof.v b/x86/SelectOpproof.v index cdb79c6f..1728c39d 100644 --- a/x86/SelectOpproof.v +++ b/x86/SelectOpproof.v @@ -363,6 +363,16 @@ Proof. - TrivialExists. Qed. +Theorem eval_mulhs: binary_constructor_sound mulhs Val.mulhs. +Proof. + unfold mulhs; red; intros; TrivialExists. +Qed. + +Theorem eval_mulhu: binary_constructor_sound mulhu Val.mulhu. +Proof. + unfold mulhu; red; intros; TrivialExists. +Qed. + Theorem eval_andimm: forall n, unary_constructor_sound (andimm n) (fun x => Val.and x (Vint n)). Proof. |