diff options
| author | filliatr | 1999-08-24 16:09:29 +0000 |
|---|---|---|
| committer | filliatr | 1999-08-24 16:09:29 +0000 |
| commit | 14524e0b6ab7458d7b373fd269bb03b658dab243 (patch) | |
| tree | e6fe6c100e4e728a830b7b6f6691e9262d9190a4 /kernel/term.ml | |
| parent | a86e0c41f5e9932140574b316343c3dfd321703c (diff) | |
mach et himsg; typage sans extraction
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@21 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 87cc1aaaec..a662f74392 100644 --- a/kernel/term.ml +++ b/kernel/term.ml @@ -61,6 +61,10 @@ type typed_term = typed_type judge let typed_app f tt = { body = f tt.body; typ = tt.typ } +let body_of_type ty = ty.body + +let incast_type tty = DOP2 (Cast, tty.body, (DOP0 (Sort tty.typ))) + (****************************************************************************) (* Functions for dealing with constr terms *) (****************************************************************************) |