functor (Synchro : Types.Synchronism) -> Experiment2