Coq: preso usando o subtipo

Eu tenho as seguintes definições: (definição de números inteiros positivos como um subtipo de nat) Definition Z_pos_filter (p: nat) : bool := if (beq_nat p 0) then false else true. Definition Z_pos: Set := {n : nat | is_true (Z_pos_filter n) }. ...

Provando f (f bool) = bool

Como faço para provar que duas implementações de Fibonacci são iguais na Coq?

Tenho duas implementações de Fibonacci, vistas abaixo, que quero provar que são funcionalmente equivalentes. Eu já provei propriedades sobre números naturais, mas este exercício requer outra abordagem que não consigo descobrir. O livro que ...