Goal:
  
  a : A.t
  x : list A.t
  IHx : forall y : t, CompareSpec (x = y) (lt x y) (lt y x) (compare x y)
  t0 : A.t
  y : list A.t
  H : A.lt a t0
  ============================
   (lt (a :: x) (t0 :: y))


DEBUG:Going to execute:
constructor