:: Term s (PValue _ a :--> PValue _ a)

Value without any non-Ada
Value without any Ada
Assert all amounts in the value are positive.