From ba3b93c97fa72e05156893d0421a93d4dd5b7fcf Mon Sep 17 00:00:00 2001
From: Brian Campbell
Date: Mon, 4 Jun 2018 18:04:45 +0100
Subject: Coq: existential and constraint solving work - add existential
 unpacking for function arguments - add mechanism for using properties for
 existentially typed top-level   values (useful for the typechecking tests) -
 support for length_list and In in Coq constraint solving

---
 lib/coq/Sail_values.v | 17 +++++++++++++++--
 1 file changed, 15 insertions(+), 2 deletions(-)

(limited to 'lib')

diff --git a/lib/coq/Sail_values.v b/lib/coq/Sail_values.v
index 2343490b..ee3a90bb 100644
--- a/lib/coq/Sail_values.v
+++ b/lib/coq/Sail_values.v
@@ -723,14 +723,27 @@ Ltac unbool_comparisons :=
   | H:context [Z.eqb _ _ = false] |- _ => rewrite Z.eqb_neq in H
   | H:context [orb _ _ = true] |- _ => rewrite Bool.orb_true_iff in H
   end.
+(* Split up dependent pairs to get at proofs of properties *)
+(* TODO: simpl is probably too strong here *)
+Ltac extract_properties :=
+  repeat match goal with H := (projT1 ?X) |- _ => destruct X in *; simpl in H; unfold H in * end;
+  repeat match goal with |- context [projT1 ?X] => destruct X in *; simpl end.
+Ltac reduce_list_lengths :=
+  repeat match goal with |- context [length_list ?X] => 
+    let r := (eval cbn in (length_list X)) in
+    change (length_list X) with r
+  end.
 Ltac solve_arithfact :=
+ extract_properties;
  repeat match goal with w:mword ?n |- _ => apply ArithFact_mword in w end;
  unwrap_ArithFacts;
  autounfold with sail in * |- *; (* You can add Hint Unfold ... : sail to let omega see through fns *)
  unbool_comparisons;
+ reduce_list_lengths;
  solve [apply ArithFact_mword; assumption
        | constructor; omega
-       | constructor; auto with zbool zarith sail].
+         (* The datatypes hints give us some list handling, esp In *)
+       | constructor; auto with datatypes zbool zarith sail].
 Hint Extern 0 (ArithFact _) => solve_arithfact : typeclass_instances.
 
 Hint Unfold length_mword : sail.
@@ -1151,4 +1164,4 @@ Definition diafp_to_dia reginfo = function
   | DIAFP_reg r => DIA_register (regfp_to_reg reginfo r)
 end
 *)
-*)
\ No newline at end of file
+*)
-- 
cgit v1.2.3