fact: Definition Fix2V_rect (Q : forall a a', flattenT (Telescope_append (B (a, a')) (P (a, a'))) Type) (H0 : forall x x', (forall y y', R (y, y') (x, x') -> flatten_append_forall (@Q y y') (@Fix2V F y y')) -> flatten_append_forall (@Q x x') (@F x x' (fun y y' (_ : R (y, y') (x, x')) => @Fix2V F y y'))) (F_ext : forall x x' (f g : forall y y', R (y, y') (x, x') -> flatten_forall (@P (y, y'))), (forall y y' (p : R (y, y') (x, x')), flatten_forall_eq (f y y' p) (g y y' p)) -> flatten_forall_eq (@F x x' f) (@F x x' g)) a a' : flatten_append_forall (@Q a a') (@Fix2V F a a').
imports: Fiat.Common.Coq__8_4__8_5__Compat Coq.Setoids.Setoid Coq.Program.Program Coq.Program.Wf Coq.Arith.Wf_nat Coq.Classes.Morphisms Coq.Init.Wf Fiat.Common.Telescope.Core Fiat.Common.Telescope.Instances Fiat.Common.Telescope.Equality Fiat.Common Fiat.Common.Equality Fiat.Common.Wf1