fact: Definition o_list_size pb1 pb2 := list_size (fun st => size (fst (B:=term) st)) pb1 < list_size (fun st => size (fst (B:=term) st)) pb2.
imports: Coq(Recdef List Arith Setoid) CoLoR(closure more_list list_permut list_set decidable_set term_spec) CoLoR.Util.Nat(NatCompat)