blob: f5fbb8a2a2e82eb26bb9e4831d8cfe4c7acc94f3 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
|
Require Import Setoid.
Parameter recursion : forall A : Set, A -> (nat -> A -> A) -> nat -> A.
Axiom recursion_S :
forall (A : Set) (EA : relation A) (a : A) (f : nat -> A -> A) (n : nat),
EA (recursion A a f (S n)) (f n (recursion A a f n)).
Goal forall n : nat, recursion nat 0 (fun _ _ => 1) (S n) = 1.
intro n.
setoid_rewrite recursion_S.
reflexivity.
Qed.
|
