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 t0 a
  ============================
   (lt (t0 :: y) (a :: x))


DEBUG:Going to execute:
constructor