theory Ex1
imports Main
begin

section {* ML tactics as (crude) methods *}

lemma True
proof

  assume a: A
  assume b: B

  have "A & B"
    apply (tactic {* rtac @{thm conjI} 1 *})
    using a
    apply (tactic {* resolve_tac facts 1 *})
    using b
    apply (tactic {* resolve_tac facts 1 *})
    done

  have "A & B"
    using a b
    apply (tactic {* Method.insert_tac facts 1 *})
    apply (tactic {* (rtac @{thm conjI} THEN_ALL_NEW atac) 1 *})
    done

qed

end
