diff options
| author | Yann Herklotz <git@yannherklotz.com> | 2023-10-06 18:23:43 +0200 |
|---|---|---|
| committer | Yann Herklotz <git@yannherklotz.com> | 2023-10-06 18:23:58 +0200 |
| commit | e4e615ede80e813647947bdff67453b4cc788ce2 (patch) | |
| tree | 36b2bbd04a86a383df583b29b21ba70d2fdaf7b8 /src/hls/Predicate.v | |
| parent | 42ab7386b7d1a312712bf8dd4031c06fce5bc1ff (diff) | |
| download | vericert-e4e615ede80e813647947bdff67453b4cc788ce2.tar.gz vericert-e4e615ede80e813647947bdff67453b4cc788ce2.zip | |
Finish eval_correct proof
Diffstat (limited to 'src/hls/Predicate.v')
| -rw-r--r-- | src/hls/Predicate.v | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/src/hls/Predicate.v b/src/hls/Predicate.v index d4bc80a..7786c5d 100644 --- a/src/hls/Predicate.v +++ b/src/hls/Predicate.v @@ -161,6 +161,8 @@ Section PRED_DEFINITION. End PRED_DEFINITION. +Definition dfltp {A} (p: option (@Predicate.pred_op A)) := Option.default Ptrue p. + Notation "A ∧ B" := (Pand A B) (at level 20) : pred_op. Notation "A ∨ B" := (Por A B) (at level 25) : pred_op. Notation "⟂" := (Pfalse) : pred_op. |