diff options
Diffstat (limited to 'kernel/term.ml')
-rw-r--r-- | kernel/term.ml | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/kernel/term.ml b/kernel/term.ml index f83e69fcf..e83c32821 100644 --- a/kernel/term.ml +++ b/kernel/term.ml @@ -390,6 +390,8 @@ 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 + (* Destructs a constant *) let destConst c = match kind_of_term c with | Const kn -> kn |