diff options
| author |  Maxime Dénès <mail@maximedenes.fr> | 2017-06-05 22:32:11 +0200 |
|---|---|---|
| committer | Maxime Dénès <mail@maximedenes.fr> | 2017-06-05 22:32:11 +0200 |
| commit | 5a5d37b83c487903963aa39799a1367752857da4 (patch) | |
| tree | ca0ef708964eae74cbc24fc30c570fcea22f991d /plugins/funind/invfun.ml | |
| parent | 9a618ee0529f7153da1e10a8099a0b691bd13251 (diff) | |
| parent | a0ea7ebf4838903c3ed9a9b885716cf14134a0c8 (diff) | |
Merge PR#722: [printing] Remove duplicated printing function.
Diffstat (limited to 'plugins/funind/invfun.ml')
| -rw-r--r-- | plugins/funind/invfun.ml | 25 |
1 files changed, 0 insertions, 25 deletions
diff --git a/plugins/funind/invfun.ml b/plugins/funind/invfun.ml index 12232dd83..71b41117c 100644 --- a/plugins/funind/invfun.ml +++ b/plugins/funind/invfun.ml @@ -26,31 +26,6 @@ open Context.Rel.Declaration module RelDecl = Context.Rel.Declaration -(* Some pretty printing function for debugging purpose *) - -let pr_binding prc = - function - | loc, (NamedHyp id, c) -> hov 1 (Ppconstr.pr_id id ++ str " := " ++ Pp.cut () ++ prc c) - | loc, (AnonHyp n, c) -> hov 1 (int n ++ str " := " ++ Pp.cut () ++ prc c) - -let pr_bindings prc prlc = function - | ImplicitBindings l -> - brk (1,1) ++ str "with" ++ brk (1,1) ++ - pr_sequence prc l - | ExplicitBindings l -> - brk (1,1) ++ str "with" ++ brk (1,1) ++ - pr_sequence (fun b -> str"(" ++ pr_binding prlc b ++ str")") l - | NoBindings -> mt () - - -let pr_with_bindings prc prlc (c,bl) = - prc c ++ hv 0 (pr_bindings prc prlc bl) - - - -let pr_constr_with_binding prc (c,bl) : Pp.std_ppcmds = - pr_with_bindings prc prc (c,bl) - (* The local debugging mechanism *) (* let msgnl = Pp.msgnl *) |