diff options
Diffstat (limited to 'kernel')
| -rw-r--r-- | kernel/term.ml | 4 | ||||
| -rw-r--r-- | kernel/term.mli | 1 |
2 files changed, 4 insertions, 1 deletions
diff --git a/kernel/term.ml b/kernel/term.ml index 3386f45f51..5f9a3ff93d 100644 --- a/kernel/term.ml +++ b/kernel/term.ml @@ -388,7 +388,9 @@ let destApplication = destApp let isApp c = match kind_of_term c with App _ -> true | _ -> false -let isProd c = match kind_of_term c with | Prod(_) -> true | _ -> false +let isProd c = match kind_of_term c with | Prod _ -> true | _ -> false + +let isLambda c = match kind_of_term c with | Lambda _ -> true | _ -> false (* Destructs a constant *) let destConst c = match kind_of_term c with diff --git a/kernel/term.mli b/kernel/term.mli index 4133ca8920..fcae3341e4 100644 --- a/kernel/term.mli +++ b/kernel/term.mli @@ -234,6 +234,7 @@ val isMeta : constr -> bool val isSort : constr -> bool val isCast : constr -> bool val isApp : constr -> bool +val isLambda : constr -> bool val isProd : constr -> bool val isConst : constr -> bool val isConstruct : constr -> bool |