diff options
| author |  herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2011-10-26 21:20:56 +0000 |
|---|---|---|
| committer | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2011-10-26 21:20:56 +0000 |
| commit | c6c5fc343b9341076d02c6a96529036804c9e91d (patch) | |
| tree | b2c873b994b9256018f27c8ef78536ac77ef37f9 | |
| parent | b5663507e03579b63b2881707ed9a39535bbce90 (diff) | |
Deactivating second-order pattern-matching in evarconv for 8.4.
Kept in "destruct" though.
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@14619 85f007b7-540e-0410-9357-904b9bb8a0f7
| -rw-r--r-- | pretyping/evarconv.ml | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/pretyping/evarconv.ml b/pretyping/evarconv.ml index d826cb492..180aac590 100644 --- a/pretyping/evarconv.ml +++ b/pretyping/evarconv.ml @@ -686,8 +686,11 @@ let second_order_matching ts env_rhs evd (evk,args) rhs = with Exit -> evd, false let second_order_matching_with_args ts env evd ev l t = +(* let evd,ev = evar_absorb_arguments env evd ev l in second_order_matching ts env evd ev t +*) + (evd,false) let apply_conversion_problem_heuristic ts env evd pbty t1 t2 = let t1 = apprec_nohdbeta ts env evd (whd_head_evar evd t1) in |