diff options
| author | barras | 2004-03-09 15:32:18 +0000 |
|---|---|---|
| committer | barras | 2004-03-09 15:32:18 +0000 |
| commit | 7f15ecab95ec79f15211115799f1480fc1389c06 (patch) | |
| tree | 436a59c372c920860d4c0310ffc626b06f403edb | |
| parent | cab5b2c7cab81a97947436825dd00c4f0f942d79 (diff) | |
bug de l'inversion (coq-bugs #529)
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@5444 85f007b7-540e-0410-9357-904b9bb8a0f7
| -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 |