changeset 70824 | 7000868c6098 |
parent 70822 | 22e2f5acc0b4 |
child 70825 | 3c215bdf4ab6 |
--- a/src/Pure/thm.ML Thu Oct 10 14:55:26 2019 +0200 +++ b/src/Pure/thm.ML Thu Oct 10 15:00:36 2019 +0200 @@ -1631,7 +1631,7 @@ if T <> propT then raise THM ("trivial: the term must have type prop", 0, []) else - Thm (deriv_rule0 (fn () => Proofterm.AbsP ("H", NONE, Proofterm.PBound 0)), + Thm (deriv_rule0 (fn () => Proofterm.trivial_proof), {cert = cert, tags = [], maxidx = maxidx,