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 /checker/typeops.ml | |
| parent | d3a2acc9fceff7476bc2d9eaadab8411365172a2 (diff) | |
Update various comments to use "template polymorphism"
Also remove obvious comments.
Diffstat (limited to 'checker/typeops.ml')
| -rw-r--r-- | checker/typeops.ml | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/checker/typeops.ml b/checker/typeops.ml index 173e19ce1..9bb76ba72 100644 --- a/checker/typeops.ml +++ b/checker/typeops.ml @@ -278,13 +278,11 @@ let rec execute env cstr = let j = match f with | Ind ind -> - (* Sort-polymorphism of inductive types *) judge_of_inductive_knowing_parameters env ind jl | Const cst -> - (* Sort-polymorphism of constant *) judge_of_constant_knowing_parameters env cst jl | _ -> - (* No sort-polymorphism *) + (* No template polymorphism *) execute env f in let jl = Array.map2 (fun c ty -> c,ty) args jl in |