isahipster: ce8fe67aa6b24a741bcab8c13dd9e94106555154

     1: theory weird_nat_add3_comm23
     2: imports Main
     3:         "$HIPSTER_HOME/IsaHipster"
     4: begin
     5: 
     6: datatype Nat = Z | S "Nat"
     7: 
     8: fun add3 :: "Nat => Nat => Nat => Nat" where
     9: "add3 (Z) (Z) z = z"
    10: | "add3 (Z) (S y2) z = S (add3 Z y2 z)"
    11: | "add3 (S x2) y z = S (add3 x2 y z)"
    12: 
    13: (*hipster add3 *)
    14: 
    15: theorem x0 :
    16:   "!! (x :: Nat) (y :: Nat) (z :: Nat) . (add3 x y z) = (add3 x z y)"
    17:   by (tactic {* Subgoal.FOCUS_PARAMS (K (Tactic_Data.hard_tac @{context})) @{context} 1 *})
    18: 
    19: end