!(import! &self /tmp/epistemic_gravity.metta) !(import! &self /tmp/reverse_query.metta) (= (trust A B) 0.8) (= (trust B C) 0.7) (= (trust C D) 0.5) (= (belief A) 0.9) (= (propagate $src $dst) (let* (($c (belief $src)) ($t (trust $src $dst)) ($new (* $c $t))) $new)) (= (belief B) (propagate A B)) (= (belief C) (propagate B C)) (= (belief D) (propagate C D)) !(belief D) !(action-ready (belief D)) !(min-hops-for 0.65 0.9) !(sources-needed 0.65 0.65 (belief D))