diff options
| author | Pierre-Marie Pédrot | 2016-11-20 01:35:54 +0100 |
|---|---|---|
| committer | Pierre-Marie Pédrot | 2017-02-14 17:30:26 +0100 |
| commit | e6a8ab0f428c26fff2bd7e636126974f167101bf (patch) | |
| tree | b1be917ecc68504649aa9583aad77475e6f13157 /dev | |
| parent | c72bf7330bb32970616be4dddc7571f3b91c1562 (diff) | |
Tactic_matching API using EConstr.
Diffstat (limited to 'dev')
| -rw-r--r-- | dev/top_printers.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/dev/top_printers.ml b/dev/top_printers.ml index b7736f4987..8290ca945f 100644 --- a/dev/top_printers.ml +++ b/dev/top_printers.ml @@ -109,7 +109,7 @@ let ppididmap = ppidmap (fun _ -> pr_id) let prconstrunderbindersidmap = pridmap (fun _ (l,c) -> hov 1 (str"[" ++ prlist_with_sep spc Id.print l ++ str"]") - ++ str "," ++ spc () ++ Termops.print_constr c) + ++ str "," ++ spc () ++ Termops.print_constr (EConstr.Unsafe.to_constr c)) let ppconstrunderbindersidmap l = pp (prconstrunderbindersidmap l) |