Goal:
    G : t  l : labelling  Gl := relabel G l : t
  ============================
   (correct_labelling G l -> acyclic_no_loop Gl)


DEBUG:Going to execute:
move  =>HGl x p