diff options
author | Yann Herklotz <git@yannherklotz.com> | 2020-08-13 23:22:20 +0100 |
---|---|---|
committer | Yann Herklotz <git@yannherklotz.com> | 2020-08-13 23:22:20 +0100 |
commit | 3971466fbdd9aa1883a4468de3d67fdf90fee02d (patch) | |
tree | 6a4cc78017b25e43019b27011eac12567d8eed5f /src/verilog | |
parent | b4aa578616acaab35e8c5c8ca7f58cc971d0baf5 (diff) | |
download | vericert-kvx-3971466fbdd9aa1883a4468de3d67fdf90fee02d.tar.gz vericert-kvx-3971466fbdd9aa1883a4468de3d67fdf90fee02d.zip |
Add html generation and clean Coq files
Diffstat (limited to 'src/verilog')
-rw-r--r-- | src/verilog/Array.v | 2 | ||||
-rw-r--r-- | src/verilog/Value.v | 4 | ||||
-rw-r--r-- | src/verilog/ValueInt.v | 1 |
3 files changed, 2 insertions, 5 deletions
diff --git a/src/verilog/Array.v b/src/verilog/Array.v index 02b6d33..fe0f6b2 100644 --- a/src/verilog/Array.v +++ b/src/verilog/Array.v @@ -156,7 +156,7 @@ Proof. intros. unfold array_get. - info_eauto with array. + eauto with array. Qed. Lemma array_get_get_error {A : Type} : diff --git a/src/verilog/Value.v b/src/verilog/Value.v index 41a41b4..d6a3d8b 100644 --- a/src/verilog/Value.v +++ b/src/verilog/Value.v @@ -40,8 +40,6 @@ Record value : Type := vword: word vsize }. -Search N.of_nat. - (** ** Value conversions Various conversions to different number types such as [N], [Z], [positive] and @@ -490,7 +488,7 @@ Qed. Proof. intros. unfold Int.add, valueToInt, intToValue. repeat (rewrite Int.unsigned_repr). rewrite (@vadd_vplus v1 v2 EQ). trivial. - unfold uvalueToZ. Search word "bound". pose proof (@uwordToZ_bound (vsize v2) (vword v2)). + unfold uvalueToZ. pose proof (@uwordToZ_bound (vsize v2) (vword v2)). rewrite H in EQ. rewrite <- EQ in H0 at 3.*) (*rewrite zadd_vplus3. trivia*) diff --git a/src/verilog/ValueInt.v b/src/verilog/ValueInt.v index 2220998..f1fd056 100644 --- a/src/verilog/ValueInt.v +++ b/src/verilog/ValueInt.v @@ -77,7 +77,6 @@ Definition ptrToValue (i : ptrofs) : value := Ptrofs.to_int i. Definition valueToPtr (i : value) : Integers.ptrofs := Ptrofs.of_int i. -Search Ptrofs.of_int Ptrofs.to_int. Definition valToValue (v : Values.val) : option value := match v with | Values.Vint i => Some (intToValue i) |