is_contr.mk : Π center, (Π a, center = a) → is_contr ?A