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_aequiv : forall (a1 a2 a3 : aexp), aequiv a1 a2 -> aequiv a2 a3 -> aequiv a1 a3.