adjust redex so that identifiers preserve their syntax-original ness

collects/redex/private/judgment-form.rkt

@@ -497,10 +497,13 @@
             [nts (definition-nts lang stx syn-err-name)]
             [judgment (syntax-case stx () [(_ judgment _) #'judgment])])
        (check-judgment-arity stx judgment)
-       #`(sort #,(bind-withs syn-err-name '() lang nts (list judgment)
-                             'flatten #`(list (term #,#'tmpl #:lang #,lang)) '() '() #f)
-               string<=?
-               #:key (λ (x) (format "~s" x))))]
+       (syntax-property
+        #`(sort #,(bind-withs syn-err-name '() lang nts (list judgment)
+                              'flatten #`(list (term #,#'tmpl #:lang #,lang)) '() '() #f)
+                string<=?
+                #:key (λ (x) (format "~s" x)))
+        'disappeared-use
+        (syntax-local-introduce #'form-name)))]
     [(_ (not-form-name . _) . _)
      (not (judgment-form-id? #'form-name))
      (raise-syntax-error #f "expected a judgment form name" stx #'not-form-name)]))

collects/redex/private/pict.rkt

@@ -1129,7 +1129,7 @@
                            '#,(judgment-form-rule-names jf)
                            #,(judgment-form-lang jf))
    'disappeared-use
-   form-name))
+   (syntax-local-introduce form-name)))
 
 (define-syntax (render-judgment-form stx)
   (syntax-case stx ()

collects/redex/private/reduction-semantics.rkt

@@ -1650,7 +1650,7 @@
            (syntax-property
             #`(make-metafunction #,(term-fn-get-id v))
             'disappeared-use
-            (list #'id))
+            (list (syntax-local-introduce #'id)))
            (raise-syntax-error
             #f
             "not bound as a metafunction"

collects/redex/private/term.rkt

@@ -104,7 +104,8 @@
        (defined-term-id? #'x)
        (let ([ref (syntax-property
                    (defined-term-value (syntax-local-value #'x))
-                   'disappeared-use #'x)])
+                   'disappeared-use 
+                   (syntax-local-introduce #'x))])
          (check-id (syntax->datum #'x) stx)
          (with-syntax ([v #`(begin
                               #,(defined-check ref "term" #:external #'x)