Устранение cofix в доказательстве Coq

15

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

Типа дерево определяет , возможно , бесконечные дерева с ветвями , меченных с элементами типа A . Ветвь не обязательно быть определена для всех элементов A . Значение ун - та есть бесконечное дерево со всеми A ветвей всегда определены. isUniv проверяет, равно ли данное дерево Univ . Лемма утверждает, что Univ действительно удовлетворяет isUniv .

Parameter A : Set.

CoInductive Tree: Set := Node : (A -> option Tree) -> Tree.

Definition derv (a : A) (t: Tree): option Tree :=
  match t with Node f => f a end.

CoFixpoint Univ : Tree := Node (fun _ => Some Univ).

CoInductive isUniv : Tree -> Prop :=
  isuniv : forall (nf : A -> option Tree) (a : A) (t : Tree), 
    nf a = Some t -> 
    isUniv t -> 
    isUniv (Node nf).

Lemma UnivIsUniv : isUniv Univ.
Proof.
  cofix CH.    (* this application of cofix is fine *)
  unfold Univ. 

Admitted.

На данный момент я отказываюсь от доказательства. Текущая цель:

CH : isUniv Univ
============================
isUniv (cofix Univ  : Tree := Node (fun _ : A => Some Univ))

Я не знаю, какую тактику применить, чтобы устранить кофикс в цели, чтобы произвести (Узел-то), чтобы я мог применить isuniv .

Кто-нибудь может помочь доказать эту лемму?
Каковы стандартные способы устранения cofix в такой ситуации?

Дэйв Кларк
источник
1
Тег «интерактивные доказательства» не является адекватным, поскольку он обычно относится к интерактивным системам доказательства в их теоретико-сложном смысле. Правильный термин, который я предполагаю, это «интерактивное доказательство теорем» или «доказательство теорем».
Иддо Цамерет
Исправлено использование «корректоров»
Дейв Кларк

Ответы:

6

Вы можете устранить cofix, используя вспомогательную функцию, которая соответствует шаблону Tree.

Definition TT (t:Tree) :=
  match t with
    | Node o => Node o
  end.

Lemma TTid : forall t: Tree, t = TT t.
  intro t.
  destruct t.
  reflexivity.
  Qed.

Lemma UnivIsUniv : isUniv Univ.
Proof.
  cofix.
  rewrite TTid.
  unfold TT.
  unfold Univ.

Вы получите эту цель, которая является шагом без вознаграждения.

  UnivIsUniv : isUniv Univ
  ============================
   isUniv
     (Node
        (fun _ : A =>
         Some (cofix Univ  : Tree := Node (fun _ : A => Some Univ))))

Я адаптировал эту технику с http://adam.chlipala.net/cpdt/html/Coinductive.html

yhirai
источник
Спасибо за это. Я смотрел на эту страницу примерно в то же время, когда пришел твой ответ. Сумасшедший, но он, кажется, сработал ... и затем я застрял немного дальше, но я надумал над этим немного дольше.
Дэйв Кларк
9
(* I post my answer as a Coq file. In it I show that supercoooldave's
   definition of a universal tree is not what he intended. His isUniv
   means "the tree has an infinite branch". I provide the correct
   definition, show that the universal tree is universal according to
   the new definition, and I provide counter-examples to
   supercooldave's definition. I also point out that the universal
   tree of branching type A has an infinite path iff A is inhabited.
   *)

Set Implicit Arguments.

CoInductive Tree (A : Set): Set := Node : (A -> option (Tree A)) -> Tree A.

Definition child (A : Set) (t : Tree A) (a : A) :=
  match t with
    Node f => f a
  end.

(* We consider two trees, one is the universal tree on A (always
   branches out fully), and the other is a binary tree which always
   branches to one side and not to the other, so it is like an
   infinite path with branches of length 1 shooting off at each node.  *)

CoFixpoint Univ (A : Set) : Tree A := Node (fun _ => Some (Univ A)).

CoFixpoint Thread : Tree (bool) :=
  Node (fun (b : bool) => if b then Some Thread else None).

(* The original definition of supercooldave should be called "has an
   infinite path", so we rename it to "hasInfinitePath". *)
CoInductive hasInfinitePath (A : Set) : Tree A -> Prop :=
  haspath : forall (f : A -> option (Tree A)) (a : A) (t : Tree A),
    f a = Some t ->
    hasInfinitePath t -> 
    hasInfinitePath (Node f).

(* The correct definition of universal tree. *)
CoInductive isUniv (A : Set) : Tree A -> Prop :=
  isuniv : forall (f : A -> option (Tree A)),
    (forall  a, exists t, f a = Some t /\ isUniv t) -> 
    isUniv (Node f).

(* Technicalities that allow us to get coinductive proofs done. *)
Definition TT (A : Set) (t : Tree A) :=
  match t with
    | Node o => Node o
  end.

Lemma TTid (A : Set) : forall t: Tree A, t = TT t.
  intros A t.
  destruct t.
  reflexivity.
  Qed.

(* Thread has an infinite path. *)
Lemma ThreadHasInfinitePath : hasInfinitePath Thread.
Proof.
  cofix H.
  rewrite TTid.
  unfold TT.
  unfold Thread.
  (* there is a path down the "true" branch leading to Thread. *)
  apply haspath with (a := true) (t := Thread).
  auto.
  auto.
Qed.

(* Auxiliary lemma *)
Lemma univChildNotNone (A : Set) (t : Tree A) (a : A):
  isUniv t -> (child t a <> None).
Proof.
  intros A t a [f H].
  destruct (H a) as [u [G _]].
  unfold child.
  rewrite G.
  discriminate.
Qed.

(* Thread is not universal. *)
Lemma ThreadNotUniversal: ~ (isUniv Thread).
Proof.
  unfold not.
  intro H.
  eapply univChildNotNone with (t := Thread) (a := false).
  auto.
  unfold Thread, child.
  auto.
Qed.

(* Now let us show that Univ is universal. *)
Lemma univIsuniv (A : Set): isUniv (Univ A).
Proof.
  intro A.
  cofix H.
  rewrite TTid.
  unfold TT.
  unfold Univ.
  apply isuniv.
  intro a.
  exists (Univ A).
  auto.
Qed.

(* By the way, it need not be the case that a universal tree has
   an infinite path! In fact, the universal tree of branching type
   A has an infinite path iff A is inhabited. *)

Lemma whenUnivHasInfiniteBranch (A : Set):
  hasInfinitePath (Univ A) <-> exists a : A, True.
Proof.
  intro A.
  split.
  intro H.
  destruct H as [f a t _].
  exists a.
  trivial.
  intros [a _].
  cofix H.
  rewrite TTid.
  unfold TT.
  unfold Univ.
  apply haspath with (t := Univ A); auto.
Qed.
Андрей Бауэр
источник
Спасибо за этот несколько неловкий ответ. Я столкнулся с проблемой обитания А, но сумел найти способ обойти это. Удивительно, но вселенная не раскрылась.
Дэйв Кларк
Что ж, меня не смущает мой ответ :-) Я подумал, что мог бы дать исчерпывающий ответ, если я дам один.
Андрей Бауэр
Ваш ответ меня смутил. Но, безусловно, высоко ценится.
Дэйв Кларк
Я пошутил ... Во всяком случае, нечего смущаться. Я сделал худшие ошибки. Кроме того, Интернет предлагает людям публиковать, прежде чем они думают. Я сам разместил здесь ошибочное исправление вашего определения, но, к счастью, я заметил это раньше, чем вы.
Андрей Бауэр