Definition prog_c : com :=
  SKIP.Definition prog_g : com :=
  WHILE BTrue DO
    SKIP
  END.Definition equiv_classes : list (list com)
  (* REPLACE THIS LINE WITH ":= _your_definition_ ." *).

Lemma trans_cequiv : forall (c1 c2 c3 : com), cequiv c1 c2 -> cequiv c2 c3 -> cequiv c1 c3.