diff options
author | Yann Herklotz <git@yannherklotz.com> | 2021-11-02 08:48:25 +0000 |
---|---|---|
committer | Yann Herklotz <git@yannherklotz.com> | 2021-11-02 08:48:25 +0000 |
commit | 2671305938e2fc5d87bf87a8c085cb5f988b89be (patch) | |
tree | 480a38d38cc828fbbb1c750fac776b6ee69a3bf5 /src/hls/RTLPargen.v | |
parent | 0eef258e8551e0cebb30298c732f9d20f7425d93 (diff) | |
parent | 772573f0b895e4cf64738ef023a54f095de35005 (diff) | |
download | vericert-2671305938e2fc5d87bf87a8c085cb5f988b89be.tar.gz vericert-2671305938e2fc5d87bf87a8c085cb5f988b89be.zip |
Merge remote-tracking branch 'origin/dev/scheduling' into dev/scheduling
Diffstat (limited to 'src/hls/RTLPargen.v')
-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 5bd6565..7711ed4 100644 --- a/src/hls/RTLPargen.v +++ b/src/hls/RTLPargen.v @@ -375,19 +375,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. (*| |