Goal:
  
  A : Type
  H : ReflectEq A
  l1 : list A
  l2 : list A
  l : list A
  packcall : let H := split_prefix in sigma (λ _ : list A, list A)
  ============================
   (packcall = {| pr1 := l1; pr2 := l2 |}
    → split_prefix (pr1 packcall) (pr2 packcall) =
      split_prefix (pr1 {| pr1 := l1; pr2 := l2 |})
        (pr2 {| pr1 := l1; pr2 := l2 |})
      → let H := CoreTactics.block in
        is_prefix l l1
        → is_prefix l l2 → is_prefix l (fst (fst (split_prefix l1 l2))))


DEBUG:Going to execute:
<coq-core.plugins.ltac::move@3> $1 $2
Level 4: evaluation returns
move packcall before eos
where
tac := fun _ => idtac
       where
       c := split_prefix l1 l2
       of type
       constr
of type
tacvalue
packcall_fn := packcall_fn
of type
intropattern
packcall := packcall
of type
intropattern
eos := H
of type
constr
elimn := 5
of type
constr
elimfn := split_prefix
of type
constr
elimc := fun_elim
of type
constr
c := split_prefix l1 l2
of type
constr
Heq := Heqcall
of type
intropattern
H := eqargs
of type
intropattern of type tacvalue