coq-club AT inria.fr
Subject: The Coq mailing list
List archive
- From: Edsko de Vries <edskodevries AT gmail.com>
- To: Thorsten Altenkirch <txa AT cs.nott.ac.uk>
- Cc: Coq Club <coq-club AT pauillac.inria.fr>, Agda List <agda AT lists.chalmers.se>
- Subject: Re: [Coq-Club] Need help with coinductive proof
- Date: Thu, 27 Aug 2009 17:58:03 +0100
- Domainkey-signature: a=rsa-sha1; c=nofws; d=gmail.com; s=gamma; h=mime-version:in-reply-to:references:date:message-id:subject:from:to :cc:content-type; b=UT+HO7QHSCI09PbVHZ6EfKa3D81GeekRSltNCq0W5P83RMh3TL86xxcLltCRKerTmj E7bOFwlh3vyJDsICf8s/Vkevj0cxCbtencV1BvmpbMfccyWi4dwOnrBDeLX0eSHdBDOe VZQBTLSDZu33PcW+jMC/YCtQtyvaW5VjCfSNw=
- List-archive: <http://pauillac.inria.fr/pipermail/coq-club/>
Hi Thorsten,
Can't we eliminate the function h and say we have two streams that are pointwise bisimilar (ignoring finite delay) and in this case the sum should be bisimilar? Clearly to define the sum we have to use an auxilliary datatype with a special constructor for + and then flatten.Consider adding all numbers in an infinite stream of (partial, co-natural) numbers, and applying some function h:
h (x1 + (x2 + (x3 + ..)))
If h is a morphism from nat to nat (i.e., h 0 ~ 0 and h (i + j) ~ h i + h j), then this should be bisimilar to
h x1 + (h x2 + (h x3 + ..))
I thought this just boils down to showing that + is a congruence, but you seem to think this is not so?
The strategy is to define an extension of partial coNat with a special constructor for + and correspondingly an extension of the bisimulation with a congruence rule for +. Now it should be straightforward to show that the statement holds for the extended version of bisimilarity. The missing lemma is to show that if two values in the extended sense are bisimilar then their flattening should be bisimilar?
This seems just to require to extend the flattening lemma to the bisimulations?
Indeed, it "just" requires to give a flattening lemma for bisimulation extended with sums and transitivity, except that I have now been trying to exactly that non-stop for the last 6 days or so without making much progress :(
Having said that, I now realize that I don't *quite* do what you suggest, if I understand you correctly: you are suggesting that I prove
bisimilar_on_extended_conat m n ->
bisimilar_on_standard_conat (flatten m) (flatten n)
? I have not tried this 'simultaneous' flattening of the bsimulation relation and the conats. Let me give that a try..
Thanks again, much appreciated,
Edsko
- Re: [Coq-Club] Re: Need help with coinductive proof, (continued)
- Re: [Coq-Club] Re: Need help with coinductive proof, Keiko Nakata
- Re: [Coq-Club] Re: Need help with coinductive proof, Keiko Nakata
- Re: [Coq-Club] Re: Need help with coinductive proof, Edsko de Vries
- Re: [Coq-Club] Need help with coinductive proof, Thorsten Altenkirch
- Re: [Coq-Club] Need help with coinductive proof, Edsko de Vries
- Re: [Coq-Club] Need help with coinductive proof, Edsko de Vries
- Re: [Coq-Club] Need help with coinductive proof, Edsko de Vries
Archive powered by MhonArc 2.6.16.