diff options
| author |  Samuel Mimram <smimram@debian.org> | 2006-07-13 14:28:31 +0000 |
|---|---|---|
| committer | Samuel Mimram <smimram@debian.org> | 2006-07-13 14:28:31 +0000 |
| commit | de0085539583f59dc7c4bf4e272e18711d565466 (patch) | |
| tree | 347e1d95a2df56f79a01b303e485563588179e91 /tactics/equality.ml | |
| parent | e978da8c41d8a3c19a29036d9c569fbe2a4616b0 (diff) | |
Imported Upstream version 8.0pl3+8.1beta.2upstream/8.0pl3+8.1beta.2
Diffstat (limited to 'tactics/equality.ml')
| -rw-r--r-- | tactics/equality.ml | 12 |
1 files changed, 5 insertions, 7 deletions
diff --git a/tactics/equality.ml b/tactics/equality.ml index 42fc1201..f05c3882 100644 --- a/tactics/equality.ml +++ b/tactics/equality.ml @@ -6,7 +6,7 @@ (* * GNU Lesser General Public License Version 2.1 *) (************************************************************************) -(* $Id: equality.ml 8878 2006-05-30 16:44:25Z herbelin $ *) +(* $Id: equality.ml 9010 2006-07-05 07:17:41Z jforest $ *) open Pp open Util @@ -201,7 +201,7 @@ let abstract_replace clause c2 c1 unsafe tac gl = ] ] gl else - error "terms does not have convertible types" + error "terms do not have convertible types" let replace c2 c1 gl = abstract_replace None c2 c1 false tclIDTAC gl @@ -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] |