(* *)
(**************************************************************************)
-include "basic_2/notation/relations/reducible_5.ma".
+include "basic_2/notation/relations/predreducible_5.ma".
include "basic_2/static/sd.ma".
include "basic_2/reduction/crr.ma".
-(* CONTEXT-SENSITIVE EXTENDED REDUCIBLE TERMS *******************************)
+(* REDUCIBLE TERMS FOR CONTEXT-SENSITIVE EXTENDED REDUCTION *****************)
(* activate genv *)
(* extended reducible terms *)
.
interpretation
- "context-sensitive extended reducibility (term)"
- 'Reducible h g G L T = (crx h g G L T).
+ "reducibility for context-sensitive extended reduction (term)"
+ 'PRedReducible h g G L T = (crx h g G L T).
(* Basic properties *********************************************************)
#h #g * #i #G #H
[ elim (crx_inv_sort … H) -H /2 width=4 by ex2_2_intro/
| elim (crx_inv_lref … H) -H #I #L #V #H
- elim (ldrop_inv_atom1 … H) -H #H destruct
+ elim (drop_inv_atom1 … H) -H #H destruct
| elim (crx_inv_gref … H)
]
qed-.