diff options
Diffstat (limited to 'arm/SelectOpproof.v')
| -rw-r--r-- | arm/SelectOpproof.v | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/arm/SelectOpproof.v b/arm/SelectOpproof.v index dd194498..f025e345 100644 --- a/arm/SelectOpproof.v +++ b/arm/SelectOpproof.v @@ -337,6 +337,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. |