diff options
| author |  Gaetan Gilbert <gaetan.gilbert@ens-lyon.fr> | 2017-04-11 12:46:23 +0200 |
|---|---|---|
| committer | Gaetan Gilbert <gaetan.gilbert@ens-lyon.fr> | 2017-04-11 12:54:18 +0200 |
| commit | fe99efdbe409e47f20776c62a76d4de7f0188afc (patch) | |
| tree | 6b5566974d82bfa7a285c1dd08508a712360b43e /pretyping/coercion.ml | |
| parent | d3a2acc9fceff7476bc2d9eaadab8411365172a2 (diff) | |
Update various comments to use "template polymorphism"
Also remove obvious comments.
Diffstat (limited to 'pretyping/coercion.ml')
| -rw-r--r-- | pretyping/coercion.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/pretyping/coercion.ml b/pretyping/coercion.ml index 542db7fdf..f4514d7c0 100644 --- a/pretyping/coercion.ml +++ b/pretyping/coercion.ml @@ -479,8 +479,8 @@ let rec inh_conv_coerce_to_fail loc env evd rigidonly v t c1 = (* We eta-expand (hence possibly modifying the original term!) *) (* and look for a coercion c:u1->t1 s.t. fun x:u1 => v' (c x)) *) (* has type forall (x:u1), u2 (with v' recursively obtained) *) - (* Note: we retype the term because sort-polymorphism may have *) - (* weaken its type *) + (* Note: we retype the term because template polymorphism may have *) + (* weakened its type *) let name = match name with | Anonymous -> Name Namegen.default_dependent_ident | _ -> name in |