diff options
| author | Yann Herklotz <git@yannherklotz.com> | 2021-11-01 09:36:36 +0000 |
|---|---|---|
| committer | Yann Herklotz <git@yannherklotz.com> | 2021-11-01 09:36:36 +0000 |
| commit | 6d51b121071b0c28f16c5c519ca64c7ac5d755b4 (patch) | |
| tree | 35cefb1c22bfb9c16e2de03b19953e9cc99a8ffc /src | |
| parent | 6e2259a57b6ca00c068b176b9d5087ed632598c2 (diff) | |
| download | vericert-6d51b121071b0c28f16c5c519ca64c7ac5d755b4.tar.gz vericert-6d51b121071b0c28f16c5c519ca64c7ac5d755b4.zip | |
[sched] Simplify some of the Lemma statements
Diffstat (limited to 'src')
| -rw-r--r-- | src/hls/RTLPargen.v | 14 |
1 files changed, 6 insertions, 8 deletions
diff --git a/src/hls/RTLPargen.v b/src/hls/RTLPargen.v index 30a35f3..14d354f 100644 --- a/src/hls/RTLPargen.v +++ b/src/hls/RTLPargen.v @@ -386,19 +386,17 @@ Ltac solve_scheduled_trees_correct := end; repeat destruct_match; crush. Lemma check_scheduled_trees_correct: - forall f1 f2, + forall f1 f2 x y1, check_scheduled_trees f1 f2 = true -> - (forall x y1, - PTree.get x f1 = Some y1 -> - exists y2, PTree.get x f2 = Some y2 /\ schedule_oracle y1 y2 = true). + PTree.get x f1 = Some y1 -> + exists y2, PTree.get x f2 = Some y2 /\ schedule_oracle y1 y2 = true. Proof. solve_scheduled_trees_correct; eexists; crush. Qed. Lemma check_scheduled_trees_correct2: - forall f1 f2, + forall f1 f2 x, check_scheduled_trees f1 f2 = true -> - (forall x, - PTree.get x f1 = None -> - PTree.get x f2 = None). + PTree.get x f1 = None -> + PTree.get x f2 = None. Proof. solve_scheduled_trees_correct. Qed. (*| |