pb with universe polymorphism in prod_eq.v