luau/prototyping/Properties/Contradiction.agda

10 lines
157 B
Agda
Raw Normal View History

module Properties.Contradiction where
data : Set where
¬ : Set Set
¬ A = A
CONTRADICTION : {A : Set} A
CONTRADICTION ()