CREATE OR REPLACE TYPE tipo_persona AS OBJECT --head ( nombre VARCHAR2(25), coche coche_obj, MEMBER PROCEDURE mostrar_persona ); CREATE OR REPLACE TYPE BODY tipo_pe