display code theorems with HOL equality
authorhaftmann
Wed Feb 11 15:05:25 2009 +0100 (2009-02-11)
changeset 298740b92f68124e8
parent 29856 984191be0357
child 29875 4a1510b5f886
display code theorems with HOL equality
doc-src/more_antiquote.ML
     1.1 --- a/doc-src/more_antiquote.ML	Tue Feb 10 17:53:51 2009 -0800
     1.2 +++ b/doc-src/more_antiquote.ML	Wed Feb 11 15:05:25 2009 +0100
     1.3 @@ -93,9 +93,10 @@
     1.4      val thy = ProofContext.theory_of ctxt;
     1.5      val const = Code_Unit.check_const thy raw_const;
     1.6      val (_, funcgr) = Code_Funcgr.make thy [const];
     1.7 +    fun holize thm = @{thm meta_eq_to_obj_eq} OF [thm];
     1.8      val thms = Code_Funcgr.eqns funcgr const
     1.9        |> map_filter (fn (thm, linear) => if linear then SOME thm else NONE)
    1.10 -      |> map (no_vars ctxt o AxClass.overload thy);
    1.11 +      |> map (holize o no_vars ctxt o AxClass.overload thy);
    1.12    in ThyOutput.output_list pretty_thm src ctxt thms end;
    1.13  
    1.14  in