/* Ejemplo1_0. pl   	--> Los comentarios como en C */
/* Hechos: le_gusta_a(A,B) --> a A le_gusta B */
le_gusta_a(juan, maria).
le_gusta_a(pedro, coche).
le_gusta_a(maria, libro).
le_gusta_a(maria, juan).
le_gusta_a(jose, maria). 
le_gusta_a(jose, coche).
le_gusta_a(jose, pescado).

/* Reglas: es_amigo_de (juan, Persona) --> juan es amigo de Persona si a Persona le gustan los coches */
es_amigo_de(juan,X):- le_gusta_a(X, coche).