Проблема У меня есть простая коиндуктивная запись с единственным полем типа суммы. Unit дает нам простой тип, с которым можно поиграть. open import Data.Maybe open import Data.Sum data Unit : Set where unit : Unit record Stream : Set...

Я пытаюсь доказать первый пример в «Практическая коиндукция» в Coq. Первый пример - доказать, что лексикографическое упорядочение бесконечных потоков целых чисел транзитивно. Мне не удалось сформулировать доказательство, позволяющее обойти...

Require Import Streams. CoFixpoint map {X Y : Type} (f : X -> Y) (s : Stream X) : Stream Y := Cons (f (hd s)) (map f (tl s)). CoFixpoint interleave {X : Type} (s : Stream X * Stream X) : Stream X := Cons (hd (fst s)) (Cons (hd (snd s))...

Должен признать, что я не очень хорошо разбираюсь в коиндукции. Я пытаюсь показать принцип бисимуляции на натуральных числах, но я застрял на паре (симметричных) случаев. CoInductive conat := | cozero : conat | cosucc : conat -> conat....

В coq я могу определить отношения равенства для коиндуктивных типов, компоненты которых являются парами: Section Pairs. Variable (A:Type). CoInductive Stream := cons : (A * Stream) -> Stream. CoInductive Stream_eq : Stream -> Stream ->...