diff options
| author | Guillaume Melquiond | 2015-12-07 10:52:14 +0100 |
|---|---|---|
| committer | Guillaume Melquiond | 2015-12-07 10:52:24 +0100 |
| commit | df3a49a18c5b01984000df9244ecea9c275b30cd (patch) | |
| tree | d14afdb5de5f93e4301f8eba8bddecd5a6597f9a /kernel/fast_typeops.ml | |
| parent | fe2776f9e0d355cccb0841495a9843351d340066 (diff) | |
Fix some typos.
Diffstat (limited to 'kernel/fast_typeops.ml')
| -rw-r--r-- | kernel/fast_typeops.ml | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/kernel/fast_typeops.ml b/kernel/fast_typeops.ml index 063c9cf126..b625478f25 100644 --- a/kernel/fast_typeops.ml +++ b/kernel/fast_typeops.ml @@ -33,7 +33,7 @@ let check_constraints cst env = if Environ.check_constraints cst env then () else error_unsatisfied_constraints env cst -(* This should be a type (a priori without intension to be an assumption) *) +(* This should be a type (a priori without intention to be an assumption) *) let type_judgment env c t = match kind_of_term(whd_betadeltaiota env t) with | Sort s -> {utj_val = c; utj_type = s } @@ -52,8 +52,8 @@ let assumption_of_judgment env t ty = error_assumption env (make_judge t ty) (************************************************) -(* Incremental typing rules: builds a typing judgement given the *) -(* judgements for the subterms. *) +(* Incremental typing rules: builds a typing judgment given the *) +(* judgments for the subterms. *) (*s Type of sorts *) |