diff options
Diffstat (limited to 'tactics/termdn.ml')
-rw-r--r-- | tactics/termdn.ml | 14 |
1 files changed, 4 insertions, 10 deletions
diff --git a/tactics/termdn.ml b/tactics/termdn.ml index 828fc065..f9f086d9 100644 --- a/tactics/termdn.ml +++ b/tactics/termdn.ml @@ -6,7 +6,7 @@ (* * GNU Lesser General Public License Version 2.1 *) (************************************************************************) -(* $Id$ *) +(* $Id: termdn.ml 13332 2010-07-26 22:12:43Z msozeau $ *) open Util open Names @@ -33,7 +33,7 @@ struct | GRLabel of global_reference | ProdLabel | LambdaLabel - | SortLabel of sorts option + | SortLabel module Y = struct type t = term_label @@ -97,12 +97,7 @@ let constr_pat_discr_st (idpred,cpred) t = Some (GRLabel ref, args) | PProd (_, d, c), [] -> Some (ProdLabel, [d ; c]) | PLambda (_, d, c), l -> Some (LambdaLabel, [d ; c] @ l) - | PSort s, [] -> - let s' = match s with - | RProp c -> Some (Prop c) - | RType _ -> None - (* Don't try to be clever about type levels here *) - in Some (SortLabel s', []) + | PSort s, [] -> Some (SortLabel, []) | _ -> None open Dn @@ -125,8 +120,7 @@ let constr_val_discr_st (idpred,cpred) t = | Var id when not (Idpred.mem id idpred) -> Label(GRLabel (VarRef id),l) | Prod (n, d, c) -> Label(ProdLabel, [d; c]) | Lambda (n, d, c) -> Label(LambdaLabel, [d; c] @ l) - | Sort s when is_small s -> Label(SortLabel (Some s), []) - | Sort _ -> Label (SortLabel None, []) + | Sort _ -> Label (SortLabel, []) | Evar _ -> Everything | _ -> Nothing |