(* import("tactic.lua") *)
Variables p q r : Bool

Theorem T1 : p => p /\ q => r => q /\ r /\ p := _.
    (* Repeat(OrElse(imp_tac(), conj_tac(), conj_hyp_tac(), assumption_tac())) *)
    done

-- Display proof term generated by previous tactic
print Environment 1