record PGAuthentication : TypeMkPGAuthentication : LTE n 64 => String -> Vect n Bits8 -> (Vect n Bits8 -> Vect 64 Bits8) -> PGAuthentication0 .n : PGAuthentication -> Nat.password : ({rec:0} : PGAuthentication) -> Vect (n {rec:0}) Bits8.prf : ({rec:0} : PGAuthentication) -> LTE (n {rec:0}) 64.userName : PGAuthentication -> String.zeroPadPassword : ({rec:0} : PGAuthentication) -> Vect (n {rec:0}) Bits8 -> Vect 64 Bits8.prf : ({rec:0} : PGAuthentication) -> LTE (n {rec:0}) 64prf : ({rec:0} : PGAuthentication) -> LTE (n {rec:0}) 64.userName : PGAuthentication -> StringuserName : PGAuthentication -> String.password : ({rec:0} : PGAuthentication) -> Vect (n {rec:0}) Bits8password : ({rec:0} : PGAuthentication) -> Vect (n {rec:0}) Bits8.zeroPadPassword : ({rec:0} : PGAuthentication) -> Vect (n {rec:0}) Bits8 -> Vect 64 Bits8zeroPadPassword : ({rec:0} : PGAuthentication) -> Vect (n {rec:0}) Bits8 -> Vect 64 Bits8data PgErr : TypeUnexpectedMessage : String -> PgErrSCRAM2Failure : Phase2Err -> PgErrSCRAM3Failure : Phase3Err -> PgErrShow PgErrinitialPgIter : PGAuthentication -> DIterator (List Bits8) (List Bits8) PgInput PgRows PgErr