Definition sconf (b : wsort) (N N' : TS b) :=
  forall z : TS b,
  e_beta_par _ N z -> exists u : TS b, e_beta_par _ N' u /\ e_beta_par _ z u.Goal forall M M' : terms, sconf wt (lambda M) (lambda M') -> sconf wt M M'.Save sconf_lambda_bpar.

Theorem sconf_betapar : forall b : wsort, explicit_strong_confluence _ (e_beta_par b).