equal
deleted
inserted
replaced
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*) |