From c510453583a780ab225bdd53cda3cdd4d9d2d397 Mon Sep 17 00:00:00 2001
From: Jason Gross <jgross@mit.edu>
Date: Tue, 7 Nov 2017 15:22:40 -0500
Subject: Factor packages through evar_Prop_package, raw_evar_package

---
 src/Util/SideConditions/Autosolve.v    |  5 ++--
 src/Util/SideConditions/CorePackages.v | 53 +++++++++++++++++++++++-----------
 2 files changed, 39 insertions(+), 19 deletions(-)

(limited to 'src/Util/SideConditions')

diff --git a/src/Util/SideConditions/Autosolve.v b/src/Util/SideConditions/Autosolve.v
index 7bc47def3..90c317742 100644
--- a/src/Util/SideConditions/Autosolve.v
+++ b/src/Util/SideConditions/Autosolve.v
@@ -26,9 +26,10 @@ Module Internal.
       => let v' := (eval vm_compute in v) in
          (exists v'); abstract vm_cast_no_check (eq_refl v)
     | [ |- vm_cast_evar_package ?v ?d ]
-      => simple refine {| vald := (v <: d) |};
+      => unshelve eexists (v <: d);
          [ vm_compute; reflexivity
-         | let lhs := lazymatch goal with |- ?lhs = _ => lhs end in
+         | cbv beta;
+           let lhs := lazymatch goal with |- ?lhs = _ => lhs end in
            abstract exact_no_check (eq_refl lhs) ]
     | [ |- cast_evar_package (s:=?s) ?v ?d ]
       => exact (@Build_evard_package
diff --git a/src/Util/SideConditions/CorePackages.v b/src/Util/SideConditions/CorePackages.v
index c1041d040..fbe8df7cc 100644
--- a/src/Util/SideConditions/CorePackages.v
+++ b/src/Util/SideConditions/CorePackages.v
@@ -1,23 +1,42 @@
 Import EqNotations.
 
-Record evar_package {T} (v : T) :=
-  { val : T;
-    evar_package_pf : val = v }.
-Arguments val {T v} _.
-Arguments evar_package_pf {T v} _.
+Local Set Primitive Projections.
 
-Record evar_rel_package {A} (f : A) B (R : B -> A -> Prop) :=
-  { valr : B;
-    evarr_package_pf : R valr f }.
-Arguments valr {A f B R} _.
-Arguments evarr_package_pf {A f B R} _.
+Definition raw_evar_package (T : Type) := T.
 
-Record evard_package {s d} (v : s) :=
-  { vald : d;
-    evard_package_pfT : s = d;
-    evard_package_pf : vald = rew evard_package_pfT in v }.
-Arguments vald {s d v} _.
-Arguments evard_package_pfT {s d v} _.
-Arguments evard_package_pf {s d v} _.
+Record evar_Prop_package {T} (P : T -> Prop) :=
+  { val :> raw_evar_package T;
+    evar_package_pf : P val }.
+Arguments val {T P} _.
+Arguments evar_package_pf {T P} _.
+
+Definition evar_package {T} (v : T)
+  := @evar_Prop_package T (fun val => val = v).
+Definition evar_package_pf_eq {T v} (pkg : @evar_package T v)
+  : val pkg = v
+  := Eval hnf in evar_package_pf pkg.
+
+Definition evar_rel_package {A} (v : A) B (R : B -> A -> Prop)
+  := @evar_Prop_package B (fun val => R val v).
+Definition evar_package_pf_rel {A v B R} (pkg : @evar_rel_package A v B R)
+  : R (val pkg) v
+  := Eval hnf in evar_package_pf pkg.
+
+Definition evard_package {s d} (v : s)
+  := @evar_Prop_package
+       d
+       (fun vald => { pf : s = d | vald = rew pf in v }).
+Definition Build_evard_package {s d} (v : s)
+           (vald : d)
+           (evard_package_pfT : s = d)
+           (evard_package_pf : vald = rew evard_package_pfT in v)
+  : @evard_package s d v
+  := {| evar_package_pf := exist _ evard_package_pfT evard_package_pf |}.
+Definition evard_package_pfT {s d v} (pkg : @evard_package s d v)
+  : s = d
+  := Eval cbv [proj1_sig evar_package_pf] in proj1_sig (evar_package_pf pkg).
+Definition evard_package_pf {s d v} (pkg : @evard_package s d v)
+  : val pkg = rew (evard_package_pfT pkg) in v
+  := Eval cbv [proj1_sig evar_package_pf] in proj2_sig (evar_package_pf pkg).
 
 Ltac autosolve else_tac := else_tac ().
-- 
cgit v1.2.3