diff options
author | Yann Herklotz <git@yannherklotz.com> | 2021-10-12 20:37:26 +0100 |
---|---|---|
committer | Yann Herklotz <git@yannherklotz.com> | 2021-10-12 20:37:34 +0100 |
commit | a8f2e9b4ccf0cb6ac8e2dabdfc0d28eecaed2f87 (patch) | |
tree | 30fee8ed4d53ea92281ea5a70575d76f11ea09c6 /src/hls/Abstr.v | |
parent | 8f9dda38a85613f147b831a1b86f1933fe66a6c7 (diff) | |
download | vericert-a8f2e9b4ccf0cb6ac8e2dabdfc0d28eecaed2f87.tar.gz vericert-a8f2e9b4ccf0cb6ac8e2dabdfc0d28eecaed2f87.zip |
[sched] Add more lemmas into HashTree
Diffstat (limited to 'src/hls/Abstr.v')
-rw-r--r-- | src/hls/Abstr.v | 11 |
1 files changed, 1 insertions, 10 deletions
diff --git a/src/hls/Abstr.v b/src/hls/Abstr.v index 58df532..a6b4505 100644 --- a/src/hls/Abstr.v +++ b/src/hls/Abstr.v @@ -741,15 +741,6 @@ Lemma sat_predicate_Pvar_inj : (forall c, sat_predicate (Pvar p1) c = sat_predicate (Pvar p2) c) -> p1 = p2. Proof. simplify. apply Pos2Nat.inj. eapply inj_asgn. eauto. Qed. -Lemma hash_present_eq : - forall m e1 e2 p1 h h', - hash_value m e2 h = (p1, h') -> - h ! p1 = Some e1 -> - e1 = e2. -Proof. - intros. unfold hash_value in *. destruct_match. - - inv H. - Section CORRECT. Definition fd := @fundef RTLBlock.bb. @@ -776,7 +767,7 @@ Section CORRECT. apply sat_predicate_Pvar_inj in H2; subst. - assert (e1 = e0) by admit; subst. + assert (e0 = e1) by (eapply hash_present_eq; eauto); subst. assert (forall e v v', sem_value ictx e v -> sem_value octx e v' -> v = v') by admit. |