diff options
| author | filliatr | 1999-08-30 13:17:26 +0000 |
|---|---|---|
| committer | filliatr | 1999-08-30 13:17:26 +0000 |
| commit | f1874a538ef7e5886b72c2ec2ce21b23d05aa8d7 (patch) | |
| tree | d54f85de98bbc0a137a3edeed213918a46e26374 /kernel/term.ml | |
| parent | 19d21ec59b69a7bd5a8e4e77794e85fed6b48d39 (diff) | |
ajout des inductifs (sans types singletons pour l'instant)
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@32 85f007b7-540e-0410-9357-904b9bb8a0f7
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 94ce20615e..46bcebcd84 100644 --- a/kernel/term.ml +++ b/kernel/term.ml @@ -59,6 +59,8 @@ type 'a judge = { body : constr; typ : 'a } type typed_type = sorts judge type typed_term = typed_type judge +let make_typed t s = { body = t; typ = s } + let typed_app f tt = { body = f tt.body; typ = tt.typ } let body_of_type ty = ty.body |