case bisim
α : Type u
β : Type v
γ : Type w
a : α
f : α → Computation β
⊢ IsBisimulation fun c₁ c₂ => c₁ = bind (pure a) f ∧ c₂ = f a ∨ c₁ = corec (Bind.f f) (Sum.inr c₂)

case r
α : Type u
β : Type v
γ : Type w
a : α
f : α → Computation β
⊢ bind (pure a) f = bind (pure a) f ∧ f a = f a ∨ bind (pure a) f = corec (Bind.f f) (Sum.inr (f a))
α : Type u
β : Type v
γ : Type w
a : α
f : α → Computation β
⊢ bind (pure a) f = f a
apply
  eq_of_bisim fun c₁ c₂ => c₁ = bind (pure a) f ∧ c₂ = f a ∨ c₁ = corec (Bind.f f) (Sum.inr c₂)
case bisim
α : Type u
β : Type v
γ : Type w
a : α
f : α → Computation β
c₁ c₂ : Computation β
h : c₁ = bind (pure a) f ∧ c₂ = f a ∨ c₁ = corec (Bind.f f) (Sum.inr c₂)
⊢ BisimO (fun c₁ c₂ => c₁ = bind (pure a) f ∧ c₂ = f a ∨ c₁ = corec (Bind.f f) (Sum.inr c₂)) (destruct c₁) (destruct c₂)
case bisim
α : Type u
β : Type v
γ : Type w
a : α
f : α → Computation β
⊢ IsBisimulation fun c₁ c₂ => c₁ = bind (pure a) f ∧ c₂ = f a ∨ c₁ = corec (Bind.f f) (Sum.inr c₂)
intro c₁ c₂ h
no goals
case bisim
α : Type u
β : Type v
γ : Type w
a : α
f : α → Computation β
c₁ c₂ : Computation β
h : c₁ = bind (pure a) f ∧ c₂ = f a ∨ c₁ = corec (Bind.f f) (Sum.inr c₂)
⊢ BisimO (fun c₁ c₂ => c₁ = bind (pure a) f ∧ c₂ = f a ∨ c₁ = corec (Bind.f f) (Sum.inr c₂)) (destruct c₁) (destruct c₂)
exact
  match c₁, c₂, h with
  | _, _, Or.inl ⟨rfl, rfl⟩ => by
    simp [bind, Bind.f]
    cases' destruct (f a) with b cb <;> simp [Bind.g]
  | _, c, Or.inr rfl => by
    simp [Bind.f]
    cases' destruct c with b cb <;> simp [Bind.g]
