diff options
| author | Emilio Jesus Gallego Arias | 2017-06-01 05:42:14 +0200 |
|---|---|---|
| committer | Emilio Jesus Gallego Arias | 2017-06-01 05:42:14 +0200 |
| commit | a0ea7ebf4838903c3ed9a9b885716cf14134a0c8 (patch) | |
| tree | 8a073c4a47c29d0f9b19aec6d28c0c62dbe8a3d5 /plugins/funind/invfun.ml | |
| parent | eed90d1bd867dce59f6bf1b2bf769fff188f128b (diff) | |
[printing] Remove duplicated printing function.
It seems there were 4 copies of the same function in the code base.
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 d68bdc2153..bc51532531 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 *) |