let nfa_subseteq (a : nfa) (b : nfa) : bool = let bbar = nfa_to_dfa b in let _ = complement bbar in let res = simple_intersect a bbar in is_empty res