id : {A : Set} -> A -> A
id x = x

id-zero : Nat
id-zero = id zero

id' : {A : Set} -> A -> A
id' {A} x = x

id-true : Bool
id-true = id {Bool} true