From b77579ac873975a15978c5a4ecf312d577746d26 Mon Sep 17 00:00:00 2001
From: Pierre-Marie Pédrot
Date: Sun, 6 Nov 2016 21:59:18 +0100
Subject: Tacred API using EConstr.

---
 proofs/redexpr.ml | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

(limited to 'proofs')

diff --git a/proofs/redexpr.ml b/proofs/redexpr.ml
index 19e72e697f..d4a58da326 100644
--- a/proofs/redexpr.ml
+++ b/proofs/redexpr.ml
@@ -200,6 +200,9 @@ let out_arg = function
 let out_with_occurrences (occs,c) =
   (Locusops.occurrences_map (List.map out_arg) occs, c)
 
+let out_with_occurrences' (occs,c) =
+  (Locusops.occurrences_map (List.map out_arg) occs, EConstr.of_constr c)
+
 let e_red f = { e_redfun = fun env evm c -> Sigma.here (f env (Sigma.to_evar_map evm) c) evm }
 
 let head_style = false (* Turn to true to have a semantics where simpl
@@ -239,8 +242,8 @@ let reduction_of_red_expr env =
      (e_red (strong_cbn (make_flag f)), DEFAULTcast)
   | Lazy f -> (e_red (clos_norm_flags (make_flag f)),DEFAULTcast)
   | Unfold ubinds -> (e_red (unfoldn (List.map out_with_occurrences ubinds)),DEFAULTcast)
-  | Fold cl -> (e_red (fold_commands cl),DEFAULTcast)
-  | Pattern lp -> (pattern_occs (List.map out_with_occurrences lp),DEFAULTcast)
+  | Fold cl -> (e_red (fold_commands (List.map EConstr.of_constr cl)),DEFAULTcast)
+  | Pattern lp -> (pattern_occs (List.map out_with_occurrences' lp),DEFAULTcast)
   | ExtraRedExpr s ->
       (try (e_red (String.Map.find s !reduction_tab),DEFAULTcast)
       with Not_found ->
-- 
cgit v1.2.3