diff options
| author | Maxime Dénès | 2018-06-01 15:40:57 +0200 |
|---|---|---|
| committer | Maxime Dénès | 2018-06-01 15:40:57 +0200 |
| commit | 04756f75bf54b1ccda8c180c62b14c5eaaaabb67 (patch) | |
| tree | adbf0a9beef9c5b804fdb4f3a0e7a58bb967a0e0 /kernel/typeops.ml | |
| parent | 3a36761a27487e8917e1b59b59abacc2a7e65b95 (diff) | |
| parent | c7bd285555153294ec077cfa05c36bb420716f3b (diff) | |
Merge PR #7234: Reduce circular dependency constants <-> projections
Diffstat (limited to 'kernel/typeops.ml')
| -rw-r--r-- | kernel/typeops.ml | 10 |
1 files changed, 0 insertions, 10 deletions
diff --git a/kernel/typeops.ml b/kernel/typeops.ml index fd9cefb2cf..325d5cecd7 100644 --- a/kernel/typeops.ml +++ b/kernel/typeops.ml @@ -528,13 +528,3 @@ let judge_of_case env ci pj cj lfj = let lf, lft = dest_judgev lfj in make_judge (mkCase (ci, (*nf_betaiota*) pj.uj_val, cj.uj_val, lft)) (type_of_case env ci pj.uj_val pj.uj_type cj.uj_val cj.uj_type lf lft) - -let type_of_projection_constant env (p,u) = - let cst = Projection.constant p in - let cb = lookup_constant cst env in - match cb.const_proj with - | Some pb -> - if Declareops.constant_is_polymorphic cb then - Vars.subst_instance_constr u pb.proj_type - else pb.proj_type - | None -> raise (Invalid_argument "type_of_projection: not a projection") |