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