let negedge clk a =
  Clock (clock (Negedge clk) a)