eliminarArtistaT :: Teatro -> Nombre -> Teatro
aliminarArtistaT teatrin@(Tea sls funs acts ss es) artista = (Tea sls func artistaQuitado sueldoQuitado es)
where 
artistaQuitado = (sacarElementoN (pos artista elencoT  teatrin) acts)
sueldoQuitado = (sacarElementoN  (pos artista elencoT  teatrin) ss)