diff options
| -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 d826cb4923..180aac5900 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 |