isahipster: 1ba0add5452c93859196407d3171c846db5ee464

     1: theory prop_44
     2: imports Main
     3:         "$HIPSTER_HOME/IsaHipster"
     4: begin
     5:   datatype 'a list = Nil2 | Cons2 "'a" "'a list"
     6:   datatype ('a, 'b) Pair2 = Pair "'a" "'b"
     7:   fun zip :: "'a list => 'b list => (('a, 'b) Pair2) list" where
     8:   "zip (Nil2) y = Nil2"
     9:   | "zip (Cons2 z x2) (Nil2) = Nil2"
    10:   | "zip (Cons2 z x2) (Cons2 x3 x4) = Cons2 (Pair z x3) (zip x2 x4)"
    11:   fun zipConcat :: "'a => 'a list => 'b list =>
    12:                     (('a, 'b) Pair2) list" where
    13:   "zipConcat x y (Nil2) = Nil2"
    14:   | "zipConcat x y (Cons2 y2 ys) = Cons2 (Pair x y2) (zip y ys)"
    15:   (*hipster zip zipConcat *)
    16:   theorem x0 :
    17:     "(zip (Cons2 x xs) ys) = (zipConcat x xs ys)"
    18:     by (tactic {* Subgoal.FOCUS_PARAMS (K (Tactic_Data.hard_tac @{context})) @{context} 1 *})
    19: end