(* Properties with evaluations for rt-transition on terms *******************)
lemma nta_typecheck_dec (h) (a) (G) (L): ac_props a →
- â\88\80T,U. Decidable â\80¦ (â¦\83G,Lâ¦\84 ⊢ T :[h,a] U).
+ â\88\80T,U. Decidable â\80¦ (â\9d¨G,Lâ\9d© ⊢ T :[h,a] U).
/2 width=1 by cnv_dec/ qed-.
(* Basic_1: uses: ty3_inference *)
lemma nta_inference_dec (h) (a) (G) (L) (T): ac_props a →
- Decidable (â\88\83U. â¦\83G,Lâ¦\84 ⊢ T :[h,a] U).
+ Decidable (â\88\83U. â\9d¨G,Lâ\9d© ⊢ T :[h,a] U).
#h #a #G #L #T #Ha
elim (cnv_dec h … G L T Ha) -Ha #HT
[ /3 width=1 by cnv_nta_sn, or_introl/