src/HOL/Import/shuffler.ML
changeset 39159 0dec18004e75
parent 38864 4abe644fcea5
child 39557 fe5722fce758
equal deleted inserted replaced
39158:e6b96b4cde7e 39159:0dec18004e75
   344        end
   344        end
   345 
   345 
   346 fun beta_fun thy assume t =
   346 fun beta_fun thy assume t =
   347     SOME (Thm.beta_conversion true (cterm_of thy t))
   347     SOME (Thm.beta_conversion true (cterm_of thy t))
   348 
   348 
   349 val meta_sym_rew = thm "refl"
   349 val meta_sym_rew = @{thm refl}
   350 
   350 
   351 fun equals_fun thy assume t =
   351 fun equals_fun thy assume t =
   352     case t of
   352     case t of
   353         Const("op ==",_) $ u $ v => if Term_Ord.term_ord (u,v) = LESS then SOME (meta_sym_rew) else NONE
   353         Const("op ==",_) $ u $ v => if Term_Ord.term_ord (u,v) = LESS then SOME (meta_sym_rew) else NONE
   354       | _ => NONE
   354       | _ => NONE