9 lines
171 B
Text
9 lines
171 B
Text
import data.nat.basic data.prod
|
||
open nat prod
|
||
|
||
set_option pp.universes true
|
||
|
||
definition tuple (A : Type) (n : nat) : Type :=
|
||
nat.rec_on n A (λ n r, r × A)
|
||
|
||
check @tuple
|