From a8f2e9b4ccf0cb6ac8e2dabdfc0d28eecaed2f87 Mon Sep 17 00:00:00 2001
From: Yann Herklotz <git@yannherklotz.com>
Date: Tue, 12 Oct 2021 20:37:26 +0100
Subject: [sched] Add more lemmas into HashTree

---
 src/hls/Abstr.v | 11 +----------
 1 file changed, 1 insertion(+), 10 deletions(-)

(limited to 'src/hls/Abstr.v')

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.
 
-- 
cgit