Function tuple4 

pub fn tuple4<A, B, C, D>(a: A, b: B, c: C, d: D) -> Tuple4<A, B, C, D>

Create a strategy for generating 4-tuples