diff options
| -rw-r--r-- | proofs/refiner.ml | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/proofs/refiner.ml b/proofs/refiner.ml index 4ca9a06158..e8d1574da2 100644 --- a/proofs/refiner.ml +++ b/proofs/refiner.ml @@ -799,7 +799,10 @@ let pr_rule = function | Context ctxt -> pr_ctxt ctxt | Local_constraints lc -> (* This is internal tactic and cannot be replayed at user-level *) - [< (* 'sTR"Local constraint change" *) >] + (* [< 'sTR"Local constraint change" >] *) + (* Use Idtac instead *) + (* To put nothing does not work, because it still writes a single dot *) + [< 'sTR"Idtac" >] exception Different |