diff options
| author | herbelin | 2000-03-07 17:04:04 +0000 |
|---|---|---|
| committer | herbelin | 2000-03-07 17:04:04 +0000 |
| commit | d6dd162bf9f55dea839ce1fdceb7c9ca56ebcf7b (patch) | |
| tree | 897f5a349de14d7fe8ecff3d69c7759bf7e242f4 /kernel/term.ml | |
| parent | 7ac3d69bcfc973219d2a87622e1cbf45883bb4ca (diff) | |
Ajout destApplication
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@295 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'kernel/term.ml')
| -rw-r--r-- | kernel/term.ml | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/kernel/term.ml b/kernel/term.ml index c08bb1d86e..72ab35f128 100644 --- a/kernel/term.ml +++ b/kernel/term.ml @@ -396,6 +396,10 @@ let destAppL = function | (DOPN (AppL,a)) -> a | _ -> invalid_arg "destAppL" +let destApplication = function + | (DOPN (AppL,a)) when Array.length a <> 0 -> (a.(0), array_tl a) + | _ -> invalid_arg "destApplication" + let isAppL = function DOPN(AppL,_) -> true | _ -> false let args_app = function |