fact: Definition wfs_wf_wfp_compshift (f : nat -> wfs) (b : ∏ n : nat, wfs_wf_uord (f (S n)) (f n)) : ∏ (n : nat) {x y : uset (f n)}, uord (f n) x y -> uord (f 0) (wfs_wf_wfp_shift f b n x) (wfs_wf_wfp_shift f b n y).
imports: UniMath.Foundations.All UniMath.Tactics.EnsureStructuredProofs