diff options
Diffstat (limited to 'mathcomp/ssreflect/plugin/v8.5')
| -rw-r--r-- | mathcomp/ssreflect/plugin/v8.5/ssreflect.ml4 | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/mathcomp/ssreflect/plugin/v8.5/ssreflect.ml4 b/mathcomp/ssreflect/plugin/v8.5/ssreflect.ml4 index 06c6a6c..eb21fc2 100644 --- a/mathcomp/ssreflect/plugin/v8.5/ssreflect.ml4 +++ b/mathcomp/ssreflect/plugin/v8.5/ssreflect.ml4 @@ -4919,7 +4919,7 @@ let rwprocess_rule dir rule gl = let t = if red = 1 then Tacred.hnf_constr env sigma t0 else Reductionops.whd_betaiotazeta sigma t0 in - pp(lazy(str"rewrule="++pr_constr t)); + pp(lazy(str"rewrule="++pr_constr_pat t)); match kind_of_term t with | Prod (_, xt, at) -> let ise, x = Evarutil.new_evar env (create_evar_defs sigma) xt in |