import logic

check
  let f x y := x ∧ y,
      g x   := f x x,
      a     := g true
  in  λ (x : a),
        let h x y := f x (g y),
            b     := h
        in b