From 11425d763714cd663a5d3849f6a9367d39f38e7d Mon Sep 17 00:00:00 2001
From: herbelin
Date: Fri, 10 Jun 2011 22:07:13 +0000
Subject: Moved allow_K to a unification flag - seized the opportunity to align
 unification flags for functional induction to the ones of induction - also
 tried to add delta in the elim_flags used in tactics.ml - also tried to unify
 the rewrite flags in concl or in hyp (removed allow_K in hyps)

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@14186 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 plugins/decl_mode/decl_proof_instr.ml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'plugins')

diff --git a/plugins/decl_mode/decl_proof_instr.ml b/plugins/decl_mode/decl_proof_instr.ml
index ad315035ad..217a8fe4f3 100644
--- a/plugins/decl_mode/decl_proof_instr.ml
+++ b/plugins/decl_mode/decl_proof_instr.ml
@@ -370,7 +370,7 @@ let find_subsubgoal c ctyp skip submetas gls =
     let se = Stack.pop stack in
       try
 	let unifier =
-	  Unification.w_unify true env Reduction.CUMUL
+	  Unification.w_unify env Reduction.CUMUL ~flags:Unification.elim_flags
 	    ctyp se.se_type se.se_evd in
 	  if n <= 0 then
 	      {se with
-- 
cgit v1.2.3