src/Pure/drule.ML
changeset 17203 29b2563f5c11
parent 16983 c895701d55ea
child 17325 d9d50222808e
equal deleted inserted replaced
17202:d364e0fd9c2f 17203:29b2563f5c11
   850       | is_norm _ = true;
   850       | is_norm _ = true;
   851   in is_norm (Pattern.beta_eta_contract tm) end;
   851   in is_norm (Pattern.beta_eta_contract tm) end;
   852 
   852 
   853 fun norm_hhf thy t =
   853 fun norm_hhf thy t =
   854   if is_norm_hhf t then t
   854   if is_norm_hhf t then t
   855   else Pattern.rewrite_term (Sign.tsig_of thy) [Logic.dest_equals (prop_of norm_hhf_eq)] [] t;
   855   else Pattern.rewrite_term thy [Logic.dest_equals (prop_of norm_hhf_eq)] [] t;
   856 
   856 
   857 
   857 
   858 (*** Instantiate theorem th, reading instantiations in theory thy ****)
   858 (*** Instantiate theorem th, reading instantiations in theory thy ****)
   859 
   859 
   860 (*Version that normalizes the result: Thm.instantiate no longer does that*)
   860 (*Version that normalizes the result: Thm.instantiate no longer does that*)