diff options
| author | Pierre-Marie Pédrot | 2018-11-07 11:42:38 +0100 |
|---|---|---|
| committer | Pierre-Marie Pédrot | 2018-11-07 11:42:38 +0100 |
| commit | 19b7ce2f39eaf37e48d1d12ef73defab3c9fbdb2 (patch) | |
| tree | a55af313e25a17382c94a60805b95e82f02ef6c6 /pretyping | |
| parent | e857efb2e61c29a5b0b29702ca8d746ea2580ca6 (diff) | |
| parent | 7f2946157797ba7da3ed8712c10f5a0302b36d49 (diff) | |
Merge PR #8773: [checker] Refactor by sharing code with the kernel
Diffstat (limited to 'pretyping')
| -rw-r--r-- | pretyping/indrec.ml | 2 | ||||
| -rw-r--r-- | pretyping/recordops.ml | 2 | ||||
| -rw-r--r-- | pretyping/reductionops.ml | 2 |
3 files changed, 3 insertions, 3 deletions
diff --git a/pretyping/indrec.ml b/pretyping/indrec.ml index 89f64d328a..bd321d5886 100644 --- a/pretyping/indrec.ml +++ b/pretyping/indrec.ml @@ -618,5 +618,5 @@ let lookup_eliminator ind_sp s = (strbrk "Cannot find the elimination combinator " ++ Id.print id ++ strbrk ", the elimination of the inductive definition " ++ Nametab.pr_global_env Id.Set.empty (IndRef ind_sp) ++ - strbrk " on sort " ++ Termops.pr_sort_family s ++ + strbrk " on sort " ++ Sorts.pr_sort_family s ++ strbrk " is probably not allowed.") diff --git a/pretyping/recordops.ml b/pretyping/recordops.ml index 5d74b59b27..4faa753dfb 100644 --- a/pretyping/recordops.ml +++ b/pretyping/recordops.ml @@ -270,7 +270,7 @@ let pr_cs_pattern = function Const_cs c -> Nametab.pr_global_env Id.Set.empty c | Prod_cs -> str "_ -> _" | Default_cs -> str "_" - | Sort_cs s -> Termops.pr_sort_family s + | Sort_cs s -> Sorts.pr_sort_family s let warn_redundant_canonical_projection = CWarnings.create ~name:"redundant-canonical-projection" ~category:"typechecker" diff --git a/pretyping/reductionops.ml b/pretyping/reductionops.ml index aced97e910..17003cd1dd 100644 --- a/pretyping/reductionops.ml +++ b/pretyping/reductionops.ml @@ -353,7 +353,7 @@ struct | Proj (p,cst) -> str "ZProj(" ++ Constant.debug_print (Projection.constant p) ++ str ")" | Fix (f,args,cst) -> - str "ZFix(" ++ Termops.pr_fix pr_c f + str "ZFix(" ++ Constr.debug_print_fix pr_c f ++ pr_comma () ++ pr pr_c args ++ str ")" | Cst (mem,curr,remains,params,cst_l) -> str "ZCst(" ++ pr_cst_member pr_c mem ++ pr_comma () ++ int curr |