equal
deleted
inserted
replaced
352 thy' |> |
352 thy' |> |
353 ProofContext.init |> |
353 ProofContext.init |> |
354 Proof.theorem_i NONE |
354 Proof.theorem_i NONE |
355 (fn thss => ProofContext.theory (fn thy => |
355 (fn thss => ProofContext.theory (fn thy => |
356 let |
356 let |
357 val simps = flat thss; |
357 val simps = map standard (flat thss); |
358 val (simps', thy') = |
358 val (simps', thy') = |
359 fold_map note ((map fst eqns ~~ atts) ~~ map single simps) thy; |
359 fold_map note ((map fst eqns ~~ atts) ~~ map single simps) thy; |
360 val simps'' = maps snd simps' |
360 val simps'' = maps snd simps' |
361 in |
361 in |
362 thy' |
362 thy' |