Goal:
  
  A : Type
  B : Type
  C : Type
  D : Type
  R : C → D → Type
  f : A → C
  g : B → D
  l : list A
  l' : list B
  ============================
   (All2 R (map f l) (map g l')
    → All2 (λ (x : A) (y : B), R (f x) (g y)) l l')


DEBUG:Going to execute:
induction l in l' |- *

Goals:
  
  A : Type
  B : Type
  C : Type
  D : Type
  R : C → D → Type
  f : A → C
  g : B → D
  l' : list B
  ============================
   (All2 R (map f []) (map g l')
    → All2 (λ (x : A) (y : B), R (f x) (g y)) [] l')

  
  A : Type
  B : Type
  C : Type
  D : Type
  R : C → D → Type
  f : A → C
  g : B → D
  a : A
  l : list A
  l' : list B
  IHl : ∀ l' : list B,
          All2 R (map f l) (map g l')
          → All2 (λ (x : A) (y : B), R (f x) (g y)) l l'
  ============================
   (All2 R (map f (a :: l)) (map g l')
    → All2 (λ (x : A) (y : B), R (f x) (g y)) (a :: l) l')


DEBUG:Going to execute:
destruct l'
DEBUG LTAC Evaluated term: l

Goals:
  
  A : Type
  B : Type
  C : Type
  D : Type
  R : C → D → Type
  f : A → C
  g : B → D
  ============================
   (All2 R (map f []) (map g [])
    → All2 (λ (x : A) (y : B), R (f x) (g y)) [] [])

  
  A : Type
  B : Type
  C : Type
  D : Type
  R : C → D → Type
  f : A → C
  g : B → D
  b : B
  l' : list B
  ============================
   (All2 R (map f []) (map g (b :: l'))
    → All2 (λ (x : A) (y : B), R (f x) (g y)) [] (b :: l'))

  
  A : Type
  B : Type
  C : Type
  D : Type
  R : C → D → Type
  f : A → C
  g : B → D
  a : A
  l : list A
  IHl : ∀ l' : list B,
          All2 R (map f l) (map g l')
          → All2 (λ (x : A) (y : B), R (f x) (g y)) l l'
  ============================
   (All2 R (map f (a :: l)) (map g [])
    → All2 (λ (x : A) (y : B), R (f x) (g y)) (a :: l) [])

  
  A : Type
  B : Type
  C : Type
  D : Type
  R : C → D → Type
  f : A → C
  g : B → D
  a : A
  l : list A
  b : B
  l' : list B
  IHl : ∀ l' : list B,
          All2 R (map f l) (map g l')
          → All2 (λ (x : A) (y : B), R (f x) (g y)) l l'
  ============================
   (All2 R (map f (a :: l)) (map g (b :: l'))
    → All2 (λ (x : A) (y : B), R (f x) (g y)) (a :: l) (b :: l'))


DEBUG:Going to execute:
intros H
DEBUG LTAC Evaluated term: l'
DEBUG LTAC Evaluated term: l'

Goals:
  
  A : Type
  B : Type
  C : Type
  D : Type
  R : C → D → Type
  f : A → C
  g : B → D
  H : All2 R (map f []) (map g [])
  ============================
   (All2 (λ (x : A) (y : B), R (f x) (g y)) [] [])

  
  A : Type
  B : Type
  C : Type
  D : Type
  R : C → D → Type
  f : A → C
  g : B → D
  b : B
  l' : list B
  H : All2 R (map f []) (map g (b :: l'))
  ============================
   (All2 (λ (x : A) (y : B), R (f x) (g y)) [] (b :: l'))

  
  A : Type
  B : Type
  C : Type
  D : Type
  R : C → D → Type
  f : A → C
  g : B → D
  a : A
  l : list A
  IHl : ∀ l' : list B,
          All2 R (map f l) (map g l')
          → All2 (λ (x : A) (y : B), R (f x) (g y)) l l'
  H : All2 R (map f (a :: l)) (map g [])
  ============================
   (All2 (λ (x : A) (y : B), R (f x) (g y)) (a :: l) [])

  
  A : Type
  B : Type
  C : Type
  D : Type
  R : C → D → Type
  f : A → C
  g : B → D
  a : A
  l : list A
  b : B
  l' : list B
  IHl : ∀ l' : list B,
          All2 R (map f l) (map g l')
          → All2 (λ (x : A) (y : B), R (f x) (g y)) l l'
  H : All2 R (map f (a :: l)) (map g (b :: l'))
  ============================
   (All2 (λ (x : A) (y : B), R (f x) (g y)) (a :: l) (b :: l'))


DEBUG:Going to execute:
depelim H

Goals:
  
  A : Type
  B : Type
  C : Type
  D : Type
  R : C → D → Type
  f : A → C
  g : B → D
  H : All2 R (map f []) (map g [])
  ============================
   (All2 (λ (x : A) (y : B), R (f x) (g y)) [] [])

  
  A : Type
  B : Type
  C : Type
  D : Type
  R : C → D → Type
  f : A → C
  g : B → D
  b : B
  l' : list B
  H : All2 R (map f []) (map g (b :: l'))
  ============================
   (All2 (λ (x : A) (y : B), R (f x) (g y)) [] (b :: l'))

  
  A : Type
  B : Type
  C : Type
  D : Type
  R : C → D → Type
  f : A → C
  g : B → D
  a : A
  l : list A
  IHl : ∀ l' : list B,
          All2 R (map f l) (map g l')
          → All2 (λ (x : A) (y : B), R (f x) (g y)) l l'
  H : All2 R (map f (a :: l)) (map g [])
  ============================
   (All2 (λ (x : A) (y : B), R (f x) (g y)) (a :: l) [])

  
  A : Type
  B : Type
  C : Type
  D : Type
  R : C → D → Type
  f : A → C
  g : B → D
  a : A
  l : list A
  b : B
  l' : list B
  IHl : ∀ l' : list B,
          All2 R (map f l) (map g l')
          → All2 (λ (x : A) (y : B), R (f x) (g y)) l l'
  H : All2 R (map f (a :: l)) (map g (b :: l'))
  ============================
   (All2 (λ (x : A) (y : B), R (f x) (g y)) (a :: l) (b :: l'))


DEBUG:Going to execute:
fun H => DepElim.depelim H

Goals:
  
  A : Type
  B : Type
  C : Type
  D : Type
  R : C → D → Type
  f : A → C
  g : B → D
  H : All2 R (map f []) (map g [])
  ============================
   (All2 (λ (x : A) (y : B), R (f x) (g y)) [] [])

  
  A : Type
  B : Type
  C : Type
  D : Type
  R : C → D → Type
  f : A → C
  g : B → D
  b : B
  l' : list B
  H : All2 R (map f []) (map g (b :: l'))
  ============================
   (All2 (λ (x : A) (y : B), R (f x) (g y)) [] (b :: l'))

  
  A : Type
  B : Type
  C : Type
  D : Type
  R : C → D → Type
  f : A → C
  g : B → D
  a : A
  l : list A
  IHl : ∀ l' : list B,
          All2 R (map f l) (map g l')
          → All2 (λ (x : A) (y : B), R (f x) (g y)) l l'
  H : All2 R (map f (a :: l)) (map g [])
  ============================
   (All2 (λ (x : A) (y : B), R (f x) (g y)) (a :: l) [])

  
  A : Type
  B : Type
  C : Type
  D : Type
  R : C → D → Type
  f : A → C
  g : B → D
  a : A
  l : list A
  b : B
  l' : list B
  IHl : ∀ l' : list B,
          All2 R (map f l) (map g l')
          → All2 (λ (x : A) (y : B), R (f x) (g y)) l l'
  H : All2 R (map f (a :: l)) (map g (b :: l'))
  ============================
   (All2 (λ (x : A) (y : B), R (f x) (g y)) (a :: l) (b :: l'))


DEBUG:Going to execute:
DepElim.depelim H

Goals:
  
  A : Type
  B : Type
  C : Type
  D : Type
  R : C → D → Type
  f : A → C
  g : B → D
  H : All2 R (map f []) (map g [])
  ============================
   (All2 (λ (x : A) (y : B), R (f x) (g y)) [] [])

  
  A : Type
  B : Type
  C : Type
  D : Type
  R : C → D → Type
  f : A → C
  g : B → D
  b : B
  l' : list B
  H : All2 R (map f []) (map g (b :: l'))
  ============================
   (All2 (λ (x : A) (y : B), R (f x) (g y)) [] (b :: l'))

  
  A : Type
  B : Type
  C : Type
  D : Type
  R : C → D → Type
  f : A → C
  g : B → D
  a : A
  l : list A
  IHl : ∀ l' : list B,
          All2 R (map f l) (map g l')
          → All2 (λ (x : A) (y : B), R (f x) (g y)) l l'
  H : All2 R (map f (a :: l)) (map g [])
  ============================
   (All2 (λ (x : A) (y : B), R (f x) (g y)) (a :: l) [])

  
  A : Type
  B : Type
  C : Type
  D : Type
  R : C → D → Type
  f : A → C
  g : B → D
  a : A
  l : list A
  b : B
  l' : list B
  IHl : ∀ l' : list B,
          All2 R (map f l) (map g l')
          → All2 (λ (x : A) (y : B), R (f x) (g y)) l l'
  H : All2 R (map f (a :: l)) (map g (b :: l'))
  ============================
   (All2 (λ (x : A) (y : B), R (f x) (g y)) (a :: l) (b :: l'))


DEBUG:Going to execute:
fun id =>
             DepElim.do_depelim ltac:(fun hyp => DepElim.do_case hyp) id

Goals:
  
  A : Type
  B : Type
  C : Type
  D : Type
  R : C → D → Type
  f : A → C
  g : B → D
  H : All2 R (map f []) (map g [])
  ============================
   (All2 (λ (x : A) (y : B), R (f x) (g y)) [] [])

  
  A : Type
  B : Type
  C : Type
  D : Type
  R : C → D → Type
  f : A → C
  g : B → D
  b : B
  l' : list B
  H : All2 R (map f []) (map g (b :: l'))
  ============================
   (All2 (λ (x : A) (y : B), R (f x) (g y)) [] (b :: l'))

  
  A : Type
  B : Type
  C : Type
  D : Type
  R : C → D → Type
  f : A → C
  g : B → D
  a : A
  l : list A
  IHl : ∀ l' : list B,
          All2 R (map f l) (map g l')
          → All2 (λ (x : A) (y : B), R (f x) (g y)) l l'
  H : All2 R (map f (a :: l)) (map g [])
  ============================
   (All2 (λ (x : A) (y : B), R (f x) (g y)) (a :: l) [])

  
  A : Type
  B : Type
  C : Type
  D : Type
  R : C → D → Type
  f : A → C
  g : B → D
  a : A
  l : list A
  b : B
  l' : list B
  IHl : ∀ l' : list B,
          All2 R (map f l) (map g l')
          → All2 (λ (x : A) (y : B), R (f x) (g y)) l l'
  H : All2 R (map f (a :: l)) (map g (b :: l'))
  ============================
   (All2 (λ (x : A) (y : B), R (f x) (g y)) (a :: l) (b :: l'))


DEBUG:Going to execute:
DepElim.do_depelim ltac:(fun hyp => DepElim.do_case hyp) id

Goals:
  
  A : Type
  B : Type
  C : Type
  D : Type
  R : C → D → Type
  f : A → C
  g : B → D
  H : All2 R (map f []) (map g [])
  ============================
   (All2 (λ (x : A) (y : B), R (f x) (g y)) [] [])

  
  A : Type
  B : Type
  C : Type
  D : Type
  R : C → D → Type
  f : A → C
  g : B → D
  b : B
  l' : list B
  H : All2 R (map f []) (map g (b :: l'))
  ============================
   (All2 (λ (x : A) (y : B), R (f x) (g y)) [] (b :: l'))

  
  A : Type
  B : Type
  C : Type
  D : Type
  R : C → D → Type
  f : A → C
  g : B → D
  a : A
  l : list A
  IHl : ∀ l' : list B,
          All2 R (map f l) (map g l')
          → All2 (λ (x : A) (y : B), R (f x) (g y)) l l'
  H : All2 R (map f (a :: l)) (map g [])
  ============================
   (All2 (λ (x : A) (y : B), R (f x) (g y)) (a :: l) [])

  
  A : Type
  B : Type
  C : Type
  D : Type
  R : C → D → Type
  f : A → C
  g : B → D
  a : A
  l : list A
  b : B
  l' : list B
  IHl : ∀ l' : list B,
          All2 R (map f l) (map g l')
          → All2 (λ (x : A) (y : B), R (f x) (g y)) l l'
  H : All2 R (map f (a :: l)) (map g (b :: l'))
  ============================
   (All2 (λ (x : A) (y : B), R (f x) (g y)) (a :: l) (b :: l'))


DEBUG:Going to execute:
fun tac H =>
             DepElim.do_depelim_nosimpl tac H; DepElim.simpl_dep_elim;
              CoreTactics.unblock_goal

Goals:
  
  A : Type
  B : Type
  C : Type
  D : Type
  R : C → D → Type
  f : A → C
  g : B → D
  H : All2 R (map f []) (map g [])
  ============================
   (All2 (λ (x : A) (y : B), R (f x) (g y)) [] [])

  
  A : Type
  B : Type
  C : Type
  D : Type
  R : C → D → Type
  f : A → C
  g : B → D
  b : B
  l' : list B
  H : All2 R (map f []) (map g (b :: l'))
  ============================
   (All2 (λ (x : A) (y : B), R (f x) (g y)) [] (b :: l'))

  
  A : Type
  B : Type
  C : Type
  D : Type
  R : C → D → Type
  f : A → C
  g : B → D
  a : A
  l : list A
  IHl : ∀ l' : list B,
          All2 R (map f l) (map g l')
          → All2 (λ (x : A) (y : B), R (f x) (g y)) l l'
  H : All2 R (map f (a :: l)) (map g [])
  ============================
   (All2 (λ (x : A) (y : B), R (f x) (g y)) (a :: l) [])

  
  A : Type
  B : Type
  C : Type
  D : Type
  R : C → D → Type
  f : A → C
  g : B → D
  a : A
  l : list A
  b : B
  l' : list B
  IHl : ∀ l' : list B,
          All2 R (map f l) (map g l')
          → All2 (λ (x : A) (y : B), R (f x) (g y)) l l'
  H : All2 R (map f (a :: l)) (map g (b :: l'))
  ============================
   (All2 (λ (x : A) (y : B), R (f x) (g y)) (a :: l) (b :: l'))


DEBUG:Going to execute:
fun hyp => DepElim.do_case hyp

Goals:
  
  A : Type
  B : Type
  C : Type
  D : Type
  R : C → D → Type
  f : A → C
  g : B → D
  H : All2 R (map f []) (map g [])
  ============================
   (All2 (λ (x : A) (y : B), R (f x) (g y)) [] [])

  
  A : Type
  B : Type
  C : Type
  D : Type
  R : C → D → Type
  f : A → C
  g : B → D
  b : B
  l' : list B
  H : All2 R (map f []) (map g (b :: l'))
  ============================
   (All2 (λ (x : A) (y : B), R (f x) (g y)) [] (b :: l'))

  
  A : Type
  B : Type
  C : Type
  D : Type
  R : C → D → Type
  f : A → C
  g : B → D
  a : A
  l : list A
  IHl : ∀ l' : list B,
          All2 R (map f l) (map g l')
          → All2 (λ (x : A) (y : B), R (f x) (g y)) l l'
  H : All2 R (map f (a :: l)) (map g [])
  ============================
   (All2 (λ (x : A) (y : B), R (f x) (g y)) (a :: l) [])

  
  A : Type
  B : Type
  C : Type
  D : Type
  R : C → D → Type
  f : A → C
  g : B → D
  a : A
  l : list A
  b : B
  l' : list B
  IHl : ∀ l' : list B,
          All2 R (map f l) (map g l')
          → All2 (λ (x : A) (y : B), R (f x) (g y)) l l'
  H : All2 R (map f (a :: l)) (map g (b :: l'))
  ============================
   (All2 (λ (x : A) (y : B), R (f x) (g y)) (a :: l) (b :: l'))


DEBUG:Going to execute:
DepElim.do_depelim_nosimpl tac H; DepElim.simpl_dep_elim;
            CoreTactics.unblock_goal

Goals:
  
  A : Type
  B : Type
  C : Type
  D : Type
  R : C → D → Type
  f : A → C
  g : B → D
  H : All2 R (map f []) (map g [])
  ============================
   (All2 (λ (x : A) (y : B), R (f x) (g y)) [] [])

  
  A : Type
  B : Type
  C : Type
  D : Type
  R : C → D → Type
  f : A → C
  g : B → D
  b : B
  l' : list B
  H : All2 R (map f []) (map g (b :: l'))
  ============================
   (All2 (λ (x : A) (y : B), R (f x) (g y)) [] (b :: l'))

  
  A : Type
  B : Type
  C : Type
  D : Type
  R : C → D → Type
  f : A → C
  g : B → D
  a : A
  l : list A
  IHl : ∀ l' : list B,
          All2 R (map f l) (map g l')
          → All2 (λ (x : A) (y : B), R (f x) (g y)) l l'
  H : All2 R (map f (a :: l)) (map g [])
  ============================
   (All2 (λ (x : A) (y : B), R (f x) (g y)) (a :: l) [])

  
  A : Type
  B : Type
  C : Type
  D : Type
  R : C → D → Type
  f : A → C
  g : B → D
  a : A
  l : list A
  b : B
  l' : list B
  IHl : ∀ l' : list B,
          All2 R (map f l) (map g l')
          → All2 (λ (x : A) (y : B), R (f x) (g y)) l l'
  H : All2 R (map f (a :: l)) (map g (b :: l'))
  ============================
   (All2 (λ (x : A) (y : B), R (f x) (g y)) (a :: l) (b :: l'))


DEBUG:Going to execute:
DepElim.do_depelim_nosimpl tac H; DepElim.simpl_dep_elim
Level 3: evaluation returns
DepElim.do_depelim_nosimpl tac H; DepElim.simpl_dep_elim;
 CoreTactics.unblock_goal
where
tac := fun hyp => DepElim.do_case hyp
       where
       id := H
       of type
       ident
of type
tacvalue
H := H
of type
ident of type tacvalue

Level 3: evaluation returns
DepElim.do_depelim_nosimpl tac H; DepElim.simpl_dep_elim;
 CoreTactics.unblock_goal
where
tac := fun hyp => DepElim.do_case hyp
       where
       id := H
       of type
       ident
of type
tacvalue
H := H
of type
ident of type tacvalue

Level 3: evaluation returns
DepElim.do_depelim_nosimpl tac H; DepElim.simpl_dep_elim;
 CoreTactics.unblock_goal
where
tac := fun hyp => DepElim.do_case hyp
       where
       id := H
       of type
       ident
of type
tacvalue
H := H
of type
ident of type tacvalue

Level 3: evaluation returns
DepElim.do_depelim_nosimpl tac H; DepElim.simpl_dep_elim;
 CoreTactics.unblock_goal
where
tac := fun hyp => DepElim.do_case hyp
       where
       id := H
       of type
       ident
of type
tacvalue
H := H
of type
ident of type tacvalue

Level 2: evaluation returns
DepElim.do_depelim_nosimpl tac H; DepElim.simpl_dep_elim;
 CoreTactics.unblock_goal
where
tac := fun hyp => DepElim.do_case hyp
       where
       id := H
       of type
       ident
of type
tacvalue
H := H
of type
ident of type tacvalue

Level 2: evaluation returns
DepElim.do_depelim_nosimpl tac H; DepElim.simpl_dep_elim;
 CoreTactics.unblock_goal
where
tac := fun hyp => DepElim.do_case hyp
       where
       id := H
       of type
       ident
of type
tacvalue
H := H
of type
ident of type tacvalue

Level 2: evaluation returns
DepElim.do_depelim_nosimpl tac H; DepElim.simpl_dep_elim;
 CoreTactics.unblock_goal
where
tac := fun hyp => DepElim.do_case hyp
       where
       id := H
       of type
       ident
of type
tacvalue
H := H
of type
ident of type tacvalue

Level 2: evaluation returns
DepElim.do_depelim_nosimpl tac H; DepElim.simpl_dep_elim;
 CoreTactics.unblock_goal
where
tac := fun hyp => DepElim.do_case hyp
       where
       id := H
       of type
       ident
of type
tacvalue
H := H
of type
ident of type tacvalue

Level 1: evaluation returns
DepElim.do_depelim_nosimpl tac H; DepElim.simpl_dep_elim;
 CoreTactics.unblock_goal
where
tac := fun hyp => DepElim.do_case hyp
       where
       id := H
       of type
       ident
of type
tacvalue
H := H
of type
ident of type tacvalue

Level 1: evaluation returns
DepElim.do_depelim_nosimpl tac H; DepElim.simpl_dep_elim;
 CoreTactics.unblock_goal
where
tac := fun hyp => DepElim.do_case hyp
       where
       id := H
       of type
       ident
of type
tacvalue
H := H
of type
ident of type tacvalue

Level 1: evaluation returns
DepElim.do_depelim_nosimpl tac H; DepElim.simpl_dep_elim;
 CoreTactics.unblock_goal
where
tac := fun hyp => DepElim.do_case hyp
       where
       id := H
       of type
       ident
of type
tacvalue
H := H
of type
ident of type tacvalue

Level 1: evaluation returns
DepElim.do_depelim_nosimpl tac H; DepElim.simpl_dep_elim;
 CoreTactics.unblock_goal
where
tac := fun hyp => DepElim.do_case hyp
       where
       id := H
       of type
       ident
of type
tacvalue
H := H
of type
ident of type tacvalue


Goals:
  
  A : Type
  B : Type
  C : Type
  D : Type
  R : C → D → Type
  f : A → C
  g : B → D
  H : All2 R (map f []) (map g [])
  ============================
   (All2 (λ (x : A) (y : B), R (f x) (g y)) [] [])

  
  A : Type
  B : Type
  C : Type
  D : Type
  R : C → D → Type
  f : A → C
  g : B → D
  b : B
  l' : list B
  H : All2 R (map f []) (map g (b :: l'))
  ============================
   (All2 (λ (x : A) (y : B), R (f x) (g y)) [] (b :: l'))

  
  A : Type
  B : Type
  C : Type
  D : Type
  R : C → D → Type
  f : A → C
  g : B → D
  a : A
  l : list A
  IHl : ∀ l' : list B,
          All2 R (map f l) (map g l')
          → All2 (λ (x : A) (y : B), R (f x) (g y)) l l'
  H : All2 R (map f (a :: l)) (map g [])
  ============================
   (All2 (λ (x : A) (y : B), R (f x) (g y)) (a :: l) [])

  
  A : Type
  B : Type
  C : Type
  D : Type
  R : C → D → Type
  f : A → C
  g : B → D
  a : A
  l : list A
  b : B
  l' : list B
  IHl : ∀ l' : list B,
          All2 R (map f l) (map g l')
          → All2 (λ (x : A) (y : B), R (f x) (g y)) l l'
  H : All2 R (map f (a :: l)) (map g (b :: l'))
  ============================
   (All2 (λ (x : A) (y : B), R (f x) (g y)) (a :: l) (b :: l'))


DEBUG:Going to execute:
DepElim.do_depelim_nosimpl tac H

Goals:
  
  A : Type
  B : Type
  C : Type
  D : Type
  R : C → D → Type
  f : A → C
  g : B → D
  H : All2 R (map f []) (map g [])
  ============================
   (All2 (λ (x : A) (y : B), R (f x) (g y)) [] [])

  
  A : Type
  B : Type
  C : Type
  D : Type
  R : C → D → Type
  f : A → C
  g : B → D
  b : B
  l' : list B
  H : All2 R (map f []) (map g (b :: l'))
  ============================
   (All2 (λ (x : A) (y : B), R (f x) (g y)) [] (b :: l'))

  
  A : Type
  B : Type
  C : Type
  D : Type
  R : C → D → Type
  f : A → C
  g : B → D
  a : A
  l : list A
  IHl : ∀ l' : list B,
          All2 R (map f l) (map g l')
          → All2 (λ (x : A) (y : B), R (f x) (g y)) l l'
  H : All2 R (map f (a :: l)) (map g [])
  ============================
   (All2 (λ (x : A) (y : B), R (f x) (g y)) (a :: l) [])

  
  A : Type
  B : Type
  C : Type
  D : Type
  R : C → D → Type
  f : A → C
  g : B → D
  a : A
  l : list A
  b : B
  l' : list B
  IHl : ∀ l' : list B,
          All2 R (map f l) (map g l')
          → All2 (λ (x : A) (y : B), R (f x) (g y)) l l'
  H : All2 R (map f (a :: l)) (map g (b :: l'))
  ============================
   (All2 (λ (x : A) (y : B), R (f x) (g y)) (a :: l) (b :: l'))


DEBUG:Going to execute:
fun tac H =>
             DepElim.do_intros H; DepElim.generalize_by_eqs H; tac H

Goals:
  
  A : Type
  B : Type
  C : Type
  D : Type
  R : C → D → Type
  f : A → C
  g : B → D
  H : All2 R (map f []) (map g [])
  ============================
   (All2 (λ (x : A) (y : B), R (f x) (g y)) [] [])

  
  A : Type
  B : Type
  C : Type
  D : Type
  R : C → D → Type
  f : A → C
  g : B → D
  b : B
  l' : list B
  H : All2 R (map f []) (map g (b :: l'))
  ============================
   (All2 (λ (x : A) (y : B), R (f x) (g y)) [] (b :: l'))

  
  A : Type
  B : Type
  C : Type
  D : Type
  R : C → D → Type
  f : A → C
  g : B → D
  a : A
  l : list A
  IHl : ∀ l' : list B,
          All2 R (map f l) (map g l')
          → All2 (λ (x : A) (y : B), R (f x) (g y)) l l'
  H : All2 R (map f (a :: l)) (map g [])
  ============================
   (All2 (λ (x : A) (y : B), R (f x) (g y)) (a :: l) [])

  
  A : Type
  B : Type
  C : Type
  D : Type
  R : C → D → Type
  f : A → C
  g : B → D
  a : A
  l : list A
  b : B
  l' : list B
  IHl : ∀ l' : list B,
          All2 R (map f l) (map g l')
          → All2 (λ (x : A) (y : B), R (f x) (g y)) l l'
  H : All2 R (map f (a :: l)) (map g (b :: l'))
  ============================
   (All2 (λ (x : A) (y : B), R (f x) (g y)) (a :: l) (b :: l'))


DEBUG:Going to execute:
DepElim.do_intros H; DepElim.generalize_by_eqs H; tac H

Goals:
  
  A : Type
  B : Type
  C : Type
  D : Type
  R : C → D → Type
  f : A → C
  g : B → D
  H : All2 R (map f []) (map g [])
  ============================
   (All2 (λ (x : A) (y : B), R (f x) (g y)) [] [])

  
  A : Type
  B : Type
  C : Type
  D : Type
  R : C → D → Type
  f : A → C
  g : B → D
  b : B
  l' : list B
  H : All2 R (map f []) (map g (b :: l'))
  ============================
   (All2 (λ (x : A) (y : B), R (f x) (g y)) [] (b :: l'))

  
  A : Type
  B : Type
  C : Type
  D : Type
  R : C → D → Type
  f : A → C
  g : B → D
  a : A
  l : list A
  IHl : ∀ l' : list B,
          All2 R (map f l) (map g l')
          → All2 (λ (x : A) (y : B), R (f x) (g y)) l l'
  H : All2 R (map f (a :: l)) (map g [])
  ============================
   (All2 (λ (x : A) (y : B), R (f x) (g y)) (a :: l) [])

  
  A : Type
  B : Type
  C : Type
  D : Type
  R : C → D → Type
  f : A → C
  g : B → D
  a : A
  l : list A
  b : B
  l' : list B
  IHl : ∀ l' : list B,
          All2 R (map f l) (map g l')
          → All2 (λ (x : A) (y : B), R (f x) (g y)) l l'
  H : All2 R (map f (a :: l)) (map g (b :: l'))
  ============================
   (All2 (λ (x : A) (y : B), R (f x) (g y)) (a :: l) (b :: l'))


DEBUG:Going to execute:
DepElim.do_intros H; DepElim.generalize_by_eqs H
Level 1: evaluation returns
DepElim.do_intros H; DepElim.generalize_by_eqs H; tac H
where
tac := fun hyp => DepElim.do_case hyp
       where
       id := H
       of type
       ident
of type
tacvalue
H := H
of type
ident of type tacvalue

Level 1: evaluation returns
DepElim.do_intros H; DepElim.generalize_by_eqs H; tac H
where
tac := fun hyp => DepElim.do_case hyp
       where
       id := H
       of type
       ident
of type
tacvalue
H := H
of type
ident of type tacvalue

Level 1: evaluation returns
DepElim.do_intros H; DepElim.generalize_by_eqs H; tac H
where
tac := fun hyp => DepElim.do_case hyp
       where
       id := H
       of type
       ident
of type
tacvalue
H := H
of type
ident of type tacvalue

Level 1: evaluation returns
DepElim.do_intros H; DepElim.generalize_by_eqs H; tac H
where
tac := fun hyp => DepElim.do_case hyp
       where
       id := H
       of type
       ident
of type
tacvalue
H := H
of type
ident of type tacvalue


Goals:
  
  A : Type
  B : Type
  C : Type
  D : Type
  R : C → D → Type
  f : A → C
  g : B → D
  H : All2 R (map f []) (map g [])
  ============================
   (All2 (λ (x : A) (y : B), R (f x) (g y)) [] [])

  
  A : Type
  B : Type
  C : Type
  D : Type
  R : C → D → Type
  f : A → C
  g : B → D
  b : B
  l' : list B
  H : All2 R (map f []) (map g (b :: l'))
  ============================
   (All2 (λ (x : A) (y : B), R (f x) (g y)) [] (b :: l'))

  
  A : Type
  B : Type
  C : Type
  D : Type
  R : C → D → Type
  f : A → C
  g : B → D
  a : A
  l : list A
  IHl : ∀ l' : list B,
          All2 R (map f l) (map g l')
          → All2 (λ (x : A) (y : B), R (f x) (g y)) l l'
  H : All2 R (map f (a :: l)) (map g [])
  ============================
   (All2 (λ (x : A) (y : B), R (f x) (g y)) (a :: l) [])

  
  A : Type
  B : Type
  C : Type
  D : Type
  R : C → D → Type
  f : A → C
  g : B → D
  a : A
  l : list A
  b : B
  l' : list B
  IHl : ∀ l' : list B,
          All2 R (map f l) (map g l')
          → All2 (λ (x : A) (y : B), R (f x) (g y)) l l'
  H : All2 R (map f (a :: l)) (map g (b :: l'))
  ============================
   (All2 (λ (x : A) (y : B), R (f x) (g y)) (a :: l) (b :: l'))


DEBUG:Going to execute:
DepElim.do_intros H

Goals:
  
  A : Type
  B : Type
  C : Type
  D : Type
  R : C → D → Type
  f : A → C
  g : B → D
  H : All2 R (map f []) (map g [])
  ============================
   (All2 (λ (x : A) (y : B), R (f x) (g y)) [] [])

  
  A : Type
  B : Type
  C : Type
  D : Type
  R : C → D → Type
  f : A → C
  g : B → D
  b : B
  l' : list B
  H : All2 R (map f []) (map g (b :: l'))
  ============================
   (All2 (λ (x : A) (y : B), R (f x) (g y)) [] (b :: l'))

  
  A : Type
  B : Type
  C : Type
  D : Type
  R : C → D → Type
  f : A → C
  g : B → D
  a : A
  l : list A
  IHl : ∀ l' : list B,
          All2 R (map f l) (map g l')
          → All2 (λ (x : A) (y : B), R (f x) (g y)) l l'
  H : All2 R (map f (a :: l)) (map g [])
  ============================
   (All2 (λ (x : A) (y : B), R (f x) (g y)) (a :: l) [])

  
  A : Type
  B : Type
  C : Type
  D : Type
  R : C → D → Type
  f : A → C
  g : B → D
  a : A
  l : list A
  b : B
  l' : list B
  IHl : ∀ l' : list B,
          All2 R (map f l) (map g l')
          → All2 (λ (x : A) (y : B), R (f x) (g y)) l l'
  H : All2 R (map f (a :: l)) (map g (b :: l'))
  ============================
   (All2 (λ (x : A) (y : B), R (f x) (g y)) (a :: l) (b :: l'))


DEBUG:Going to execute:
fun H =>
             try intros until H; intro_block_id H || intro_block H;
              (try simpl in H; DepElim.simplify_equations_in H)

Goals:
  
  A : Type
  B : Type
  C : Type
  D : Type
  R : C → D → Type
  f : A → C
  g : B → D
  H : All2 R (map f []) (map g [])
  ============================
   (All2 (λ (x : A) (y : B), R (f x) (g y)) [] [])

  
  A : Type
  B : Type
  C : Type
  D : Type
  R : C → D → Type
  f : A → C
  g : B → D
  b : B
  l' : list B
  H : All2 R (map f []) (map g (b :: l'))
  ============================
   (All2 (λ (x : A) (y : B), R (f x) (g y)) [] (b :: l'))

  
  A : Type
  B : Type
  C : Type
  D : Type
  R : C → D → Type
  f : A → C
  g : B → D
  a : A
  l : list A
  IHl : ∀ l' : list B,
          All2 R (map f l) (map g l')
          → All2 (λ (x : A) (y : B), R (f x) (g y)) l l'
  H : All2 R (map f (a :: l)) (map g [])
  ============================
   (All2 (λ (x : A) (y : B), R (f x) (g y)) (a :: l) [])

  
  A : Type
  B : Type
  C : Type
  D : Type
  R : C → D → Type
  f : A → C
  g : B → D
  a : A
  l : list A
  b : B
  l' : list B
  IHl : ∀ l' : list B,
          All2 R (map f l) (map g l')
          → All2 (λ (x : A) (y : B), R (f x) (g y)) l l'
  H : All2 R (map f (a :: l)) (map g (b :: l'))
  ============================
   (All2 (λ (x : A) (y : B), R (f x) (g y)) (a :: l) (b :: l'))


DEBUG:Going to execute:
try intros until H; intro_block_id H || intro_block H;
            (try simpl in H; DepElim.simplify_equations_in H)

Goals:
  
  A : Type
  B : Type
  C : Type
  D : Type
  R : C → D → Type
  f : A → C
  g : B → D
  H : All2 R (map f []) (map g [])
  ============================
   (All2 (λ (x : A) (y : B), R (f x) (g y)) [] [])

  
  A : Type
  B : Type
  C : Type
  D : Type
  R : C → D → Type
  f : A → C
  g : B → D
  b : B
  l' : list B
  H : All2 R (map f []) (map g (b :: l'))
  ============================
   (All2 (λ (x : A) (y : B), R (f x) (g y)) [] (b :: l'))

  
  A : Type
  B : Type
  C : Type
  D : Type
  R : C → D → Type
  f : A → C
  g : B → D
  a : A
  l : list A
  IHl : ∀ l' : list B,
          All2 R (map f l) (map g l')
          → All2 (λ (x : A) (y : B), R (f x) (g y)) l l'
  H : All2 R (map f (a :: l)) (map g [])
  ============================
   (All2 (λ (x : A) (y : B), R (f x) (g y)) (a :: l) [])

  
  A : Type
  B : Type
  C : Type
  D : Type
  R : C → D → Type
  f : A → C
  g : B → D
  a : A
  l : list A
  b : B
  l' : list B
  IHl : ∀ l' : list B,
          All2 R (map f l) (map g l')
          → All2 (λ (x : A) (y : B), R (f x) (g y)) l l'
  H : All2 R (map f (a :: l)) (map g (b :: l'))
  ============================
   (All2 (λ (x : A) (y : B), R (f x) (g y)) (a :: l) (b :: l'))


DEBUG:Going to execute:
try intros until H; intro_block_id H || intro_block H
Level 1: evaluation returns
try intros until H; intro_block_id H || intro_block H;
 (try simpl in H; DepElim.simplify_equations_in H)
where
H := H
of type
ident of type tacvalue

Level 1: evaluation returns
try intros until H; intro_block_id H || intro_block H;
 (try simpl in H; DepElim.simplify_equations_in H)
where
H := H
of type
ident of type tacvalue

Level 1: evaluation returns
try intros until H; intro_block_id H || intro_block H;
 (try simpl in H; DepElim.simplify_equations_in H)
where
H := H
of type
ident of type tacvalue

Level 1: evaluation returns
try intros until H; intro_block_id H || intro_block H;
 (try simpl in H; DepElim.simplify_equations_in H)
where
H := H
of type
ident of type tacvalue


Goals:
  
  A : Type
  B : Type
  C : Type
  D : Type
  R : C → D → Type
  f : A → C
  g : B → D
  H : All2 R (map f []) (map g [])
  ============================
   (All2 (λ (x : A) (y : B), R (f x) (g y)) [] [])

  
  A : Type
  B : Type
  C : Type
  D : Type
  R : C → D → Type
  f : A → C
  g : B → D
  b : B
  l' : list B
  H : All2 R (map f []) (map g (b :: l'))
  ============================
   (All2 (λ (x : A) (y : B), R (f x) (g y)) [] (b :: l'))

  
  A : Type
  B : Type
  C : Type
  D : Type
  R : C → D → Type
  f : A → C
  g : B → D
  a : A
  l : list A
  IHl : ∀ l' : list B,
          All2 R (map f l) (map g l')
          → All2 (λ (x : A) (y : B), R (f x) (g y)) l l'
  H : All2 R (map f (a :: l)) (map g [])
  ============================
   (All2 (λ (x : A) (y : B), R (f x) (g y)) (a :: l) [])

  
  A : Type
  B : Type
  C : Type
  D : Type
  R : C → D → Type
  f : A → C
  g : B → D
  a : A
  l : list A
  b : B
  l' : list B
  IHl : ∀ l' : list B,
          All2 R (map f l) (map g l')
          → All2 (λ (x : A) (y : B), R (f x) (g y)) l l'
  H : All2 R (map f (a :: l)) (map g (b :: l'))
  ============================
   (All2 (λ (x : A) (y : B), R (f x) (g y)) (a :: l) (b :: l'))


DEBUG:Going to execute:
try intros until H