From 884b6cc6c12bd557085cdaa4972d593684c9cc1a Mon Sep 17 00:00:00 2001 From: Matthieu Sozeau Date: Fri, 24 Oct 2014 17:38:59 +0200 Subject: Change reduction_of_red_expr to return an e_reduction_function returning an updated evar_map, as pattern is working up to universe equalities that must be kept. Straightforward adaptation of the code depending on this. --- plugins/btauto/refl_btauto.ml | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'plugins/btauto') diff --git a/plugins/btauto/refl_btauto.ml b/plugins/btauto/refl_btauto.ml index a28a46c74..6abf96dce 100644 --- a/plugins/btauto/refl_btauto.ml +++ b/plugins/btauto/refl_btauto.ml @@ -179,7 +179,7 @@ module Btauto = struct let print_counterexample p env gl = let var = lapp witness [|p|] in (* Compute an assignment that dissatisfies the goal *) - let var = Tacmach.pf_reduction_of_red_expr gl (Genredexpr.CbvVm None) var in + let _, var = Tacmach.pf_reduction_of_red_expr gl (Genredexpr.CbvVm None) var in let rec to_list l = match decomp_term l with | Term.App (c, _) when c === (Lazy.force CoqList._nil) -> [] -- cgit v1.2.3