Ocaml の Record 宣言なんだけれども

type atype = { name : string; desc : string }
type btype = { name : string; point : int }

とか宣言して、

let get_name (x : atype) = x.name

とかすると、

This expression has type atype but is here used with type btype

とかでてしまい、atype として使えないのですが、これを
回避する方法ってないのでしょうか？