diff options
Diffstat (limited to 'kernel/term.ml')
| -rw-r--r-- | kernel/term.ml | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/kernel/term.ml b/kernel/term.ml index ab678666f..734b7853f 100644 --- a/kernel/term.ml +++ b/kernel/term.ml @@ -310,6 +310,12 @@ let destCase c = match kind_of_term c with let isCase c = match kind_of_term c with Case _ -> true | _ -> false +let isProj c = match kind_of_term c with Proj _ -> true | _ -> false + +let destProj c = match kind_of_term c with + | Proj (p, c) -> (p, c) + | _ -> raise DestKO + let destFix c = match kind_of_term c with | Fix fix -> fix | _ -> raise DestKO |