diff -r 491dde407f40 -r 5d06e1dba69a IntEx.thy --- a/IntEx.thy Sat Nov 21 14:45:25 2009 +0100 +++ b/IntEx.thy Sat Nov 21 23:23:01 2009 +0100 @@ -119,6 +119,8 @@ where "SIGN i = (if i = ZERO then ZERO else if (LESS ZERO i) then ONE else (NEG ONE))" + + ML {* print_qconstinfo @{context} *} ML {* print_qconstinfo @{context} *}