From 3be880b441a4d2926c6b14b7bb25a04209fbbca6 Mon Sep 17 00:00:00 2001
From: Yann Herklotz <git@yannherklotz.com>
Date: Fri, 19 May 2023 12:51:39 +0100
Subject: Finish evaluability proof of RBop

---
 src/hls/GiblePargenproofEquiv.v | 26 ++++++++++++++++++++++++++
 1 file changed, 26 insertions(+)

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

diff --git a/src/hls/GiblePargenproofEquiv.v b/src/hls/GiblePargenproofEquiv.v
index 5f589a7..b63f2fd 100644
--- a/src/hls/GiblePargenproofEquiv.v
+++ b/src/hls/GiblePargenproofEquiv.v
@@ -342,6 +342,11 @@ Proof.
   - transitivity ist'; auto.
 Qed.
 
+#[global] Instance similar_Equivalence {A} : Equivalence (@similar A A) :=
+  { Equivalence_Reflexive := similar_refl A ;
+    Equivalence_Symmetric := similar_commut A A ;
+    Equivalence_Transitive := @similar_trans A A A ; }.
+
 Module HashExpr' <: MiniDecidableType.
   Definition t := expression.
   Definition eq_dec := expression_dec.
@@ -745,6 +750,27 @@ Section CORRECT.
     - inv H0; inv H1; eauto; exploit sem_pexpr_det; eauto; discriminate.
   Qed.
 
+  Lemma sem_predset_det:
+    forall f ps ps',
+      sem_predset ictx f ps ->
+      sem_predset octx f ps' ->
+      forall x, ps !! x = ps' !! x.
+  Proof.
+    intros. inv H. inv H0. eauto using sem_pexpr_det.
+  Qed.
+
+  Lemma sem_regset_det:
+    forall f rs rs',
+      sem_regset ictx f rs ->
+      sem_regset octx f rs' ->
+      forall x, rs !! x = rs' !! x.
+  Proof.
+    intros. inv H. inv H0.
+    specialize (H1 x). specialize (H x).
+    eapply sem_pred_expr_det in H1; eauto.
+    exact sem_value_det.
+  Qed.
+
   Lemma sem_det :
     forall p i cf i' cf',
       sem ictx p (i, cf) ->
-- 
cgit