Parameter PP : Set.
Parameter VV : Set.

(* Specifications: *)
Axiom PP_decidable : forall p q : PP, {p = q} + {p <> q}.
Axiom VV_decidable : forall x y : VV, {x = y} + {x <> y}.
Inductive name : Set :=
| pname : PP -> name
| vname : VV -> name.