∀ {α : Type u_1} {β : Type u_2} {γ : Type u_3} {F : β → Option (α × γ × β)} {op : γ → Stream'.Seq α → Stream'.Seq α}
  [inst : Tactic.ComputeAsymptotics.Seq.FriendlyOperationClass op] {b : β} {a : α} {c : γ} {b' : β},
  F b = some (a, c, b') →
    Tactic.ComputeAsymptotics.Seq.gcorec F op b =
      Stream'.Seq.cons a (op c (Tactic.ComputeAsymptotics.Seq.gcorec F op b'))