inductive point (A B : Type*)
| mk : Π (x : A) (y : B), point

inductive [class] color
| red | green | blue

constant {u} foo (A : Type u) [H : decidable_eq A] : Type u

constants a : num

section
  universe variable l
  variable A : Type.{l}
  variable Ha : decidable_eq A
  include Ha
  variable E : Type 1
  include E
   -- include Ha

  structure point3d_color (B C : Type*) (D : B → Type*) extends point (foo A) B, sigma D renaming fst→y snd→w :=
  mk :: (c : color) (H : x == y)

  check point3d_color.c

  check point3d_color.to_point
end

section
  universe l
  parameters A : Type.{l}
  parameters B : Type.{l}

  structure tst :=
  mk :: (a : A) (b : B)

end