diff options
| author | Yann Herklotz <git@yannherklotz.com> | 2021-09-22 19:54:11 +0100 |
|---|---|---|
| committer | Yann Herklotz <git@yannherklotz.com> | 2021-09-22 19:54:11 +0100 |
| commit | 3f6f15b6f59df5aa78df6e77cdf970af7eb25302 (patch) | |
| tree | f1e51402252e1c818c34393e40ed8a8364225ed8 /src/hls/RTLBlockInstr.v | |
| parent | 2ff1316847b9d338a792f67b7b9f6364d4b65551 (diff) | |
| download | vericert-3f6f15b6f59df5aa78df6e77cdf970af7eb25302.tar.gz vericert-3f6f15b6f59df5aa78df6e77cdf970af7eb25302.zip | |
RTLpargen passes compilation again
Diffstat (limited to 'src/hls/RTLBlockInstr.v')
| -rw-r--r-- | src/hls/RTLBlockInstr.v | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/hls/RTLBlockInstr.v b/src/hls/RTLBlockInstr.v index 8cd3468..8d3fde4 100644 --- a/src/hls/RTLBlockInstr.v +++ b/src/hls/RTLBlockInstr.v @@ -232,7 +232,7 @@ Fixpoint trans_pred (bound: nat) (p: pred_op) : - apply orb_true_intro. apply satFormula_mult2 in H. inv H. apply i in H0. auto. apply i0 in H0. auto. -Qed. +Defined. Definition sat_pred (bound: nat) (p: pred_op) : option ({al : alist | sat_predicate p (interp_alist al) = true} @@ -251,7 +251,7 @@ Definition sat_pred (bound: nat) (p: pred_op) : - intros. specialize (n a). specialize (i a). destruct (sat_predicate p a). exfalso. apply n. apply i. auto. auto. -Qed. +Defined. Definition sat_pred_simple (bound: nat) (p: pred_op) := match sat_pred bound p with |