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