fact: Definition opposite (d d':direction):= match d,d' with | North,South => True | South, North => True | East, West => True | West, East => True | _, _ => False end.
imports: List ZArith Bool Relations Setoid Morphisms RelationClasses EMonoid Lia