Goal:
  
  A : byte -> Type
  f : forall b : byte, A b
  v := f "001"%byte : A "001"%byte
  ============================
   (A "001"%byte)


DEBUG:Going to execute:
exact val