src/HOL/Library/positivstellensatz.ML
changeset 62177 3a578ee55bff
parent 61945 1135b8de26c3
child 63198 c583ca33076a
     1.1 --- a/src/HOL/Library/positivstellensatz.ML	Wed Jan 13 23:25:18 2016 +0100
     1.2 +++ b/src/HOL/Library/positivstellensatz.ML	Wed Jan 13 23:37:55 2016 +0100
     1.3 @@ -316,8 +316,6 @@
     1.4    | Abs (_,_,_) => find_cterm p (Thm.dest_abs NONE t |> snd)
     1.5    | _ => raise CTERM ("find_cterm",[t]);
     1.6  
     1.7 -    (* Some conversions-related stuff which has been forbidden entrance into Pure/conv.ML*)
     1.8 -fun instantiate_cterm' ty tms = Drule.cterm_rule (Thm.instantiate' ty tms)
     1.9  fun is_comb t = (case Thm.term_of t of _ $ _ => true | _ => false);
    1.10  
    1.11  fun is_binop ct ct' = ct aconvc (Thm.dest_fun (Thm.dest_fun ct'))