diff options
| author |  herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2006-10-06 17:13:50 +0000 |
|---|---|---|
| committer | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2006-10-06 17:13:50 +0000 |
| commit | e4c88054ccf30e69f58d9ead1592102ecb0a1611 (patch) | |
| tree | 2f4faa03b61d33a7bfc626576c9a484a027f7198 /kernel/typeops.ml | |
| parent | 96ddae4e7edc653375bebf622251cde636fb1c32 (diff) | |
Déplacement de on_judgment_type de Typeops vers Termops
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@9221 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'kernel/typeops.ml')
| -rw-r--r-- | kernel/typeops.ml | 2 |
1 files changed, 0 insertions, 2 deletions
diff --git a/kernel/typeops.ml b/kernel/typeops.ml index 4b5a6e01a..0d2874cb7 100644 --- a/kernel/typeops.ml +++ b/kernel/typeops.ml @@ -49,8 +49,6 @@ let assumption_of_judgment env j = let sort_judgment env j = (type_judgment env j).utj_type -let on_judgment_type f j = { j with uj_type = f j.uj_type } - (************************************************) (* Incremental typing rules: builds a typing judgement given the *) (* judgements for the subterms. *) |