fact: Definition activeEnv (M: Term) : Env := match M with | @buildT E Pt T M0 => Typing_rect (fun E0 Pt0 T0 _ => Env) (fun _ x A _ => copy x None ++ A [#] EmptyEnv) (fun _ _ => EmptyEnv) (fun _ _ _ _ _ Ein => tail Ein) (fun _ _ _ _ _ _ El _ Er => El [+] Er) M0 end.
imports: CoLoR(RelExtras ListExtras TermsEnv LogicUtil) Coq(Arith Lia)