diff options
| -rw-r--r-- | tactics/equality.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/tactics/equality.ml b/tactics/equality.ml index cabbdba869..bda850f84f 100644 --- a/tactics/equality.ml +++ b/tactics/equality.ml @@ -683,7 +683,7 @@ let sig_clausal_form env sigma sort_of_ty siglen ty (dFLT,dFLTty) = | Some w -> applist(exist_term,[a;p_i_minus_1;w;tuple_tail]) | None -> anomaly "Not enough components to build the dependent tuple" in - sigrec_clausal_form siglen ty + Evarutil.nf_evar (Evarutil.evars_of isevars) (sigrec_clausal_form siglen ty) (* The problem is to build a destructor (a generalization of the predecessor) which, when applied to a term made of constructors |