module Foo;

type Bar :=
  | bar : Bar;