diff options
| author | jforest | 2006-07-05 07:17:41 +0000 |
|---|---|---|
| committer | jforest | 2006-07-05 07:17:41 +0000 |
| commit | d85057bcb07d10c704868594a25e3f5517825c34 (patch) | |
| tree | 32fcf7514eafa89e5a616dbdff7eda9a871c2713 | |
| parent | 15f0a6571182c23d39bf55f74d5ac5c4a4fc39a3 (diff) | |
Correcting for bug #1167
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@9010 85f007b7-540e-0410-9357-904b9bb8a0f7
| -rw-r--r-- | tactics/equality.ml | 8 |
1 files changed, 3 insertions, 5 deletions
diff --git a/tactics/equality.ml b/tactics/equality.ml index f51751359e..97ed5349e1 100644 --- a/tactics/equality.ml +++ b/tactics/equality.ml @@ -544,11 +544,9 @@ let discrHyp id gls = discrClause (onHyp id) gls (* returns the sigma type (sigS, sigT) with the respective constructor depending on the sort *) - -let find_sigma_data s = - match s with - | Prop Pos | Type _ -> build_sigma_type () (* Set/Type *) - | Prop Null -> error "find_sigma_data" +(* J.F.: correction du bug #1167 en accord avec Hugo. *) + +let find_sigma_data s = build_sigma_type () (* [make_tuple env sigma (rterm,rty) lind] assumes [lind] is the lesser index bound in [rty] |