fact: Definition proj t := match t with | Var _ => t | Fun f ts => match zerop (arity f) with | right H => Vnth ts (Hpi H) | left H => t end end.
imports: CoLoR(ATrs NatUtil BoolUtil VecUtil ListUtil LogicUtil RelUtil SN ACompat ARelation EqUtil)