type thm: fully internal derivation, no longer exported;
authorwenzelm
Mon Sep 22 15:26:07 2008 +0200 (2008-09-22)
changeset 28316b17d863a050f
parent 28315 d3cf88fe77bc
child 28317 83c4fc383409
type thm: fully internal derivation, no longer exported;
src/FOL/ex/IffOracle.thy
src/Pure/display.ML
     1.1 --- a/src/FOL/ex/IffOracle.thy	Mon Sep 22 13:56:04 2008 +0200
     1.2 +++ b/src/FOL/ex/IffOracle.thy	Mon Sep 22 15:26:07 2008 +0200
     1.3 @@ -35,7 +35,7 @@
     1.4  
     1.5  ML {* iff_oracle (@{theory}, 2) *}
     1.6  ML {* iff_oracle (@{theory}, 10) *}
     1.7 -ML {* #der (Thm.rep_thm (iff_oracle (@{theory}, 10))) *}
     1.8 +ML {* Thm.proof_of (iff_oracle (@{theory}, 10)) *}
     1.9  
    1.10  text {* These oracle calls had better fail. *}
    1.11  
     2.1 --- a/src/Pure/display.ML	Mon Sep 22 13:56:04 2008 +0200
     2.2 +++ b/src/Pure/display.ML	Mon Sep 22 15:26:07 2008 +0200
     2.3 @@ -61,7 +61,7 @@
     2.4  fun pretty_thm_aux pp quote show_hyps' asms raw_th =
     2.5    let
     2.6      val th = Thm.strip_shyps raw_th;
     2.7 -    val {hyps, tpairs, prop, der, ...} = Thm.rep_thm th;
     2.8 +    val {hyps, tpairs, prop, ...} = Thm.rep_thm th;
     2.9      val xshyps = Thm.extra_shyps th;
    2.10      val tags = Thm.get_tags th;
    2.11  
    2.12 @@ -69,7 +69,7 @@
    2.13      val prt_term = q o Pretty.term pp;
    2.14  
    2.15      val hyps' = if ! show_hyps then hyps else subtract (op aconv) asms hyps;
    2.16 -    val ora' = Deriv.oracle_of der andalso (! show_hyps orelse not (! quick_and_dirty));
    2.17 +    val ora' = Thm.oracle_of th andalso (! show_hyps orelse not (! quick_and_dirty));
    2.18      val hlen = length xshyps + length hyps' + length tpairs;
    2.19      val hsymbs =
    2.20        if hlen = 0 andalso not ora' then []