Parameter Float.4-A

type t = float
type 'a arbitrary = 'a Q.arbitrary
val make : t arbitrary