α : Type u
β : Type v
γ : Type w
a : α
f : α → Computation β
c₁ c₂ : Computation β
h : c₁ = bind (pure a) f ∧ c₂ = f a ∨ c₁ = corec (Bind.f f) (Sum.inr c₂)
⊢ match
    match Bind.g (destruct (f a)) with
    | Sum.inl a => Sum.inl a
    | Sum.inr b =>
      Sum.inr
        (corec
          (fun x =>
            match x with
            | Sum.inl ca =>
              match destruct ca with
              | Sum.inl a => Bind.g (destruct (f a))
              | Sum.inr ca' => Sum.inr (Sum.inl ca')
            | Sum.inr cb => Bind.g (destruct cb))
          b),
    destruct (f a) with
  | Sum.inl a, Sum.inl a' => a = a'
  | Sum.inr s, Sum.inr s' =>
    s =
          corec
            (fun x =>
              match x with
              | Sum.inl ca =>
                match destruct ca with
                | Sum.inl a => Bind.g (destruct (f a))
                | Sum.inr ca' => Sum.inr (Sum.inl ca')
              | Sum.inr cb => Bind.g (destruct cb))
            (Sum.inl (pure a)) ∧
        s' = f a ∨
      s =
        corec
          (fun x =>
            match x with
            | Sum.inl ca =>
              match destruct ca with
              | Sum.inl a => Bind.g (destruct (f a))
              | Sum.inr ca' => Sum.inr (Sum.inl ca')
            | Sum.inr cb => Bind.g (destruct cb))
          (Sum.inr s')
  | x, x_1 => False
α : Type u
β : Type v
γ : Type w
a : α
f : α → Computation β
c₁ c₂ : Computation β
h : c₁ = bind (pure a) f ∧ c₂ = f a ∨ c₁ = corec (Bind.f f) (Sum.inr c₂)
⊢ BisimO (fun c₁ c₂ => c₁ = bind (pure a) f ∧ c₂ = f a ∨ c₁ = corec (Bind.f f) (Sum.inr c₂))
    (destruct (bind (pure a) f)) (destruct (f a))
simp [bind, Bind.f]
no goals
α : Type u
β : Type v
γ : Type w
a : α
f : α → Computation β
c₁ c₂ : Computation β
h : c₁ = bind (pure a) f ∧ c₂ = f a ∨ c₁ = corec (Bind.f f) (Sum.inr c₂)
⊢ match
    match Bind.g (destruct (f a)) with
    | Sum.inl a => Sum.inl a
    | Sum.inr b =>
      Sum.inr
        (corec
          (fun x =>
            match x with
            | Sum.inl ca =>
              match destruct ca with
              | Sum.inl a => Bind.g (destruct (f a))
              | Sum.inr ca' => Sum.inr (Sum.inl ca')
            | Sum.inr cb => Bind.g (destruct cb))
          b),
    destruct (f a) with
  | Sum.inl a, Sum.inl a' => a = a'
  | Sum.inr s, Sum.inr s' =>
    s =
          corec
            (fun x =>
              match x with
              | Sum.inl ca =>
                match destruct ca with
                | Sum.inl a => Bind.g (destruct (f a))
                | Sum.inr ca' => Sum.inr (Sum.inl ca')
              | Sum.inr cb => Bind.g (destruct cb))
            (Sum.inl (pure a)) ∧
        s' = f a ∨
      s =
        corec
          (fun x =>
            match x with
            | Sum.inl ca =>
              match destruct ca with
              | Sum.inl a => Bind.g (destruct (f a))
              | Sum.inr ca' => Sum.inr (Sum.inl ca')
            | Sum.inr cb => Bind.g (destruct cb))
          (Sum.inr s')
  | x, x_1 => False
cases' destruct (f a) with b cb <;> simp [Bind.g]
α : Type u
β : Type v
γ : Type w
a : α
f : α → Computation β
c₁ c₂ : Computation β
h : c₁ = bind (pure a) f ∧ c₂ = f a ∨ c₁ = corec (Bind.f f) (Sum.inr c₂)
c : Computation β
⊢ match
    match Bind.g (destruct c) with
    | Sum.inl a => Sum.inl a
    | Sum.inr b =>
      Sum.inr
        (corec
          (fun x =>
            match x with
            | Sum.inl ca =>
              match destruct ca with
              | Sum.inl a => Bind.g (destruct (f a))
              | Sum.inr ca' => Sum.inr (Sum.inl ca')
            | Sum.inr cb => Bind.g (destruct cb))
          b),
    destruct c with
  | Sum.inl a, Sum.inl a' => a = a'
  | Sum.inr s, Sum.inr s' =>
    s = bind (pure a) f ∧ s' = f a ∨
      s =
        corec
          (fun x =>
            match x with
            | Sum.inl ca =>
              match destruct ca with
              | Sum.inl a => Bind.g (destruct (f a))
              | Sum.inr ca' => Sum.inr (Sum.inl ca')
            | Sum.inr cb => Bind.g (destruct cb))
          (Sum.inr s')
  | x, x_1 => False
α : Type u
β : Type v
γ : Type w
a : α
f : α → Computation β
c₁ c₂ : Computation β
h : c₁ = bind (pure a) f ∧ c₂ = f a ∨ c₁ = corec (Bind.f f) (Sum.inr c₂)
c : Computation β
⊢ BisimO (fun c₁ c₂ => c₁ = bind (pure a) f ∧ c₂ = f a ∨ c₁ = corec (Bind.f f) (Sum.inr c₂))
    (destruct (corec (Bind.f f) (Sum.inr c))) (destruct c)
simp [Bind.f]
no goals
α : Type u
β : Type v
γ : Type w
a : α
f : α → Computation β
c₁ c₂ : Computation β
h : c₁ = bind (pure a) f ∧ c₂ = f a ∨ c₁ = corec (Bind.f f) (Sum.inr c₂)
c : Computation β
⊢ match
    match Bind.g (destruct c) with
    | Sum.inl a => Sum.inl a
    | Sum.inr b =>
      Sum.inr
        (corec
          (fun x =>
            match x with
            | Sum.inl ca =>
              match destruct ca with
              | Sum.inl a => Bind.g (destruct (f a))
              | Sum.inr ca' => Sum.inr (Sum.inl ca')
            | Sum.inr cb => Bind.g (destruct cb))
          b),
    destruct c with
  | Sum.inl a, Sum.inl a' => a = a'
  | Sum.inr s, Sum.inr s' =>
    s = bind (pure a) f ∧ s' = f a ∨
      s =
        corec
          (fun x =>
            match x with
            | Sum.inl ca =>
              match destruct ca with
              | Sum.inl a => Bind.g (destruct (f a))
              | Sum.inr ca' => Sum.inr (Sum.inl ca')
            | Sum.inr cb => Bind.g (destruct cb))
          (Sum.inr s')
  | x, x_1 => False
cases' destruct c with b cb <;> simp [Bind.g]
no goals
case r
α : Type u
β : Type v
γ : Type w
a : α
f : α → Computation β
⊢ bind (pure a) f = bind (pure a) f ∧ f a = f a ∨ bind (pure a) f = corec (Bind.f f) (Sum.inr (f a))
simp