diff options
| author | Yann Herklotz <git@yannherklotz.com> | 2023-05-16 23:31:37 +0100 |
|---|---|---|
| committer | Yann Herklotz <git@yannherklotz.com> | 2023-05-16 23:31:37 +0100 |
| commit | 9403299d1a481ea4422524b6caa0d78e4c20fbaf (patch) | |
| tree | ba457e3550ca8add319d22a124e7cbbcc8639c7b /src/hls/Abstr.v | |
| parent | b24fc9492bafb61761f847ec4829eaf5b5d88c7b (diff) | |
| download | vericert-9403299d1a481ea4422524b6caa0d78e4c20fbaf.tar.gz vericert-9403299d1a481ea4422524b6caa0d78e4c20fbaf.zip | |
Work on scheduling proof
Diffstat (limited to 'src/hls/Abstr.v')
| -rw-r--r-- | src/hls/Abstr.v | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/src/hls/Abstr.v b/src/hls/Abstr.v index e97e907..f201914 100644 --- a/src/hls/Abstr.v +++ b/src/hls/Abstr.v @@ -219,6 +219,10 @@ Lemma get_empty: forall r, empty#r r = NE.singleton (Ptrue, Ebase r). Proof. unfold "#r"; intros. rewrite RTree.gempty. trivial. Qed. +Lemma get_empty_p: + forall p, empty#p p = Plit (true, PEbase p). +Proof. unfold "#p", get_forest_p'; intros. rewrite PTree.gempty. trivial. Qed. + Lemma forest_reg_gso: forall (f : forest) w dst dst', dst <> dst' -> |