(*Some (ThreadPool.getThreadR Htid, virtue1)*)
(*Some virtue2*)

Lemma initial_diagram:
forall (m : option mem) (s_mem s_mem' : mem) (main : val) (main_args : list val)
(s_mach_state : ThreadPool (Some hb)) (r1 : option res),
machine_semantics.initial_machine (HybConcSem (Some hb) m) r1 s_mem s_mach_state s_mem'
main main_args ->
exists
(j : meminj) (cd : option compiler_index) (t_mach_state : ThreadPool (Some (S hb)))
(t_mem t_mem' : mem) (r2 : option res),
machine_semantics.initial_machine (HybConcSem (Some (S hb)) m) r2 t_mem t_mach_state
t_mem' main main_args /\ concur_match cd j s_mach_state s_mem' t_mach_state t_mem'.