diff options
author | James Pollard <james@pollard.dev> | 2020-06-29 21:30:44 +0100 |
---|---|---|
committer | James Pollard <james@pollard.dev> | 2020-06-29 21:30:44 +0100 |
commit | 1bfb8971328f63f5ae963eef45d7f3d4b9971a2a (patch) | |
tree | 7951f3bb3726a092f6af88d58e9494b24c471edc /src/verilog/Value.v | |
parent | 1e0d5047d2272fdeb06391d1c5fa4e0472be2365 (diff) | |
parent | 7e59d2723fb9c5b4631f5eac1e99ae8956871a7f (diff) | |
download | vericert-1bfb8971328f63f5ae963eef45d7f3d4b9971a2a.tar.gz vericert-1bfb8971328f63f5ae963eef45d7f3d4b9971a2a.zip |
Merge branch 'develop' into arrays-proof
Diffstat (limited to 'src/verilog/Value.v')
-rw-r--r-- | src/verilog/Value.v | 22 |
1 files changed, 21 insertions, 1 deletions
diff --git a/src/verilog/Value.v b/src/verilog/Value.v index e7b2362..c380ca7 100644 --- a/src/verilog/Value.v +++ b/src/verilog/Value.v @@ -108,6 +108,12 @@ Definition boolToValue (sz : nat) (b : bool) : value := Definition unify_word (sz1 sz2 : nat) (w1 : word sz2): sz1 = sz2 -> word sz1. intros; subst; assumption. Defined. +Lemma unify_word_unfold : + forall sz w, + unify_word sz sz w eq_refl = w. +Proof. + intros. unfold unify_word. Admitted. + Definition value_eq_size: forall v1 v2 : value, { vsize v1 = vsize v2 } + { True }. Proof. @@ -382,7 +388,21 @@ Qed. Lemma boolToValue_ValueToBool : forall b, valueToBool (boolToValue 32 b) = b. -Proof. destruct b; unfold valueToBool, boolToValue; simpl; trivial. Qed. +Proof. destruct b; auto. Qed. + +Lemma intToValue_eq_size : + forall n1 n2, + vsize (intToValue n1) = vsize (intToValue n2). +Proof. auto. Qed. + +Local Open Scope Z. + +Lemma zadd_vplus : + forall z1 z2, + valueToZ (vplus (ZToValue 32 z1) (ZToValue 32 z2) eq_refl) = z1 + z2. +Proof. + intros. unfold valueToZ, ZToValue. simpl. + Admitted. (*Lemma ZToValue_valueToNat : forall x sz, |