universes u

namespace Ex1

structure A (α : Type u) :=
(x : α) (f : α → α := λ x => x)

structure B (α : Type u) extends A α :=
(y : α := f (f x)) (g : α → α → α := λ x y => f x)

structure C (α : Type u) extends B α :=
(z : α := g x y) (x := f z)

end Ex1

new_frontend
open Ex1

def c1 : C Nat := { x := 1 }

#check { z := 2, .. c1 }

def c2 : C (Nat × Nat) := { z := (1, 1) }

#check { x.fst := 2, .. c2 }

#check { x.1 := 3, .. c2 }