church_add Lemma